如何触发Outlook MailItem的AttachmentAdd事件？Excel VBA实现遇阻

问题描述 #

我正尝试从.xlsx文件提取数据并发送Outlook邮件，测试代码无法触发MailItem的AttachmentAdd事件，MsgBox始终不弹出，怀疑是否因为在Excel-VBA工程窗口编写代码？

原始代码 #

类模块（类名：ApplicationEventClass2） #

Public WithEvents newItem As Outlook.MailItem

Private Sub newItem_AttachmentAdd(ByVal Attachment As Outlook.Attachment)
MsgBox ("you added an attachment")
End Sub

模块（模块名：Module1） #

Sub cwOut1()

Dim MyOutlook1 As Object
Set MyOutlook1 = CreateObject("Outlook.Application")

Dim newItem As Object
Set newItem = MyOutlook1.CreateItem(olMailItem)

newItem.Display

Dim atts As Outlook.Attachments
 
Dim newAttachment As Outlook.Attachment

newItem.Subject = "Test attachment"
 
Set atts = newItem.Attachments
 
Set newAttachment = atts.Add("C:\Users\Admin\Desktop\Test.txt", olByValue)

End Sub

20230515修正代码（模块名：Module1） #

Sub cwOut1()
Dim aa123 As MailItem
Set aa123 = CreateItem(olMailItem)
Dim newClass As New ApplicationEventClass2
Set newClass.newItem = aa123
aa123.display

 Dim atts As Outlook.Attachments

 aa123.Subject = "Test attachment"
 
 aa123.Attachments.Add "C:\Users\asdf\Desktop\Test.txt"
 
End Sub

预期效果 #

在Excel中运行宏Sub "cwOut1"后，自动生成带Test.txt附件的邮件，并弹出显示"you added an attachment"的MsgBox。

核心问题：对象生命周期过短 #

修正后的代码中，newClass是过程级变量，当cwOut1宏执行完毕后，VBA会自动回收这个变量，导致WithEvents关联的事件监听失效。虽然附件是在过程内添加的，但事件触发时newClass已被销毁，所以MsgBox无法弹出。

解决步骤 #

1. 将newClass改为模块级变量
   在模块的最顶部（所有过程之外）声明变量，这样变量的生命周期会持续到模块被卸载或Excel关闭，确保事件监听始终有效：

   ' 模块级变量，放在Module1的所有Sub/Function之外
   Dim newClass As ApplicationEventClass2
   
   Sub cwOut1()
       Dim aa123 As Outlook.MailItem
       ' 明确创建Outlook实例，避免依赖全局CreateItem
       Set aa123 = CreateObject("Outlook.Application").CreateItem(olMailItem)
       Set newClass = New ApplicationEventClass2
       Set newClass.newItem = aa123
       
       aa123.Subject = "Test attachment"
       aa123.Attachments.Add "C:\Users\asdf\Desktop\Test.txt"
       aa123.Display
   End Sub
   

2. 确认引用Outlook对象库
   打开VBA编辑器 → 点击「工具」→「引用」→ 勾选「Microsoft Outlook XX.X Object Library」（XX.X对应你的Outlook版本），避免后期绑定可能引发的类型匹配问题。

补充说明 #

WithEvents事件触发的前提是，关联的类实例必须保持存活状态。过程级变量在执行完所在过程后就会被释放，无法监听后续事件；提升为模块级或全局变量后，对象引用得以保留，事件就能正常触发。

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