Excel VBA调用Outlook邮件.Send函数失效求助

根据你描述的现象（Display正常显示邮件，但Send发送异常），结合Outlook VBA发送邮件的常见问题，给出以下排查和解决步骤：

1. 检查收件人/地址格式 #

确保邮件的To/CC/BCC字段设置了有效的邮箱地址或联系人，避免空值或格式错误（比如缺少@符号、域名拼写错误）。

2. 处理Outlook安全限制 #

Outlook默认会阻止程序自动发送邮件并弹出安全警告，如果代码没有处理这个交互，会导致发送失败。可以通过以下方式解决：

• 打开Outlook选项 → 信任中心 → 信任中心设置 → 程序访问，勾选“允许程序访问我的通讯簿”（注意此设置会降低安全等级，谨慎使用）
• 更可靠的方案是使用Outlook Redemption库，它可以绕过Outlook的安全限制，实现无提示发送

3. 确保邮件对象初始化完整 #

虽然Display能正常显示，但Send可能需要一些必填字段（比如至少一个收件人、非空主题）。确认代码中已明确设置这些内容，比如：

objMail.To = "recipient@example.com"
objMail.Subject = "测试邮件"

4. 优化对象资源管理 #

如果是循环发送多封邮件，每次创建MailItem对象后，发送完成要及时释放内存，避免资源冲突：

Dim objMail As Outlook.MailItem
For i = 1 To 3
    Set objMail = Outlook.CreateItem(olMailItem)
    ' 设置邮件内容...
    objMail.Send
    Set objMail = Nothing ' 释放对象
Next i

5. 捕获错误信息定位问题 #

在代码中添加错误捕获，获取具体的错误描述，能更快定位问题：

On Error Resume Next
objMail.Send
If Err.Number <> 0 Then
    Debug.Print "发送错误：" & Err.Number & " - " & Err.Description
    MsgBox "邮件发送失败：" & Err.Description
End If
On Error GoTo 0

内容的提问来源于stack exchange，提问作者Esben Holm Hjørringgaard