Send a flag from Outlook 2013 to Access 2013 confirming that email was sent (exists i

[drnorbert]

I would like to add a flag which verify that the email was sent or at least is in the Sent Outlook folder to the following vba code.

Private Sub cmdEmail1_Click()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
 
strbody = "Dear Aaron," & vbNewLine & "Enclosed is the requested information"
 
On Error Resume Next
With OutMail
    .To = "[e-mail]"
    .CC = ""
    .BCC = ""
    .Subject = "Important..."
    .Body = strbody
    .SendUsingAccount = OutApp.Session.Accounts.Item(2)                         '2nd email
    .Send
End With
On Error GoTo 0
 
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
 

Thanks
Norbert