第二个帐户收件箱的事件侦听器

Question

我正在尝试创建一个事件监听器：

• 我的 Outlook 会话中有两个帐户。
• 我想监控帐户 (2) 的新电子邮件。
• 当帐户（2）的收件箱中收到一封新电子邮件时，我想复制电子邮件的主题和正文并将其发送给另一个人。

我尝试了类似的东西：

For Each oAccount In Application.Session.Accounts

    If oAccount = "fakeemail@outlook.com" Then

Answer 1

您需要通过Application.Session.Folders按文件夹名称访问您的第二个帐户

GetDefaultFolder不适用于其他商店或邮箱。

或者您可以使用For Each oAccount In Application.Session.Accounts来获取GetDefaultFolder ，但如果您已经知道帐户名fakeemail@outlook.com ，则不要使用它。

例子

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

    Set olNs = Application.GetNamespace("MAPI")
    Set Inbox = olNs.Folders("fakeemail@outlook.com") _
                    .Folders("Inbox")
    Set Items = Inbox.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    If TypeOf Item Is Outlook.mailitem Then
        Debug.Print Item.Subject
    End If    
End Sub

仅供参考代码转到ThisOutlookSession