title: VBA Outlook Mail .display, recording when/if sent manually
body: <p>My code displays a message with basic subject, body, attachment.  Next the user manually updates and customizes the message and should send it.  I want to record when (if) the email is sent.  Is this possible or any tips?</p>
  
  <p>My environment is Office 2007 with an excel based macro going to Outlook.</p>
  
  <p>[Excerpt]</p>
  
  <pre><code>Dim OutApp As Outlook.Application
  Dim OutMail As Outlook.MailItem
  
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  
  Set OutMail = OutApp.CreateItem(olMailItem)
  With OutMail
      .To = Email                 '.CC = 
      .Subject = Subj
      .BodyFormat = olFormatHTML
      .Body = Msg                 '.HTMLBody = Msg
      If Not FileAttach = vbNullString Then .Attachments.Add (FileAttach) 
      .Display
  End With
  </code></pre>