如何用VSTO Outlook插件监听指定Exchange账户的收件箱邮件？

没问题，你现在的代码只监听默认账户是因为GetDefaultFolder方法会直接返回当前默认MAPI命名空间下的收件箱。要监听指定账户，我们需要先定位到目标Exchange账户对应的Store，再获取它的收件箱。

修改思路 #

1. 遍历Outlook的Accounts集合，找到你关注的目标账户（可以通过邮箱地址、账户名称等属性匹配）
2. 获取该账户对应的Store对象
3. 通过Store.GetDefaultFolder方法获取该账户的收件箱（而非全局的GetDefaultFolder）
4. 给这个收件箱的Items集合绑定ItemAdd事件

修改后的完整代码 #

' 类级别声明变量，避免事件被垃圾回收
Private WithEvents targetInboxItems As Outlook.Items

Private Sub ThisAddIn_Startup() Handles Me.Startup
    Dim outlookNameSpace As Outlook.NameSpace = Me.Application.GetNamespace("MAPI")
    
    ' 定义目标账户的标识，比如邮箱地址或者账户显示名称
    Dim targetAccountEmail As String = "your-target-account@domain.com"
    
    ' 遍历所有账户，找到目标Exchange账户
    For Each account As Outlook.Account In Me.Application.Accounts
        ' 这里可以根据EmailAddress、DisplayName等属性判断，按需调整
        If account.EmailAddress.Equals(targetAccountEmail, StringComparison.OrdinalIgnoreCase) Then
            ' 获取该账户对应的Store
            Dim targetStore As Outlook.Store = account.DeliveryStore
            ' 获取该Store下的收件箱
            Dim targetInbox As Outlook.Folder = targetStore.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
            ' 绑定收件箱的Items事件
            targetInboxItems = targetInbox.Items
            Exit For
        End If
    Next
End Sub

Private Sub targetInboxItems_ItemAdd(ByVal item As Object) Handles targetInboxItems.ItemAdd
    If TypeOf item Is Outlook.MailItem Then
        Dim newMail As Outlook.MailItem = DirectCast(item, Outlook.MailItem)
        ' 在这里处理新收到的邮件，比如读取主题、发件人等
        ' 示例：Debug.WriteLine("新邮件：" & newMail.Subject)
    End If
End Sub

关键说明 #

• 类级别变量：一定要把targetInboxItems声明在类级别（而非方法内部），否则方法执行完毕后变量会被垃圾回收，事件监听会失效。
• 账户匹配逻辑：你可以根据实际需求调整判断条件，比如用account.DisplayName匹配账户名称，或者account.SmtpAddress匹配SMTP地址，确保能准确找到目标Exchange账户。
• Store对象：每个Exchange账户对应一个Store，通过account.DeliveryStore可以获取到该账户的存储位置，这样就能拿到属于这个账户的文件夹了。

内容的提问来源于stack exchange，提问作者Lucas Angelino