Outlook模板回复时如何显示图片

Question

我有一个Outlook模板，用于回复邮件。当我只显示该模板时可以成功使用，但是当我添加原始消息以在模板下方显示时，图像会变得损坏。

在第二张图片中，原始消息完好无损，甚至可以正确地显示图像。

Sub Reply()

Dim Original As Outlook.MailItem
Dim Reply As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1).Reply
Set Reply = Application.CreateItemFromTemplate("C:\Mail.oft")

Original.HTMLBody = Reply.HTMLBody & Original.HTMLBody
Original.Display
End Sub

- user1794506

---

你能否先尝试使用debug.print打印HTMLBodies进行检查？ - html_programmer

在显示之前，请使用“debug.print Original.HTMLBody”进行调试打印。 - html_programmer

Answer 1

尝试使用“回复”而不是“原始邮件”。其他人可能需要提供解释。

Sub Reply()

Dim Original As mailItem
Dim Reply As mailItem

Set Original = ActiveExplorer.Selection(1).Reply
Set Reply = CreateItemFromTemplate("C:\Mail.oft")

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

End Sub

- niton