Excel VBA调用Outlook默认签名时图片不显示问题排查

这段Excel VBA代码用于批量生成带指定附件的邮件，意图保留Outlook默认签名，但签名中的公司Logo无法正常显示。手动撰写邮件时签名图片显示正常，且代码需供多用户使用，因此需要保持与默认签名的关联，代码其他功能运行正常。

原代码：

Sub send_Multiple_Email()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Bulk Email Table")

Dim OA As Object
Dim msg As Object, signature As String

Set OA = CreateObject("Outlook.Application")

Set msg = OA.createitem(0)

With msg
    .Display
    signature = msg.HTMLbody
End With

Dim i As Integer
Dim last_row As Integer

last_row = Application.WorksheetFunction.CountA(sh.Range("B:B"))

With msg

    For i = 2 To last_row
        Set msg = OA.createitem(0)
 
        msg.To = sh.Range("B" & i).Value
        msg.cc = sh.Range("C" & i).Value
        msg.Subject = sh.Range("D" & i).Value
        msg.HTMLbody ActiveSheet.TextBoxes("TextBox 3").Text & vbNewLine & signature
        msg.Attachments.Add sh.Range("E" & i).Value

        msg.Display
    Next i 

    MsgBox "Emails Prepared"

End With

Set OA = Nothing
Set msg = Nothing

End Sub

问题原因 #

提前一次性获取的签名HTML中，图片引用依赖Outlook自动关联的本地附件或CID标识。当把这段HTML直接复制到新邮件时，新邮件并未同步加载签名对应的图片附件，导致图片无法解析显示。

修复方案 #

将签名获取逻辑移到循环内部，每创建新邮件后先触发Display操作，让Outlook自动加载完整签名（包括图片附件），再拼接自定义内容，确保签名资源关联正常。

修改后的代码：

Sub send_Multiple_Email()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Bulk Email Table")
    
    Dim OA As Object
    Dim msg As Object
    Dim customBody As String
    Dim last_row As Integer
    
    Set OA = CreateObject("Outlook.Application")
    last_row = Application.WorksheetFunction.CountA(sh.Range("B:B"))
    
    For i = 2 To last_row
        ' 创建新邮件
        Set msg = OA.CreateItem(0)
        
        ' 先Display让Outlook加载默认签名
        msg.Display
        
        ' 处理自定义内容，转成HTML换行格式
        customBody = Replace(ActiveSheet.TextBoxes("TextBox 3").Text, vbNewLine, "<br>")
        
        ' 拼接自定义内容和签名HTML，保留签名的图片关联
        msg.HTMLBody = customBody & "<br><br>" & msg.HTMLBody
        
        ' 设置邮件其他属性
        msg.To = sh.Range("B" & i).Value
        msg.CC = sh.Range("C" & i).Value
        msg.Subject = sh.Range("D" & i).Value
        msg.Attachments.Add sh.Range("E" & i).Value
    Next i
    
    MsgBox "Emails Prepared"
    
    Set OA = Nothing
    Set msg = Nothing
End Sub

关键改动说明 #

• 签名获取时机调整：在循环内每创建新邮件后执行Display，让Outlook自动加载当前用户的默认签名及关联图片附件，避免跨邮件的资源引用失效。
• HTML内容正确拼接：将自定义文本的换行符替换为HTML的<br>标签，避免破坏签名的HTML结构；用<br><br>分隔自定义内容和签名，保证排版清晰。
• 移除全局签名变量：不再提前缓存签名，确保每封邮件的签名都是Outlook实时加载的完整版本，适配不同用户的签名配置。

此修改后，批量生成的邮件会和手动撰写的邮件一样，正常显示签名中的Logo，同时保持与用户默认签名的关联。

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