Wie kann ich eine Nachricht anzeigen, wenn die E-Mail ohne Senden geschlossen wurde?

Question

Ich weiß, dass dies sehr einfach ist, aber im Moment eine totale Geistesblindheit hat. Ich habe meinen Grundcode, um eine E-Mail in Outlook zu senden, aber ich muss die Zeile kennen, um einen Fehler oder eine Nachricht zu erzeugen, wenn die Person die E-Mail schließt, ohne zu senden.

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

'Sends email 

With OutMail 
    .to = " someone@nowhere.com" 
    .Subject = " Rich Request" 
    .HTMLBody = "Please find attached new  request" .Attachments.AddApplication.ActiveWorkbook.FullName 
    .Display 

End With 

Set OutApp = Nothing 

Answer 1

Sie können das nicht im Outlook-Objektmodell tun.

CDO 1.21 (nicht mehr von Outlook installiert oder von Microsoft unterstützt), um eine Ausnahme auszulösen, wenn die Nachricht ohne Senden geschlossen wurde. Ihre einzigen beiden Alternativen sind Extended MAPI (nur C++ oder Delphi) oder Redemption - ihre RDOMail .Display (true) -Methode löst eine Ausnahme (MAPI_E_USER_CANCEL) aus, wenn die Nachricht abgewiesen wird.