Outlook Application_NewMailEx 在启动时不工作

我正在使用一个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

这是一个关于如何设置应用程序启动并在何时触发 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

应用程序启动事件（Outlook） https://msdn.microsoft.com/en-us/library/office/ff869298.aspx and Items.ItemAdd 事件（Outlook） https://msdn.microsoft.com/en-us/library/office/ff869609.aspx