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

Beiträge aus den Excel-Beispielen zum Thema "Automatischer Mail versand ???"