title: Capturing Outlook Email Send Time In Excel VBA
body: <p>An Outlook email is generated whenever I execute a VBA code in Excel. It does not automatically send, nor do I want it to. The email is populated by cell values in a range (which are based off of the ActiveCell) and <b>I want to programmatically capture when the email is manually sent</b> into ActiveCell.Offset(0, 13), preferably with VBA in my current Excel program.</p>
  
  <p>This is the code by which I display the email:</p>
  
  <pre><code>'Send Stock Request:
  Dim OutApp As Object
  Dim OutMail As Object
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(olMailItem)
  
  With OutMail
      .BodyFormat = olFormatHTML
      .HTMLBody = "My eMail's HTML Body"
      .To = "myrecipients@theiremails.com"
      .CC = ""
      .BCC = ""
      .Subject = "Stock Request"
      .Display
  End With
  
  Set OutMail = Nothing
  Set OutApp = Nothing
  </code></pre>