如何控制VBA类的终止时机？Outlook邮件发送场景异常

你的问题核心在于类对象的生命周期管理：当你从邮件窗口切回Excel时，Mail_Test过程里的局部变量myMailItem已经失去作用域，VBA的自动垃圾回收机制会销毁这个类实例，导致Class_Terminate提前触发，后续的ItemSend事件自然无法正常绑定执行。

具体原因 #

在你的调用代码Mail_Test中，myMailItem是过程级局部变量，当CreateAndDisplayMailItem执行完毕、Mail_Test过程结束后，这个变量的生命周期就结束了。即使Outlook邮件窗口还开着，只要没有其他地方持有对这个类实例的引用，VBA就会回收它，触发终止事件。

解决方案：提升引用作用域 #

要让类实例在邮件发送完成前一直存活，需要把类对象的引用从局部变量改为模块级变量或者全局变量，这样它的生命周期会延长到模块关闭或者你主动销毁它为止。

步骤1：修改调用模块的代码

把myMailItem声明为模块级变量，放在所有过程之外：

' 在模块的顶部，所有Sub/Function之外声明
Dim myMailItem As clsMailItem

Sub Mail_Test()
    Set myMailItem = New clsMailItem
    myMailItem.MailSubject = "Test überschrift"
    myMailItem.MailBody = "Test Body"
    myMailItem.MailRecipient = "xyz@test.de"
    myMailItem.CreateAndDisplayMailItem
End Sub

步骤2：优化类模块的事件绑定

另外，你的类模块里mOutlook_ItemSend是绑定到Outlook应用的全局发送事件，其实更精准的是绑定到你创建的mMailItem的Send事件，这样只会监听当前这个邮件的发送动作，而不是所有Outlook邮件的发送：

Option Explicit

Public MailSubject As String
Public MailRecipient As String
Public MailBody As String
Public WithEvents mMailItem As Outlook.MailItem

Private Sub Class_Initialize()
    MsgBox "mMailItem Class-object has been initialized"
End Sub

Public Sub CreateAndDisplayMailItem()
    Set mMailItem = Outlook.CreateItem(olMailItem)
    With mMailItem
        .To = MailRecipient
        .Subject = MailSubject
        .Body = MailBody
        .Display
    End With
End Sub

Private Sub Class_Terminate()
    Set mMailItem = Nothing
    MsgBox "mMailItem Class-object has been terminated"
End Sub

' 绑定到当前邮件的Send事件，而非全局Outlook应用的ItemSend
Private Sub mMailItem_Send(Cancel As Boolean)
    MsgBox "mMailItem Send Event has been triggered"
    ' 在这里调用你的工作簿宏
    Call MyMacro
    ' 邮件发送完成后，可以主动销毁类实例（可选）
    Set myMailItem = Nothing
End Sub

额外注意事项 #

• 如果需要同时处理多个邮件实例，可以用一个全局的集合来存储类对象引用，避免单个变量的限制。
• 邮件发送完成后，记得主动设置Set myMailItem = Nothing来释放资源，触发Class_Terminate。
• 确保Outlook对象库已经引用：在VBA编辑器中，点击工具→引用，勾选Microsoft Outlook xx.x Object Library。

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