How do I trigger a macro to run after a new mail is received in Outlook?

by

This code will add an event listener to the default local Inbox, then take some action on incoming emails. You need to add that action in the code below.

Private WithEvents Items As Outlook.Items 
Private Sub Application_Startup() 
  Dim olApp As Outlook.Application 
  Dim objNS As Outlook.NameSpace 
  Set olApp = Outlook.Application 
  Set objNS = olApp.GetNamespace("MAPI") 
  ' default local Inbox
  Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub
Private Sub Items_ItemAdd(ByVal item As Object) 

  On Error Goto ErrorHandler 
  Dim Msg As Outlook.MailItem 
  If TypeName(item) = "MailItem" Then
    Set Msg = item 
    ' ******************
    ' do something here
    ' ******************
  End If
ProgramExit: 
  Exit Sub
ErrorHandler: 
  MsgBox Err.Number & " - " & Err.Description 
  Resume ProgramExit 
End Sub

After pasting the code in ThisOutlookSession module, you must restart Outlook.

More Related Contents:

  1. Get reference to additional Inbox
  2. How to add default signature in Outlook
  3. Outlook VBA – Run a code every half an hour
  4. For Each loop: Some items get skipped when looping through Outlook mailbox to delete items
  5. Download attachment from Outlook and Open in Excel
  6. Embed picture in outlook mail body excel vba
  7. How to move each emails from inbox to a sub-folder [duplicate]
  8. Save attachments to a folder and rename them
  9. Outlook Reply or ReplyAll to an Email
  10. VBA Search in Outlook
  11. How to do late binding in VBA?
  12. Distinguish visible and invisible attachments with Outlook VBA
  13. Check for the senderEmailAddress
  14. Removing a string that includes CRLF characters from body of e-mail
  15. How to insert text into Outlook email editor using VBA
  16. How do you extract email addresses from the ‘To’ field in outlook?
  17. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  18. Add a “CC recipient” to Outlook 2010 VBA
  19. Using visual basic to access subfolder in Inbox?
  20. When is a MailItem not a MailItem? [closed]
  21. Search structured text in Outlook body
  22. Switching the FROM Inbox
  23. How to add an embedded image to an HTML message in Outlook 2010
  24. Iterate all email items in a specific Outlook folder
  25. Restrict Outlook Items by Date
  26. VBA Outlook Mail .display, recording when/if sent manually
  27. MS Access VBA: Sending an email through Outlook [closed]
  28. Where does Outlook store the VBA code files?
  29. Working with current open email
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment