gesendete Mail gleich löschen
25.08.2006 16:50:53
stefanseevetal
Ich würde gerne wissen, ob es eine Möglichkeit gibt, dass eine Mail, die von Excel per Makro über Outlook versendet wird danach gleich automatisch gelöscht wird und nicht mehr im Ordner "gesendete Mail" auftaucht? Unten folgt der Code, den ich hier im Forum gefunden (Danke dafür) und für meine Zwecke angepasst habe. Kann man da irgendwo diese Löschfunktion integrieren, z.B. nach ".Send"?
Sub SchadensmeldungNeuOutlook()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim istOffen As Boolean
Dim AWS As String
' Die aktuelle Schadensmeldung wird in eine separate Datei kopiert, um diese später zu senden.
On Error GoTo ERRORHANDLER
SavePath = ThisWorkbook.Path
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set OutApp = CreateObject("Outlook.application")
istOffen = False
End If
istOffen = True
On Error GoTo ERRORHANDLER
AWS = SavePath & "\" & "eMail_Schadensmeldung_" & ActiveSheet.Name & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs AWS
ActiveWorkbook.Close
' Die kopierte Datei wird per Outlook gesendet.
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@test.de"
.Subject = "Schadensmeldung " & SName & " " & Date & " " & Time
.Attachments.Add AWS
.HTMLBody = "Im Anhang erhalten Sie eine aktuelle Schadensmeldung!"
.ReadReceiptRequested = True
.Send
Kill AWS
End With
' Wenn Outlook vorher geschlossen war, wird es wieder geschlossen.
If Not istOffen Then
OutApp.Quit
End If
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Danke schon mal für Eure Hilfe und viele Grüße,
Stefan