Excel VBA邮件宏问题：无法保留默认格式及正常插入签名

问题根源 #

1. 直接赋值myMail.Body会强制将邮件转为纯文本格式，破坏Outlook默认的邮件排版和HTML格式的签名，导致段间距异常、签名格式错乱。
2. 提前调用myMail.Display确实能触发Outlook加载默认签名和格式，但后续直接赋值Body会完全覆盖现有邮件内容，包括签名。

解决方案核心 #

先让Outlook加载默认签名和格式，再追加自定义内容到现有邮件内容前，而非直接替换整个邮件体；同时优化收件人拼接逻辑，避免无效地址。

修改后的完整代码 #

Sub Email()
' Email Macro
    Dim outlookapp As Object
    Dim myMail As Object
    Dim source_file As String, to_emails As String, cc_emails As String, body_emails As String
    Dim i As Integer

    ActiveWorkbook.Save
    Set outlookapp = CreateObject("outlook.Application")
    Set myMail = outlookapp.CreateItem(0) ' olMailItem对应数值0，后期绑定无需引用Outlook库

    ' 提前显示邮件，触发加载默认签名与格式
    myMail.Display

    ' 拼接收件人、抄送人、邮件内容（跳过空单元格）
    For i = 2 To 6
        If Cells(i, 1).Value <> "" Then to_emails = to_emails & Cells(i, 1).Value & ";"
        If Cells(i, 6).Value <> "" Then cc_emails = cc_emails & Cells(i, 6).Value & ";"
        If Cells(i, 5).Value <> "" Then body_emails = body_emails & Cells(i, 5).Value & vbNewLine
    Next i

    ' 移除末尾多余的分号
    If Len(to_emails) > 0 Then to_emails = Left(to_emails, Len(to_emails) - 1)
    If Len(cc_emails) > 0 Then cc_emails = Left(cc_emails, Len(cc_emails) - 1)

    ' 设置邮件基础属性
    myMail.To = to_emails
    myMail.CC = cc_emails
    myMail.Subject = Sheets("Email").Range("B2").Value

    ' 追加自定义内容到现有邮件体前（保留签名）
    ' 若默认邮件为纯文本格式，用下面这行：
    myMail.Body = body_emails & vbNewLine & myMail.Body
    ' 若默认邮件为HTML格式，替换为下面这行（自动转换行符为HTML换行）：
    ' myMail.HTMLBody = "<div>" & Replace(body_emails, vbNewLine, "<br>") & "</div><br>" & myMail.HTMLBody

    ' 添加附件
    source_file = ThisWorkbook.FullName
    myMail.Attachments.Add source_file

    ' 释放对象
    Set myMail = Nothing
    Set outlookapp = Nothing
End Sub

关键修改说明 #

• 变量声明规范：明确每个变量的类型，避免原代码中部分变量默认是Variant类型的隐患。
• 提前触发签名加载：myMail.Display会让Outlook自动插入默认签名并应用预设格式，这一步必须在设置邮件体前执行。
• 内容追加而非替换：通过myMail.Body = 自定义内容 & 原有Body的方式，把自定义内容加到签名前面，完全保留原有格式和签名。
• 优化地址拼接：跳过空单元格并移除末尾多余分号，避免出现无效的收件人/抄送人地址。
• 后期绑定兼容：用数值0代替olMailItem，无需手动引用Outlook对象库，提升代码兼容性。

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