VSTO Outlook：邮件被规则移至子文件夹时ItemAdd事件未触发

方法一：使用Application级别的NewMailEx事件 #

这是最可靠的方案，无论邮件被规则移到哪个文件夹，新邮件到达时都会触发该事件，不受后续规则移动操作影响。

实现步骤： #

1. 声明带事件监听的Outlook Application对象：

Public WithEvents objOutlook As Outlook.Application

2. 在加载项启动时完成初始化：

objOutlook = New Outlook.Application()

3. 编写NewMailEx事件处理逻辑：

Private Sub objOutlook_NewMailEx(ByVal EntryIDCollection As String) Handles objOutlook.NewMailEx
    ' 拆分EntryID集合（批量接收邮件时，ID以逗号分隔）
    Dim entryIDs() As String = EntryIDCollection.Split(","c)
    For Each entryID As String In entryIDs
        Try
            ' 通过EntryID获取对应的邮件对象
            Dim mailItem As Outlook.MailItem = objOutlook.Session.GetItemFromID(entryID)
            If Not mailItem Is Nothing Then
                ' 在这里实现你的业务逻辑，比如读取邮件内容、标记已读等
                Debug.WriteLine("新邮件到达：" & mailItem.Subject)
                Marshal.ReleaseComObject(mailItem) ' 释放COM对象，避免内存泄漏
            End If
        Catch ex As Exception
            ' 异常捕获与处理
            Debug.WriteLine("处理邮件出错：" & ex.Message)
        End Try
    Next
End Sub

方法二：监听收件箱的所有子文件夹 #

如果仅需要关注收件箱及其子文件夹，可以遍历所有子文件夹并绑定ItemAdd事件，同时处理动态新增子文件夹的场景。

实现步骤： #

1. 声明全局集合存储绑定的Items对象（防止被GC回收导致事件失效）：

Private monitoredItems As New List(Of Outlook.Items)

2. 编写递归绑定子文件夹的方法：

Private Sub MonitorFolder(folder As Outlook.MAPIFolder)
    ' 绑定当前文件夹的ItemAdd事件
    Dim items As Outlook.Items = folder.Items
    AddHandler items.ItemAdd, AddressOf OnItemAdd
    monitoredItems.Add(items) ' 加入集合避免被回收

    ' 递归绑定所有子文件夹
    For Each subFolder As Outlook.MAPIFolder In folder.Folders
        MonitorFolder(subFolder)
    Next
End Sub

3. 编写通用的ItemAdd处理程序：

Private Sub OnItemAdd(ByVal item As Object)
    If TypeOf item Is Outlook.MailItem Then
        Dim mailItem As Outlook.MailItem = DirectCast(item, Outlook.MailItem)
        Debug.WriteLine("邮件被添加到文件夹：" & mailItem.Parent.Name & "，主题：" & mailItem.Subject)
        Marshal.ReleaseComObject(mailItem)
    End If
End Sub

4. 监听收件箱的FolderAdd事件，处理动态新增的子文件夹：

Public WithEvents inboxFolder As Outlook.MAPIFolder

' 在加载项启动时初始化
inboxFolder = objOutlook.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
MonitorFolder(inboxFolder) ' 初始化绑定所有已有子文件夹

' 当收件箱新增子文件夹时自动绑定事件
Private Sub inboxFolder_FolderAdd(ByVal newFolder As Object) Handles inboxFolder.FolderAdd
    If TypeOf newFolder Is Outlook.MAPIFolder Then
        MonitorFolder(DirectCast(newFolder, Outlook.MAPIFolder))
    End If
End Sub

注意事项 #

• 使用Outlook COM对象后，务必调用Marshal.ReleaseComObject释放资源，避免Outlook进程残留。
• NewMailEx事件无需关注文件夹结构变化，启动后即可全局捕获新邮件；监听子文件夹的方法则需要处理动态新增文件夹的情况。

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