关于实现Outlook宏在点击发送按钮时自动运行的技术咨询

当然可以实现！你现在手动点宏按钮的操作完全能改成点击「发送」按钮时自动触发，核心是用Outlook内置的ItemSend全局事件——这个事件会在任何邮件被发送前自动触发，正好适配你的需求。下面给你一步步说怎么做：

第一步：找对代码存放的位置 #

Outlook的全局事件代码必须放在ThisOutlookSession模块里，不然事件不会生效：

• 按Alt + F11打开VBA编辑器
• 在左侧「Project」面板里，找到Microsoft Outlook Objects下的ThisOutlookSession，双击打开它的代码窗口

第二步：整合你的逻辑到ItemSend事件里 #

把你原来的主题判断逻辑移到这个事件中，下面是适配后的完整代码（我把你截断的逻辑补全了，比如发票主题开头假设是"Inv"，你可以根据实际情况调整）：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim mailItem As Outlook.MailItem
    Dim targetAccount As String
    
    ' 先判断传入的Item是不是邮件对象
    If TypeName(Item) <> "MailItem" Then Exit Sub
    Set mailItem = Item
    
    ' 处理Blanc Home的情况
    If Right(mailItem.Subject, 10) = "Blanc Home" Then
        ' 销售单：开头为"Sal"（对应Sales Order）
        If Left(mailItem.Subject, 3) = "Sal" Then
            mailItem.SentOnBehalfOfName = "Orders@BlancHome.com" ' 替换成你的实际邮箱
        ' 发票：开头为"Inv"（对应Invoice）
        ElseIf Left(mailItem.Subject, 3) = "Inv" Then
            mailItem.SentOnBehalfOfName = "Invoices@BlancHome.com" ' 替换成你的实际邮箱
        End If
    ' 在这里添加另外两家公司的判断分支，比如：
    ' ElseIf Right(mailItem.Subject, 12) = "XX Company" Then
    '     ' 对应的主题开头判断和发件人设置
    End If
    
    ' 可选：添加调试提示，验证逻辑是否触发
    ' MsgBox "已自动设置发件人：" & mailItem.SentOnBehalfOfName
End Sub

关键细节说明 #

1. ItemSend事件的参数：

   • Item：就是即将发送的邮件对象，不用再通过ActiveInspector获取，比你原来的方式更可靠（不管是从编辑窗口还是草稿箱发送都能触发）
   • Cancel：如果设置为True，会直接取消邮件发送，你可以在判断出错时用这个参数拦截，比如Cancel = True : MsgBox "主题格式不正确，请检查"

2. 发件人设置的注意点：
   确保你设置的SentOnBehalfOfName是Outlook已经配置好的邮箱账户，或者是你有权限代发的邮箱别名，不然发送时会报错。

3. 宏权限设置：
   要让这个事件宏生效，你需要启用Outlook的宏：

   • 打开Outlook「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」
   • 选择「启用所有宏」（如果是自用环境），或者「启用签署的宏」（如果你给宏做了数字签名）

测试方法 #

新建一封邮件，把主题设为Sal12345 Blanc Home（符合销售单的判断条件），点击发送，然后去已发送邮件里看发件人是否正确设置成了你指定的邮箱。如果加了调试MsgBox，发送前会弹出提示框，说明事件已经触发。

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