检测共享帐户中的传入电子邮件

问：

我使用以下代码来检测电子邮件何时到达。我在 Outlook 中有一个个人帐户，三个是共享的。

如果一封电子邮件到达我的个人帐户，则代码正在工作并显示消息。
如果电子邮件到达其他帐户，则无法正常工作。Debug.Print

Public Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Debug.Print "TEST"
    Dim MailItem As Outlook.MailItem
    Set MailItem = Application.Session.GetItemFromID(EntryIDCollection)
    
    Debug.Print "Neue E-Mail empfangen von: " & MailItem.SenderEmailAddress