I created an Outlook template in which I want to replace certain parts.

This works if I .display the template before replacing the information.

If I replace before displaying, it only replaces some of the information.

Below is a section of my code:

With Email

    .To = AppLog.Cells(BatchRow, 23).Value
    .Subject = Replace(Email.Subject, "<Service>", BatchServiceNumber)
    .Subject = Replace(Email.Subject, "<BatchNumber>", BatchNumber)
    .HTMLBody = Replace(Email.HTMLBody, "%Examiner%", AppLog.Cells(BatchRow, 22).Value)
    .HTMLBody = Replace(Email.HTMLBody, "%Service%", BatchServiceNumber)
    .HTMLBody = Replace(Email.HTMLBody, "