0

I'm sure this question has been asked a hundred times with variations on it as well. I have done my best to research but I can't quite find the right information to suit my needs.

I currently have a working macro that will create an email reply and include a template, however it is not showing signatures correctly (missing images).

There are two ways I can go about this;

Firstly, If there was a way to fix up my current code (below) to work better with signatures so every user can have their default signature show up correctly.

The second way is to be able to insert the template contents into the current open reply (which would already have the signature showing). This is the ideal and preferred way but I couldn't find the correct information on how to insert the template into the currently open email. Preferably without removing anything already existing in the body, essentially just pasting the contents.

This is my current code to reply with the template.

Sub includeChecklist()
    Dim origEmail As MailItem
    Dim replyEmail As MailItem

    Set origEmail = Application.ActiveWindow.Selection.Item(1)
    Set replyEmail = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\Checklist.oft")

    replyEmail.To = origEmail.Sender
    replyEmail.CC = origEmail.CC
    replyEmail.Subject = origEmail.Subject
    
    replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
    replyEmail.Display
End Sub

Any help is appreciated.

player0
  • 99,092
  • 8
  • 51
  • 98
Nick Jones
  • 91
  • 7

0 Answers0