Outlook Application_NewMailEx не работает при запуске

Question

Я использую Application_NewMailEx для обработки всех полученных сообщений. Он отлично работает на электронных письмах, полученных во время открытия Outlook.

Однако при запуске Application_NewMailEx не получает звонки по полученным электронным письмам.

Я пробовал использовать Application_Startup, но он вызывается до получения сообщений электронной почты ==> не работает. Существует не application.ontime для задержки запуска макроса ... Application_NewMail делает то же самое.

Как это сделать?

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
    INIT_FOLD 
    TreatMsg Application.GetNamespace("MAPI").GetItemFromID(EntryIDCollection) 
End Sub 

Answer 1

Событие NewMailEx будет срабатывать только для сообщений, полученных во время работы вашего кода. До этого он не срабатывал для сообщений электронной почты, полученных в вашем (Exchange?) Почтовом ящике.

Вы можете обрабатывать непрочитанные письма в папке «Входящие» при запуске (Items.Restrict или Items.Find/FindNext), предполагая, что новые необработанные сообщения по-прежнему непрочитаны или (в случае кэширования) используют событие Items.ItemAdd на Папка «Входящие» - она ​​срабатывает, когда ваш файл OST синхронизируется с удаленным почтовым ящиком.

Answer 2

Элементы Item.ItemAdd и NewMailEx не работают, если у вас есть более 8 элементов. Microsoft не гарантирует, что это вызовет это событие.

Answer 3

Вот пример того, как настроить запуск приложения и запустить свой VBA, когда MailItem это добавить в папку Входящие

Private WithEvents Items As Outlook.Items 
Private Sub Application_Startup() 
    Dim olNs As Outlook.NameSpace 
    Dim Inbox As Outlook.MAPIFolder 

    Set olNs = Application.GetNamespace("MAPI") 
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox) 
    Set Items = Inbox.Items 
End Sub 

Private Sub Items_ItemAdd(ByVal Item As Object) 
    If TypeOf Item Is Outlook.MailItem Then 
     Example Item ' call sub 
    End If 
End Sub 

Public Sub Example(ByVal Item As Object) 
    Debug.Print Item.Subject ' Immediate Window 
End Sub 

Application.Startup Event (Outlook) и Items.ItemAdd Event (Outlook)

_{Items.ItemAdd Event (Outlook) Происходит при добавлении одного или нескольких предметов в указанную коллекцию. Это событие не запускается, когда сразу же добавляется большое количество элементов в папку. Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).}

---

_{Application.Startup Event (Outlook) Происходит, когда Microsoft Outlook начинает, но после того, как были загружены все дополнения в программы.}

---