Prüfen ob E-Mail in Outlook gesendet wurde

Private Sub CommandButton3_Click()

Dim OutlookApp As Object

Dim Mail As Object

Dim Versendet As Boolean

'Outlook-Anwendung erstellen

Set OutlookApp = CreateObject("Outlook.Application")

Set Mail = OutlookApp.CreateItem(0)



With Mail

.To = "kunde@web.de"

.Subject = "Betreff der E-Mail"

.Body = "Dies ist der Body der E-Mail." 

.Display 

End With



DoEvents



On Error Resume Next

Versendet = Mail.Sent

On Error GoTo 0



If Versendet Then

MsgBox "Die E-Mail wurde erfolgreich versendet.", vbInformation

Else

MsgBox "Der Versand der E-Mail wurde abgebrochen.", vbExclamation

End If



Set Mail = Nothing

Set OutlookApp = Nothing



End Sub