Excel 2016宏调用Outlook遇'Method 'To' of object'_mailItem' failed'错误求助

常见诱因 #

1. 新版Outlook的安全拦截：Outlook更新后对外部程序（比如Excel宏）访问邮件对象的权限限制更严，直接赋值.To容易被阻止。
2. 收件人邮箱无效：B16单元格是空的、带多余空格，或者不是合法的邮箱格式。
3. Outlook实例获取失败：未正确创建/调用Outlook应用程序对象。

修正后的宏代码 #

Sub SendEmailFromExcel()
    Dim olApp As Object
    Dim olMail As Object
    Dim recipientEmail As String
    
    ' 提取并清理收件人邮箱（去掉前后空格）
    recipientEmail = Trim(Range("B16").Value)
    
    ' 先检查邮箱是否为空
    If recipientEmail = "" Then
        MsgBox "B16单元格没填收件人邮箱！", vbExclamation
        Exit Sub
    End If
    
    ' 尝试获取已打开的Outlook实例，没有则新建
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(0) ' 0对应olMailItem常量
    
    ' 赋值并发送邮件，同时捕获错误
    On Error Resume Next
    With olMail
        .To = recipientEmail
        .Subject = "自定义邮件主题"
        .Body = "这里是邮件正文内容"
        ' 如需加附件，取消注释并修改路径
        ' .Attachments.Add "C:\你的文件路径.pdf"
        .Send ' 要预览的话改成.Display
    End With
    
    ' 反馈结果
    If Err.Number <> 0 Then
        MsgBox "发送失败：" & Err.Description, vbCritical
    Else
        MsgBox "邮件发送成功！", vbInformation
    End If
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

核心修复说明 #

• 先验证邮箱有效性：用Trim()清理空格，提前检查空值，避免给.To赋无效内容。
• 兼容Outlook实例获取：先抓取已运行的Outlook，不行再新建，降低权限触发风险。
• 用Late Binding：用Object声明Outlook对象，无需手动引用Outlook库，避免版本兼容问题（新版Outlook和旧库可能不匹配）。
• 错误捕获：添加错误处理逻辑，能明确区分是权限问题还是邮箱格式问题。

额外要做的设置 #

• Excel宏权限：打开文件>选项>信任中心>信任中心设置>宏设置，选择"启用所有宏"（自用宏安全前提下），或者"启用签署的宏"（给宏签名后）。
• Outlook安全提示：第一次运行可能弹出警告，选择"允许"；也可以在Outlook的信任中心里把Excel添加为信任程序。
• 可选优化：添加邮箱格式校验（比如用正则表达式检查是否符合xxx@xxx.xxx格式），进一步避免无效赋值错误。

内容的提问来源于stack exchange，提问作者Zeez Xerox