событие outlook newMail (newItem)

Question

Я работаю с Outlook 2003

Я ищу способ получить событие при создании новой почты (при создании окна новой почты)

Примечание: я ищу каждый способ, чтобы добавить меню в новое почтовое окно)

Answer 1

Этот пример кода должен быть помещен в модуль ThisOutlookSession. Перезапустите Outlook, и каждый раз, когда вы создаете новое письмо, вы увидите окно сообщения.

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