Excel内置附件发送邮件时Outlook宏无法触发的问题求助

这个问题我之前碰到过不少次，核心原因其实是Outlook的Application级事件触发机制和Excel调用Outlook的方式不匹配：你在ThisOutlookSession里写的代码（比如常用的ItemSend事件），只有当邮件是通过Outlook客户端自身的交互操作发送时才会触发——比如在Outlook里新建邮件点击发送，或者打开已存邮件后点击发送。但Excel通过内置功能（或者VBA调用Outlook对象模型）直接发送邮件时，属于外部程序通过自动化接口调用Outlook，这种方式会绕过Outlook的事件触发逻辑，所以你的代码不会执行。

下面给你几个可行的解决方案：

方案1：把Outlook的代码逻辑整合到Excel的发送代码里 #

如果你的Outlook代码是用来处理邮件的主题、内容、附件或者其他属性，最直接的方式是把这部分逻辑迁移到Excel的VBA代码中，在发送前先完成处理。

举个例子，假设你Outlook里的ItemSend事件是给邮件主题添加前缀：

' Outlook ThisOutlookSession里的原代码
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Item.Subject = "[Excel发送] " & Item.Subject
End Sub

那你可以在Excel的发送代码里直接实现这个逻辑：

' Excel里的发送邮件代码
Sub SendMailWithOutlookLogic()
    Dim olApp As Object
    Dim olMail As Object
    
    ' 创建Outlook应用和邮件对象
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0) ' olMailItem，对应新建邮件
    
    ' 执行原Outlook代码里的逻辑
    olMail.Subject = "[Excel发送] " & "你的邮件主题"
    olMail.To = "收件人邮箱@example.com"
    olMail.Body = "邮件正文内容"
    
    ' 添加Excel文件作为附件（模拟Excel内置发送附件的场景）
    olMail.Attachments.Add ThisWorkbook.FullName
    
    ' 发送邮件
    olMail.Send
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

方案2：让邮件在Outlook中显示后手动发送 #

如果你不想修改Excel代码，或者必须保留Outlook里的事件逻辑，可以让Excel创建的邮件先在Outlook中显示出来，然后手动点击发送按钮——这样就会触发Outlook的ItemSend事件。

只需要把Excel代码里的olMail.Send改成olMail.Display：

Sub ShowMailInOutlookFirst()
    Dim olApp As Object
    Dim olMail As Object
    
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    olMail.To = "收件人邮箱@example.com"
    olMail.Subject = "待发送的邮件主题"
    olMail.Attachments.Add ThisWorkbook.FullName
    
    ' 打开Outlook邮件窗口，手动点击发送
    olMail.Display
    
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

方案3：使用Outlook的规则（如果适用） #

如果你的Outlook代码是做一些标准化的处理（比如添加特定签名、分类邮件），可以考虑用Outlook的规则功能替代VBA代码。规则可以针对所有发送的邮件生效，不管邮件是从Outlook本身还是Excel发送的，这样就能覆盖你的场景。

比如你可以创建一个“发送邮件时”的规则，设置对应的操作（比如添加主题前缀、标记类别等），这样不管邮件来源是哪里，规则都会自动执行。

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