I'm working with outlook 2003
I search a way to get the event when a new mail is created (when the window of new mail is created)
Note: I search every way to add a menu to new mail window)
This sample code should be placed in the ThisOutlookSession module. Restart Outlook and whenever you create a new email you will see the message box.
Private WithEvents objinspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set objinspectors = Application.Inspectors
End Sub
Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "MailItem" Then
MsgBox "newinspector"
End If
End Sub
来源:https://stackoverflow.com/questions/7996292/outlook-event-newmail-newitem