Herbers Excel-Forum - das Archiv

Automatischer Mail versand ???

Bild

Betrifft: Automatischer Mail versand ???
von: Torsten

Geschrieben am: 14.04.2005 09:40:41
Hallo Excelfreunde,
ich hab mal ein klienes Problem, leider konnte im Archiv keine passende Lösung finden.
Ich habe eine Exceldatei wo sich die Daten auf TB2 alle 45 Minuten ändern.
Nun habe ich das Problem diese Laborwerte auswerten zu müssen. Dazu habe ich folgendes Makro verwendet.
Das Problem ist nun das sich das Labor 2 Etagen tiefer befindet und vor dem Versand immer der Hinweis kommt das ein Programm auf Outlook zugreifen möchte.
Wisst Ihr wie man diese Meldung automatisch mit ja bestätigen kann?
vielen Dank Torsten
Option Explicit
Public NextTime As Date
Sub Versenden()
Dim shAdressen As Worksheet
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(2).Copy
ActiveWorkbook.SendMail "mail@domain.de", Format(Date, "dd.mm.yy") & " - " & _
Format(Time, "hh:mm:ss")
ActiveWorkbook.Close savechanges:=False
NextTime = Now + TimeValue("00:45:00")
Application.OnTime NextTime, "Versenden"
End Sub

Sub StopVersenden()
On Error Resume Next
Application.OnTime NextTime, "Versenden", , False
End Sub

Bild

Betrifft: AW: Automatischer Mail versand ???
von: ANdreas
Geschrieben am: 14.04.2005 14:42:35
Hallo Torsten,
dies ist eine Sicherheitfunktion die m.W. mit Office 2000 eingebaut wurde.
Ich denke eine digitale Signatur (Zertifikat) für die Datei, sollte die Sicherheitsabfrage nicht mehr anzeigen lassen.
Gruß
Andreas
Bild

Betrifft: AW: Automatischer Mail versand ???
von: Torsten
Geschrieben am: 14.04.2005 16:28:16
vielen Dank, probiere ich gleich mal aus
Gruss Torsten
 Bild
Excel-Beispiele zum Thema "Automatischer Mail versand ???"
Emailversand mit Outlook auf der Basis von Excel-Daten