使用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

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