VBA Outlook Mail .display, recording when/if sent manually

by

This is entirely possible, using the _Send event in the Outlook.MailItem class.

The way I use it, I create a class called EMail Watcher, so when I create the email and do the .Display, I then create a new EMailWatcher object and tell it to watch that email for send, then report back when it happens.

Here’s the class as I use it. Basically, I also optionally can set the BoolRange so that if the user sends the email, that Excel range gets updated with True. I can also have the class update an Excel range with the time the email is sent.

Public BoolRange As Range
Public DateRange As Range
Public WithEvents TheMail As Outlook.MailItem


Private Sub TheMail_Send(Cancel As Boolean)
    If Not BoolRange Is Nothing Then
        BoolRange.Value = True
    End If
    If Not DateRange Is Nothing Then
        DateRange.Value = Now()
    End If
End Sub

And here’s how I use it:

With oMail
    .To = addr
    .Subject = "CCAT eVSM Utilities License Code"
    .Body = "Message body"
    .Display
End With
Set CurrWatcher = New EmailWatcher
Set CurrWatcher.BoolRange = Range("G12")
Set CurrWatcher.TheMail = oMail

Hopefully that helps…

More Related Contents:

  1. Where does Outlook store the VBA code files?
  2. Debugging an Outlook 2007 script fired by a rule
  3. Get reference to additional Inbox
  4. Get list of sub-directories in VBA
  5. How do I trigger a macro to run after a new mail is received in Outlook?
  6. Outlook VBA – Run a code every half an hour
  7. For Each loop: Some items get skipped when looping through Outlook mailbox to delete items
  8. Can I iterate through all Outlook emails in a folder including sub-folders?
  9. Download attachment from Outlook and Open in Excel
  10. Embed picture in outlook mail body excel vba
  11. Save attachments to a folder and rename them
  12. Where does VBA Debug.Print log to?
  13. MS Access VBA Error: Run time error ’70’ Permission Denied
  14. Outlook Reply or ReplyAll to an Email
  15. VBA Search in Outlook
  16. How to do late binding in VBA?
  17. Distinguish visible and invisible attachments with Outlook VBA
  18. Check for the senderEmailAddress
  19. Removing a string that includes CRLF characters from body of e-mail
  20. How to insert text into Outlook email editor using VBA
  21. How do you extract email addresses from the ‘To’ field in outlook?
  22. Procedure Too Large
  23. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  24. Add a “CC recipient” to Outlook 2010 VBA
  25. Using visual basic to access subfolder in Inbox?
  26. When is a MailItem not a MailItem? [closed]
  27. What are the differences between VBA 6.0 and VBA 7.0?
  28. How to add an embedded image to an HTML message in Outlook 2010
  29. Restrict Outlook Items by Date
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment