MS Access VBA发Outlook邮件时签名图片无法显示的解决方法

问题根因 #

你当前代码读取签名htm文件直接拼接正文的写法，图片不显示是必然结果，核心原因有两个：

• 签名htm内的图片引用用的是相对路径，仅写了图片文件名，没有带Signatures文件夹的完整绝对路径，拼接进邮件HTML后Outlook找不到对应文件
• HTML邮件里的本地图片必须作为内嵌附件关联到邮件，配置对应Content-ID才能正常显示，直接读htm内容不会自动完成这个操作

另外你现有代码还有两个会影响功能的逻辑错误：

1. 拼接HTML正文用了vbNewLine，这是纯文本换行符，在HTML正文里不会被识别为换行，还可能破坏HTML结构
2. 代码末尾判断如果是程序启动的Outlook就直接执行Quit，会把刚弹出的还没等用户操作的邮件直接关闭

你的签名文件夹结构如下，除了htm文件外还有同名的资源文件夹存放图片：

推荐解决方案（无需手动解析签名，零图片丢失问题） #

Outlook原生就有自动插入签名的逻辑：新建邮件后如果没有提前手动修改HTMLBody属性，调用Display方法时会自动给邮件插入当前账号配置的默认签名，签名里的图片、样式都会自动正确加载，不需要你手动读文件、处理路径、嵌入附件。
你只需要调整代码执行顺序：先配置收件人、主题，调用Display让Outlook自动加载签名，再把自定义的邮件内容插入到签名之前即可。

修正后的可直接运行代码：

Private Sub btn_ToOutlook_Click()
    Dim bStarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem
    Dim sigHtml As String
    
    ' 检测Outlook运行状态
    On Error Resume Next
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If
    On Error GoTo 0 ' 恢复默认错误捕获，禁止全局屏蔽错误
    
    ' 新建邮件项
    Set oItem = oOutlookApp.CreateItem(olMailItem)
    
    With oItem
        ' 先配置基础属性，不要提前给HTMLBody赋值
        .To = "eddie@abc.com"
        .CC = "grace@abc.com"
        .Subject = "[SW Maintenance Renewal] Request for Credit Check " & Format(Date, "mmm yyyy")
        
        ' 调用Display，Outlook会自动加载默认签名，图片会自动正确关联
        .Display
        
        ' 提取自动加载的签名内容，把自定义正文插在签名前面
        sigHtml = .HTMLBody
        .HTMLBody = frmPrevious.EmailContent & "<br><br>" & sigHtml
    End With
    
    ' 移除原代码中自动退出Outlook的逻辑，避免刚打开的邮件被强制关闭
    
    ' 释放COM对象
    Set oItem = Nothing
    Set oOutlookApp = Nothing
End Sub

Private Sub Form_Load()
    Set frmPrevious = Screen.ActiveForm
    Set webControl = Me.wb.Object
    Sleep 5000
    ShowHtml
End Sub

Private Sub ShowHtml()
    Set webControl = Me.wb.Object
    webControl.Document.Write frmPrevious.EmailContent
End Sub

手动指定签名的适配方案 #

如果你需要使用的不是当前账号的默认签名，必须手动读取指定htm文件，需要额外完成两个操作：

1. 读取htm内容后，把所有img标签的相对路径替换为file:///加Signatures文件夹完整路径的绝对路径
2. 遍历和htm同名的.files文件夹下的所有图片资源，逐个添加为邮件附件，设置每个附件的ContentID属性和htm内img标签的cid属性一一对应，图片才会被识别为内嵌资源显示，而不是变成普通附件。

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