VB.NET开发Outlook加载项：实现转发邮件后根据处理结果标记原邮件分类

嘿，我完全懂你现在的困扰——你已经搞定了转发邮件的生成和分类设置，但卡在了「怎么等用户处理完转发窗口再决定要不要给原邮件加分类」这一步对吧？其实不用纠结怎么“暂停”代码执行，因为Outlook的UI操作都是异步的，硬暂停反而会卡死界面。咱们可以用事件监听的方式来解决这个问题，让代码“被动”响应用户的操作，而不是主动等待。

核心思路 #

Outlook的MailItem对象提供了Send和Close两个关键事件：

• 当用户点击发送转发邮件时，会触发Send事件，这时候咱们就给原邮件加上「Processed」分类
• 当用户直接关闭转发窗口（没发送）时，会触发Close事件，这时候啥也不用做

要实现这个逻辑，咱们需要把转发邮件的对象改成模块级的带事件声明的变量，这样才能订阅它的事件。

修改后的完整代码 #

首先，在你的Ribbon类顶部导入必要的命名空间（用于释放COM对象，避免内存泄漏）：

Imports System.Runtime.InteropServices
Imports Outlook = Microsoft.Office.Interop.Outlook

然后声明两个模块级变量，用来保存原邮件和转发邮件的引用：

' 带WithEvents声明，才能监听邮件的Send和Close事件
Private WithEvents fwdMail As Outlook.MailItem
' 保存原邮件的引用，方便后续修改分类
Private originalMail As Outlook.MailItem

接下来修改按钮点击事件，只负责生成转发邮件并显示，剩下的交给事件处理：

Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
    Try
        ' 获取当前选中的邮件
        originalMail = Globals.ThisAddIn.Application.ActiveInspector.CurrentItem
    Catch ex As Exception
        MessageBox.Show("请先选中一封要处理的邮件！")
        Exit Sub
    End Try

    ' 创建转发邮件并填充内容
    fwdMail = originalMail.Forward()
    fwdMail.Recipients.Add("<你的目标邮箱地址>")
    fwdMail.Subject = "Test Email"
    ' 显示转发窗口（非阻塞，代码会继续执行，但事件已经订阅好了）
    fwdMail.Display()
End Sub

然后添加Send事件处理函数——用户发送转发邮件时触发：

Private Sub fwdMail_Send(Cancel As Boolean) Handles fwdMail.Send
    ' 给原邮件添加分类并保存
    originalMail.Categories = "Processed"
    originalMail.Save()

    ' 释放COM对象，避免Outlook进程残留内存
    Marshal.ReleaseComObject(fwdMail)
    Marshal.ReleaseComObject(originalMail)
    ' 清空引用
    fwdMail = Nothing
    originalMail = Nothing
End Sub

最后添加Close事件处理函数——用户关闭转发窗口时触发：

Private Sub fwdMail_Close(Cancel As Boolean) Handles fwdMail.Close
    ' 只有当邮件没发送的时候，才需要清理引用（如果已经发送，Send事件已经处理过了）
    If Not fwdMail.Sent Then
        Marshal.ReleaseComObject(fwdMail)
        Marshal.ReleaseComObject(originalMail)
        fwdMail = Nothing
        originalMail = Nothing
    End If
End Sub

关键注意事项 #

• 必须释放COM对象：Outlook是基于COM的，如果你不手动释放这些对象引用，Outlook可能在关闭后还留在系统进程里，占用内存。
• 模块级变量的作用：用WithEvents声明fwdMail才能让我们订阅它的事件，否则无法捕捉用户的发送/关闭操作。
• 异步逻辑的处理：Display()方法是非阻塞的，调用后代码会立刻继续执行，但我们通过事件监听，就能在用户完成操作后再执行后续逻辑，完美解决了你“等待用户操作”的需求。

这样修改后，用户发送转发邮件，原邮件就会自动加上「Processed」分类；如果用户直接关闭转发窗口，原邮件不会有任何变化，完全符合你的需求！

备注：内容来源于stack exchange，提问作者user2325786