Reply with a template loose the sender's embedded image

dgnoyon

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hello everyone,

I"m using VBA to reply to sender with templates. In 90% of cases, it works fine. But, I have a big problem, when the sender send me an email with an embed image in his mail's body. This code loose the embed image and send a red X. I tried without any result to solve that. Can you help me on that ?
Example of code:

Code:
Sub TacReply()

Dim origEmail As mailItem
Dim replyEmail As mailItem

Set origEmail = ActiveExplorer.Selection(1)
Set replyEmail = CreateItemFromTemplate("S:\Share\TWGeneral.oft")

replyEmail.To = origEmail.Reply.To

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.SentOnBehalfOfName = "email@domain.com"
replyEmail.Recipients.ResolveAll
replyEmail.Display

Set origEmail = Nothing
Set replyEmail = Nothing

End Sub
 
Top