如何排查Access VBA生成邮件中PNG图片突然不显示的问题？

以下是针对问题的具体排查步骤：

1. 确认图片文件与路径有效性 #

• 直接验证图片路径：把Environ("appdata") & "\Microsoft\Signatures\Logo.png"复制到资源管理器地址栏，检查文件是否存在且能正常打开。若文件丢失、损坏，或签名文件夹路径因系统更新/配置变更改变，会直接导致图片无法加载。
• 检查图片格式：确认Logo.png是真实的PNG格式，避免出现文件被重命名为.png但实际为其他格式的情况（可通过画图工具打开验证）。

2. 校验CID绑定一致性 #

• 确保HTML中的CID与附件属性设置完全匹配：Outlook对CID的大小写、符号敏感，检查代码中imgCID = "inlineLogo"与<img src='cid:" & imgCID & "'>是否完全一致，无拼写错误。
• 调试输出HTML内容：在设置mi.HTMLBody后，添加Debug.Print mi.HTMLBody，查看输出的HTML结构中<img>标签的CID是否正确。

3. 修正附件添加参数 #

你尝试的Attachments.Add(imgPath,1,0)参数有误，嵌入邮件的图片需要指定为嵌入类型，而非普通附件：

Set attachImg = mi.Attachments.Add(imgPath, 5) ' 5对应olEmbeddeditem常量，代表嵌入对象

添加附件后需立即设置CID属性，避免中间执行其他操作导致属性绑定失效。

4. 检查Outlook安全与配置设置 #

• 验证自动下载设置：打开Outlook → 文件 → 选项 → 信任中心 → 信任中心设置 → 自动下载，确认勾选“在HTML电子邮件中自动下载图片（包括RSS源）”，同时检查是否有针对特定账户的图片拦截限制。
• 排查第三方工具干扰：杀毒软件、邮件安全插件可能会拦截嵌入图片，可临时关闭相关工具后测试。

5. 用极简代码隔离变量 #

编写简化版测试代码，排除业务逻辑或HTML结构的干扰：

Sub TestInlineImage()
    Dim outl As Object, mi As Object, attachImg As Object
    Dim imgPath As String, imgCID As String
    
    Set outl = CreateObject("outlook.Application")
    Set mi = outl.CreateItem(0)
    mi.BodyFormat = 2 ' olFormatHTML
    
    imgPath = Environ("appdata") & "\Microsoft\Signatures\Logo.png"
    imgCID = "testLogo123"
    
    Set attachImg = mi.Attachments.Add(imgPath, 5)
    attachImg.PropertyAccessor.SetProperty _
        "http://schemas.microsoft.com/mapi/proptag/0x3712001F", imgCID
    
    mi.HTMLBody = "<html><body><img src='cid:" & imgCID & "'></body></html>"
    mi.Display
End Sub

如果这段代码能正常显示图片，说明原代码中publicMessage的HTML存在语法错误（如未闭合标签），或与Outlook自动签名的HTML结构冲突。

6. 排除自动签名干扰 #

若Outlook设置了自动添加签名，直接覆盖HTMLBody可能导致签名的HTML破坏原有图片的CID绑定：

• 打开Outlook → 文件 → 选项 → 邮件 → 签名，将默认签名设为“无”，再测试原代码。

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