VBA生成Outlook邮件时HTMLbody过长致运行时错误1004求助

核心解决方案 #

• 将超长HTML邮件内容拆分为多个字符串变量，分步拼接，规避单条语句长度限制引发的语法解析错误
• 修正字符串拼接时的细节问题（如&前后保留空格，避免语法歧义）
• 使用中文邮件内容替换原英文内容，适配业务场景需求

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim OutObj As Object, OutMail As Object
    Dim msgPart1 As String, msgPart2 As String, msgPart3 As String
    Dim msgPart4 As String, msgPart5 As String, msgPart6 As String
    
    Set OutObj = CreateObject("Outlook.Application")
    Set OutMail = OutObj.CreateItem(0)
    
    ' 拆分邮件内容为多个变量，避免单条字符串过长
    msgPart1 = "尊敬的" & Range("S28") & ":<br/><br/>您的" & Range("S30") & "工作（工单编号：" & Range("S31") & "）位于" & Range("S32") & "，即将进入施工流程的施工阶段。目前该工作正由调度部门分配至具体施工组和施工人员。<br/>"
    msgPart2 = Range("S33") & "是负责此项目的施工项目经理，将全程监督施工过程，若您有任何疑问或顾虑，请直接联系他/她。为方便您沟通，我们已将其添加至本邮件的抄送列表。<br/>"
    msgPart3 = "施工完成后，若您在最终仪表安装方面需要额外支持，请与我联系，我将竭诚为您服务。请注意，我们收到您的验收申请后，通常需要几天时间安排相关工作。<br/>"
    msgPart4 = "开始施工前，需满足以下现场准备条件：<br/>1- " & Range("A1") & "<br/>2- " & Range("A2") & "<br/>3- " & Range("A3") & "<br/>4- " & Range("A4") & "<br/>"
    msgPart5 = "最后，为确保我们在该项目阶段纳入合适的对接人员，若您有其他或额外需要参与施工协调的人员，请通知我们。您可以将这些人员添加到本邮件的回复线程中，或提供他们的姓名和最佳联系方式，以便我们直接联系。<br/>"
    msgPart6 = "非常感谢您的配合，如有任何疑问或顾虑，请随时与我们联系！<br/>此致，<br/>" & Range("S35")
    
    With OutMail
        .To = Range("S29").Value
        .CC = Range("S34").Value
        .BCC = Range("S36").Value
        .Subject = "公司 - 施工阶段联系信息 - " & Range("E4")
        .HTMLBody = msgPart1 & msgPart2 & msgPart3 & msgPart4 & msgPart5 & msgPart6
        .Display
    End With
    
    ' 释放对象，避免内存泄漏
    Set OutMail = Nothing
    Set OutObj = Nothing
End Sub

关键说明 #

1. 拆分变量的必要性：VBA单个字符串支持最大长度为2^31-1，但直接编写超长单条拼接语句时，易因编辑器解析限制或语法细节触发运行时错误1004，拆分后可有效规避此问题。
2. 语法细节修正：原代码存在"&Range("A4")这类&前后无空格的写法，可能导致语法解析错误，修改后统一为& Range("A4") &的规范格式。
3. 对象释放：新增对象释放语句，避免长期运行导致的内存泄漏问题。

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