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