vba - Outlook テンプレートで返信するときに画像を表示する

Question

メッセージに返信するときに使用する Outlook テンプレートがあります。それ自体は正常に表示されますが、テンプレートの下に表示する元のメッセージを追加すると、画像が破損します。

2 番目の画像では、元のメッセージは問題なく、画像も正しく表示されています。

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