Excel VBA生成草稿邮件时添加默认签名的格式问题

问题根源 #

原代码用Body属性（纯文本格式）拼接正文与签名，会丢失签名的HTML格式；若直接使用HTMLBody但未正确处理签名获取逻辑，会导致签名被覆盖或出现不明超链接。

修正方案 #

先通过Display方法触发Outlook加载默认签名，获取签名的HTML内容，再将Excel中的正文转换为HTML格式后与签名拼接，最终赋值给HTMLBody属性。

修正后的代码 #

Sub DraftEmail()
    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim lCounter As Long
    Dim signatureHTML As String
    Dim bodyText As String
    
    '初始化Outlook对象
    Set objOutlook = Outlook.Application
    
    '遍历生成邮件（示例为第6行，可修改范围实现批量生成）
    For lCounter = 6 To 6
        '创建新邮件实例
        Set objMail = objOutlook.CreateItem(olMailItem)
        '触发Outlook加载默认签名
        objMail.Display
        '保存签名的HTML内容
        signatureHTML = objMail.HTMLBody
        
        '读取收件人、抄送人、主题
        objMail.To = Worksheets("Draft Email").Range("A" & lCounter).Value
        objMail.CC = Worksheets("Draft Email").Range("B" & lCounter).Value
        objMail.Subject = Worksheets("Draft Email").Range("C" & lCounter).Value
        
        '转换Excel正文为HTML换行格式，拼接签名
        bodyText = Replace(Worksheets("Draft Email").Range("D" & lCounter).Value, vbCrLf, "<br>")
        objMail.HTMLBody = bodyText & signatureHTML
        
        '添加附件（取消注释并确保路径有效时启用）
        'If Worksheets("Draft Email").Range("E" & lCounter).Value <> "" Then
        '    objMail.Attachments.Add Worksheets("Draft Email").Range("E" & lCounter).Value
        'End If
        
        '释放当前邮件对象
        Set objMail = Nothing
    Next lCounter
    
    MsgBox "草稿邮件已生成。", vbInformation
End Sub

关键说明 #

1. 签名获取时机：必须先调用objMail.Display，Outlook才会加载默认签名，此时才能正确获取到签名的HTML结构。
2. 格式兼容处理：将Excel单元格内的换行符vbCrLf替换为HTML换行标签<br>，保证正文在邮件中格式正常。
3. 批量生成注意：批量生成多封邮件时，需在循环内创建新的MailItem对象，避免前一封邮件的内容被覆盖。

额外提示 #

• 若Excel单元格包含字体样式、颜色等复杂格式，需额外编写代码将单元格格式转换为HTML，可借助PublishObjects工具实现。
• 确保Outlook已配置默认签名，否则signatureHTML会为空。

内容的提问来源于stack exchange，提问作者Elaine Perez Canlas