网页版Outlook收件人格式问题：草稿发送失败报错

问题背景 #

通过Excel VBA从列表读取邮箱生成Outlook邮件草稿，桌面版Outlook显示正常，但网页版发送时提示：This message can't be sent right now. Please try again later.，已尝试调整To属性、使用Recipient.Add并添加<>符号，但问题未解决。

原VBA代码片段：

Sub Box()
Dim objOL As Object
Set objOL = CreateObject("Outlook.Application")
Dim Name As Namespace
Set Name = objOL.GetNamespace("MAPI")
Dim Msg As MailItem
Set Msg = objOL.CreateItemFromTemplate

Msg.To = Cond.Cells(i, 2).Text
Msg.CC = Cond.Cells(i, 3).Text
Msg.Subject = PP.Range("F1").Text
Msg.HTMLBody = "<HTML><BODY>" & Cond.Cells(i, 4) & Cond.Cells(i, 5) & "</BODY></HTML>"

可能的问题点及修正方案 #

1. 邮件创建方式的兼容性问题 #

原代码中CreateItemFromTemplate未指定模板路径，会导致邮件对象初始化不完整，网页版Outlook对这类不规范草稿兼容性较差。建议改用直接创建新邮件的方式：

Set Msg = objOL.CreateItem(0) ' 0对应olMailItem常量

2. 收件人格式的规范处理 #

直接赋值Msg.To或Msg.CC可能因单元格内容格式（如多余空格、分隔符不统一）导致网页版解析失败，改用Recipients.Add并明确指定收件人类型，确保Outlook正确识别邮箱：

' 添加收件人
Dim recpTo As Recipient
Set recpTo = Msg.Recipients.Add(Cond.Cells(i, 2).Text)
recpTo.Type = 1 ' 1对应olTo常量

' 添加抄送
Dim recpCC As Recipient
Set recpCC = Msg.Recipients.Add(Cond.Cells(i, 3).Text)
recpCC.Type = 2 ' 2对应olCC常量

' 强制解析收件人
Msg.Recipients.ResolveAll

3. HTML内容的语法规范 #

原代码拼接的HTML可能存在未闭合标签、特殊字符未转义的问题，网页版Outlook对HTML语法要求更严格。建议确保HTML结构完整，同时处理单元格中的特殊字符：

' 拼接完整且规范的HTML
Dim htmlContent As String
htmlContent = "<HTML><BODY>" & _
               Replace(Cond.Cells(i, 4).Text, "&", "&amp;") & _
               Replace(Cond.Cells(i, 5).Text, "&", "&amp;") & _
               "</BODY></HTML>"
Msg.HTMLBody = htmlContent

修正后的完整代码 #

Sub Box()
    Dim objOL As Object
    Set objOL = CreateObject("Outlook.Application")
    
    Dim ns As Namespace
    Set ns = objOL.GetNamespace("MAPI")
    
    Dim Msg As MailItem
    Set Msg = objOL.CreateItem(0) ' 直接创建新邮件，避免模板兼容性问题
    
    ' 添加收件人并指定类型
    Dim recpTo As Recipient
    Set recpTo = Msg.Recipients.Add(Cond.Cells(i, 2).Text)
    recpTo.Type = 1
    
    ' 添加抄送并指定类型
    Dim recpCC As Recipient
    Set recpCC = Msg.Recipients.Add(Cond.Cells(i, 3).Text)
    recpCC.Type = 2
    
    ' 解析所有收件人，确保格式正确
    If Not Msg.Recipients.ResolveAll Then
        MsgBox "部分收件人无法解析，请检查邮箱地址"
        Exit Sub
    End If
    
    Msg.Subject = PP.Range("F1").Text
    
    ' 规范HTML内容，转义特殊字符
    Dim htmlContent As String
    htmlContent = "<HTML><BODY>" & _
                   Replace(Cond.Cells(i, 4).Text, "&", "&amp;") & _
                   Replace(Cond.Cells(i, 5).Text, "&", "&amp;") & _
                   "</BODY></HTML>"
    Msg.HTMLBody = htmlContent
    
    ' 保存草稿（可选，根据需求调整）
    Msg.Save
End Sub

额外注意事项 #

• 确保Excel单元格中的邮箱地址无多余空格、换行符，多个邮箱用分号;分隔
• 网页版Outlook对邮件中的自定义样式、脚本支持有限，尽量使用基础HTML标签
• 若仍报错，可尝试将草稿在桌面版Outlook中重新保存后再同步到网页版

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