时间戳

首页 > 解决方案 > 使用回复模板从以前的电子邮件加载图像

vba - 使用回复模板从以前的电子邮件加载图像

问题描述

我已经在论坛上进行了研究，但我尝试过的所有解决方案都无法解决这个问题。

我正在尝试使用 VBA 编码加载回复模板，但它无法引导上一封电子邮件中的图像。

Sub OnlinePitchChaserEmail()

    Dim Original As MailItem
    Dim Reply As MailItem

    Set Original = ActiveExplorer.Selection(1).Reply
    Set Reply = CreateItemFromTemplate("[LOCATION OF TEMPLATE]")

    Reply.HTMLBody = Reply.HTMLBody & Original.HTMLBody
    Reply.Display

    Set Reply = Nothing
    Set Original = Nothing

End Sub

请多多包涵，因为我是 VBA 业余爱好者，以上是从网上其他地方改编的。

谢谢！

标签： vbaoutlook

解决方案

首先，您不能简单地连接两个有效的 HTML 文档并期望返回一个有效的 HTML 文档——这两个字符串必须合并，而不是连接。

其次，您需要保存原始邮件中的附件，并使用MailItem.Attachment.Add. 您还需要复制PR_ATTACH_CONTENT_ID, PR_ATTACH_CONTENT_LOCATION,PR_ATTACH_LONG_FILENAME属性（如果它们存在 - 您需要捕获错误）。

推荐阅读