录制的Word VBA邮件合并宏出现运行时错误，求排查解决

日常需处理2-3个简单Word文档，通过邮件合并从Excel数据源发送邮件，操作步骤为：邮件选项卡→开始邮件合并→电子邮件，选择xlsm格式数据源后完成发送。为简化操作录制了VBA宏，但执行时在.Execute Pause:=False步骤出现运行时错误，提示：

by mail or fax without a valid mail address. Choose the Setup button to select a mail address data field.

错误原因 #

• 未指定收件人邮箱字段：录制宏时大概率跳过了「选择收件人邮箱字段」的关键步骤，宏代码里没有配置邮件合并的收件人地址映射逻辑，Word无法识别数据源中哪一列对应邮箱地址。
• Excel数据源存在问题：数据源里的邮箱列列名不明确（比如无清晰标识），或者该列存在空值、格式无效的邮箱地址。
• Word主文档设置缺失：主文档未完成邮件合并的收件人关联配置，导致宏执行时找不到有效邮箱来源。

修复方法 #

方法1：修改VBA代码，指定邮箱字段

在宏代码的.Destination = wdSendToEmail之后，添加指定收件人邮箱字段的代码（注意替换成你数据源中实际的邮箱列名，示例中为Email）：

Sub sendMailSheet1()
'
' sendMail Macro
'
    ActiveDocument.MailMerge.MainDocumentType = wdEMail
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\Hal 1GB M2\Documents\MyEmailer.xlsm", ConfirmConversions:=False _
        , ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Hal 1GB M2\Documents\MyEmailer.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Lo" _
        , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        ' 添加指定邮箱字段的代码，替换为你的数据源中邮箱列的实际列名
        .MailAddressFieldName = "Email"
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

方法2：检查数据源与重新录制宏

• 打开Excel数据源MyEmailer.xlsm，确认Sheet1中的邮箱列有清晰列名（比如Email、「收件邮箱」），且该列无空值、格式错误的邮箱地址。
• 手动打开Word文档，完整走一遍邮件合并流程：选择数据源后，点击「收件人」→「编辑收件人列表」确认邮箱字段被识别，再完成后续发送设置，最后重新录制宏（确保不跳过任何步骤）。

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