如何实现Outlook自动打印特定发件人邮件的附件？

一、编写有效VBA宏代码 #

以下代码可实现检测特定发件人邮件，并自动打印其附件（跳过签名等嵌入项，避免无效打印）：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub AutoPrintSpecificSenderAttachments(Item As Outlook.MailItem)
    ' 替换为目标发件人的SMTP邮箱地址
    Const TargetSender As String = "sender@example.com"
    Dim tempDir As String
    tempDir = Environ("TEMP") & "\"
    
    ' 匹配发件人（Exchange账户可改用Item.Sender.GetExchangeUser().PrimarySmtpAddress）
    If LCase(Item.SenderEmailAddress) = LCase(TargetSender) Then
        Dim attachment As Outlook.Attachment
        For Each attachment In Item.Attachments
            ' 跳过嵌入型附件（如邮件签名图片）
            If attachment.Type <> olEmbeddeditem Then
                Dim tempFilePath As String
                tempFilePath = tempDir & attachment.FileName
                
                ' 保存附件到临时目录
                attachment.SaveAsFile tempFilePath
                
                ' 调用系统关联程序打印文件
                ShellExecute 0, "print", tempFilePath, vbNullString, vbNullString, vbHide
                
                ' 延迟1秒确保打印任务提交（可根据附件大小调整）
                Application.Wait Now + TimeValue("00:00:01")
            End If
        Next attachment
    End If
End Sub

代码关键说明： #

• TargetSender：替换为你需要监控的发件人邮箱地址，使用LCase统一小写避免大小写匹配问题
• 跳过olEmbeddeditem类型附件：排除邮件签名、正文内嵌图片等无需打印的内容
• ShellExecute：调用系统默认关联程序打印附件，需确保目标文件格式有对应打印程序（如PDF需PDF阅读器，Excel文件需Office）
• 临时目录：使用系统TEMP路径，避免权限问题

二、关联Outlook规则 #

1. 打开Outlook，点击「文件」→「管理规则和通知」
2. 点击「新建规则」，选择「对我接收的邮件应用规则」，点击下一步
3. 添加条件：勾选「发件人为个人或公用组」，选择目标发件人，点击下一步
4. 添加操作：勾选「运行脚本」，在下拉列表中选择AutoPrintSpecificSenderAttachments宏，点击下一步
5. 按需设置例外规则（如跳过已读邮件），点击「完成」保存规则

三、常见问题排查 #

• 宏权限问题：打开「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选择「通知我所有宏」或「启用所有宏」（注意安全风险，仅信任来源的宏）
• Exchange账户发件人匹配失败：将Item.SenderEmailAddress替换为Item.Sender.GetExchangeUser().PrimarySmtpAddress，确保获取正确的SMTP地址
• 附件无法打印：检查附件格式是否有对应打印程序，确保程序支持无交互打印（部分程序需设置默认打印机）
• 临时文件未清理：可添加代码在打印后删除临时文件，避免磁盘占用（需注意打印任务完成后再删除）

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