Check to see if an Outlook Email was sent from Excel VBA

[Joe_Canadian]

I have a macro that opens and populates an Outlook Email, and displays it for editing. What I would like to do is have a way to determine if the user has sent it or not, and have some code run if they closed the email instead of sending it.

Public Sub SendNotification()
Call AsgVar 'Routine which declares and intializes common variables
Dim strTMP As String, sTo As Variant, sCC As String, sBCC As String, sSubject As String, strbody As String
 
Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error GoTo Error_Handler
 
[Bunch of code assigning values to all of the strings]
 
            With OutMail
                .To = sTo
                .CC = sCC
                .BCC = sBCC
                .Subject = sSubject
                .Body = strbody
                .Attachments.Add "C:\BATTERY_ANALYSIS\" & strFileName
                If Not (ReplaceSheet = False Or ReplaceSheet = Null)Then .Attachments.Add RepDoc
                .Display
            End With
 
            Set OutMail = Nothing
            Set OutApp = Nothing
 
 
If user hit red close button instead of send then
 
     [code to run]
Else
    MsgBox ("Notification sent to " & strPlannerEmail & "@company.com")
End If
 
[different unrelated code]
 
end sub

Basically how do I do the bold line?

 

[bradyboyy88]

Oh I didnt realize that. So the close event is triggered from either hitting close or sending the email I assume?

 

[jlexcel]

It does - the Debug statement is incorrect.

Actually, the debug statement WAS correct. The solution as originally posted here was correct: When the user exits without sending an email, itm.Sent will be False, which is what you would expect of the _Close event. If however, the user presses 'Send', accessing tm.Sent returns an error ( -209452790, "The item has been moved or deleted"). Not necessarily intuitive, but a very clever method.