Check, ob Versand erfolgt ist, möglich?
28.12.2005 14:15:46
Peter
Ich versende mittels Makro das aktive Tabellenblatt in einer neuen Datei und zwar als formatierte und unformatierte Tabelle.
Mit
with nachricht
.display
wird das EMail angezeigt - der Anwender muss nur noch "Send" anklicken - oder "Esc" drücken, wenn der Versand doch nicht erfolgen soll.
Nun meine Frage, kann ich "irgendwie" protokollieren, ob der Versand wirklich erfolgt ist oder nicht?
Kann mir hier jemand weiterhelfen?
Danke, Peter
....
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Application.DisplayAlerts = False
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = to_
.cc = cc_
.bcc = bcc_
.Subject = "Datentransfer " & Date & " " & Time
.Attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
.body = "Guten Tag!" & vbCrLf & "Als Attachment erhalten Sie die Excel-Datei mit den aktuellen Bewertungen"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Guten Tag!" & vbCrLf & "Als Attachment erhalten Sie die Excel-Datei mit den aktuellen Bewertungen"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send (wird manuell ausgeführt)
End With
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
Application.DisplayAlerts = True
ActiveWorkbook.Close
Kill AWS
End Sub