How to run a VBA macro when new mail is received in Outlook

It can be very useful to run a VBA macro when new mail is received in Outlook. A customer asked me to write something that would log an entry to a SQL database when an email produced contact form was received.

It’s easy to do but can take a bit of trial and error to get working just how you want it.

You need to add an event listener to the Inbox which will process incoming messages. A the following code to ThisOutlookSession:

1. Option Explicit
2. Private WithEvents inboxItems As Outlook.Items
4. Private Sub Application_Startup()
5. Dim outlookApp As Outlook.Application
6. Dim objectNS As Outlook.NameSpace
8. Set outlookApp = Outlook.Application
9. Set objectNS = outlookApp.GetNamespace("MAPI")
10. Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
11. End Sub
13. Private Sub inboxItems_ItemAdd(ByVal Item As Object)
14. On Error GoTo ErrorHandler
16. Dim Msg As Outlook.MailItem
17. Dim MessageInfo
18. Dim Result
19. If TypeName(Item) = "MailItem" Then
20. MessageInfo = "" & _
21. "Sender : " & Item.SenderEmailAddress & vbCrLf & _
22. "Sent : " & Item.SentOn & vbCrLf & _
23. "Received : " & Item.ReceivedTime & vbCrLf & _
24. "Subject : " & Item.Subject & vbCrLf & _
25. "Size : " & Item.Size & vbCrLf & _
26. "Message Body : " & vbCrLf & Item.Body
27. Result = MsgBox(MessageInfo, vbOKOnly, "New Message Received")
28. End If
30. ExitNewItem:
31. Exit Sub
33. ErrorHandler:
34. MsgBox Err.Number & " - " & Err.Description
35. Resume ExitNewItem
36. End Sub

You need to restart Outlook for the code to become active.

The above code will produce a simple message box that shows some of the message properties:

You can of course do whatever you like with the message when it is received. I used it to insert rows into a SQL table, then move the message to a different folder. It works very well.

It’s worth taking a look at all of the available properties of the Outlook mailitem that are available.

If you found this post helpful, I’d really appreciate it if you would rate it ?

Let me know in the comments section if you have any questions.

转载于:https://www.cnblogs.com/jjj250/p/11598144.html

• 点赞
• 收藏
• 分享
• 文章举报