VSTO Outlook Visual Basic：邮件项关闭事件无法触发的问题排查

我帮你排查了代码里的问题，主要有两个关键点导致mailItem_Close函数无法触发，下面一步步给你讲清楚并提供修复后的代码：

1. 缺少事件绑定语句 #

你的mailItem_Close方法没有关联到mailItem对象的Close事件——也就是没有添加Handles mailItem.Close语句。不过这只是基础问题，还有更重要的对象生命周期问题需要解决。

2. 类级变量被覆盖，对象被垃圾回收 #

你用了一个类级的mailItem变量，当你打开第二个邮件时，这个变量会被新邮件对象覆盖，第一个邮件的Close事件就彻底失效了。而且如果没有对邮件对象的强引用，.NET的垃圾回收器可能会把它回收掉，导致事件根本无法触发。

修复后的完整代码 #

Public Class ThisAddIn
    Public WithEvents inspectors As Outlook.Inspectors
    ' 用集合保存所有打开的邮件项，防止被垃圾回收器回收
    Private activeMailItems As New List(Of Outlook.MailItem)

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        inspectors = Me.Application.Inspectors
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
        ' 清理集合，避免内存泄漏
        activeMailItems.Clear()
    End Sub

    Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
        ' 先判断当前项是否为邮件类型，避免类型转换错误
        Dim currentItem As Object = Inspector.CurrentItem
        If TypeOf currentItem Is Outlook.MailItem Then
            Dim mailItem As Outlook.MailItem = DirectCast(currentItem, Outlook.MailItem)
            
            ' 动态绑定Close事件
            AddHandler mailItem.Close, AddressOf mailItem_Close
            
            ' 将邮件对象添加到集合，保持强引用
            activeMailItems.Add(mailItem)

            ' 测试获取邮件信息（可以保留或删除）
            Dim mSubject As String = mailItem.Subject
            Dim mFrom As String = If(mailItem.SenderEmailAddress IsNot Nothing, mailItem.SenderEmailAddress, "无发件人")
            Dim mTime As String = mailItem.ReceivedTime.ToString()
            ' MsgBox(mSubject)
        End If
    End Sub

    Private Sub mailItem_Close(Cancel As Boolean)
        ' 获取触发事件的邮件对象，显示主题方便调试
        Dim closingMail As Outlook.MailItem = DirectCast(sender, Outlook.MailItem)
        MsgBox($"正在关闭邮件：{closingMail.Subject}")
        
        ' 从集合中移除已关闭的邮件，释放引用
        activeMailItems.Remove(closingMail)
    End Sub

关键修改点说明 #

• 类型判断更安全：用TypeOf currentItem Is Outlook.MailItem代替Inspector.CurrentItem.class = 43，代码可读性更高，还能避免非邮件项的类型转换错误
• 动态绑定事件：通过AddHandler为每个新打开的邮件单独绑定Close事件，不会因为新邮件覆盖变量而丢失旧邮件的事件绑定
• 保留强引用：用List(Of Outlook.MailItem)保存所有活动邮件，防止垃圾回收器回收对象导致事件失效
• 清理资源：在邮件关闭时从集合中移除对象，在插件关闭时清空集合，避免内存泄漏

另外，之前代码里的Inspector.CurrentItem.size > 0判断会跳过新建的空白邮件（这类邮件size为0），用类型判断就不会有这个问题啦。

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