需用VBA扩展Word邮件合并以实现个性化附件：先在数据源设“AttachmentID”字段并规范命名存放附件；再编写VBA代码调用Outlook逐封添加对应附件；或用IF域+PowerShell轻量替代；最后配置Outlook信任设置并调试错误。
如果您在使用Word邮件合并功能时，希望为不同收件人自动附加个性化文件（如合同、发票或证书），但标准邮件合并不支持动态附件添加，则需借助VBA脚本扩展其能力。以下是实现该目标的具体操作步骤：
一、准备结构化数据源与附件命名规则
邮件合并附件个性化依赖于数据源中存在可标识附件的字段（如“附件编号”或“文件名”），且所有待附文件须按统一路径存放并严格匹配字段值。此步骤确保VBA脚本能准确检索对应文件。
1、在Excel数据源中新增一列，例如命名为“AttachmentID”，每行填入唯一标识符（如“INV_2024_001”、“CONTRACT_B205”）。
2、将所有附件保存至同一本地文件夹（如“C:\MailMerge_Attachments\”），文件名必须与“AttachmentID”列内容完全一致，包括大小写与扩展名（如“INV_2024_001.pdf”、“CONTRACT_B205.docx”）。
3、确认Word主文档已正确链接该Excel数据源，并完成基础邮件合并域设置（如«姓名»、«邮箱»）。
二、插入VBA代码并绑定到邮件合并事件
通过修改Word的邮件合并执行流程，在生成每封邮件前触发VBA逻辑，读取当前记录的附件标识，检查文件是否存在，并调用Outlook对象模型附加该文件。此方法绕过Word原生限制，直接控制Outlook发送环节。
1、在Word中按
2、在模块中定义Sub SendMergedEmailsWithAttachments()，内含Do While Not .Recordset.EOF循环，逐条获取«邮箱»与«AttachmentID»字段值。
3、使用Dir函数校验附件路径+AttachmentID+".pdf"是否存在；若不存在，跳过附件或记录错误日志。
4、创建Outlook.Application对象，新建MailItem，将«邮箱»赋给.To，正文用ActiveDocument.MailMerge.DataSource.DataFields("正文内容").Value填充，再用.Attachments.Add指定完整附件路径。
三、使用书签+IF域预置附件逻辑（免VBA轻量方案）
当无法启用宏或仅需区分有限几类附件时，可在Word主文档中嵌入条件判断逻辑，配合外部批处理脚本批量导出单个文档后人工附加。该方案不调用Outlook，规避安全警告，适用于内部可信环境。
1、在Word主文档光标位置插入书签，名称设为“AttachRule”，并在其前后加入IF域：{ IF «AttachmentID» = "INV_*" "发票附件已关联" "合同附件已关联" }。
2、执行邮件合并非发送模式，选择“编辑单个文档” → “全部”，生成含书签标记的独立文档集。
3、编写PowerShell脚本遍历生成的每个DOCX文件，读取其内嵌书签“AttachRule”的显示文本，匹配关键词后从固定文件夹复制对应类型附件至同名子文件夹。
4、手动将各子文件夹中的DOCX与附件拖入Outlook新邮件窗口完成发送。
四、配置Outlook信任中心与数字签名验证
VBA脚本调用Outlook对象时，系统默认阻止自动化操作以防范恶意邮件。必须预先配置Outlook客户端允许受信任位置的宏运行，并为VBA项目添加数字签名，否则附件添加步骤将在第二封邮件处中断。
1、打开Outlook → 文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置，选择“启用所有宏（不推荐；可能会运行有危险的代码）”或“禁用所有宏，并发出通知”。
2、返回Word VBA编辑器，点击“工具” → “数字签名” → “选择”，使用企业证书或自签名证书对Normal.dotm进行签名。
3、重启Word与Outlook，确保状态栏显示“已启用宏”且Outlook弹窗提示“是否允许此脚本访问电子邮件？”时点击允许。
五、调试与错误捕获关键点
附件路径错误、文件权限缺失或Outlook未启动是VBA执行失败的三大主因。启用详细错误日志并设置断点可快速定位问题环节，避免批量发送中断导致部分收件人缺失附件。
1、在VBA代码首行添加On Error GoTo ErrorHandler，末尾添加ErrorHandler: MsgBox "错误 " & Err.Number & ": " & Err.Description & " 在记录 " & .DataSource.ActiveRecord。
2、在循环体内插入Debug.Print "正在处理：" & .DataSource.DataFields("邮箱").Value & "，附件路径：" & attachmentPath，运行时查看立即窗口输出。
3、确保每次发送后调用MailItem.Send而非.Display，防止大量未关闭邮件实例堆积内存；添加Set MailItem = Nothing释放对象引用。
