Automatischer Mail versand ?
14.04.2005 09:40:41
Torsten
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