Body.Replace strips out html formatting

Question

I have an email template which has html formatting and place holders to swap out with real values.

In Excel I load the email via the Outlook CreateItemFromTemplate method. If at this point I save the email formatting is preserved.

If I perform a replace on the body most of the formatting is stripped out:

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("template.oft") ' <- has lots of html formatting

With OutMail
    .Body = Replace(.Body, "#recipient#", "Some other value") ' <- Strips out most formatting!!
    .Save ' <- this works fine without the line above.
End With

Replace `.Body` with `.HTMLBody` – Scott Holtzman Aug 29 '12 at 15:24 — Scott Holtzman, Aug 29 '12 at 15:24
Thanks Scott - I just got that. – tom redfern Aug 29 '12 at 15:25 — tom redfern, Aug 29 '12 at 15:25
Scott if you add this as an answer I will mark it as such – tom redfern Aug 30 '12 at 08:36 — tom redfern, Aug 30 '12 at 08:36
Thanks hugh. Appreciate the thought! :) – Scott Holtzman Sep 04 '12 at 21:41 — Scott Holtzman, Sep 04 '12 at 21:41

score 5 · Accepted Answer · edited May 23 '17 at 12:14

5

Thanks to this post : https://stackoverflow.com/a/8473313/569662

My problem was you have to use .HTMLBody rather than .Body :

.HTMLBody = Replace(.HTMLBody, "#recipient#", "Some other value")

edited May 23 '17 at 12:14

Community

1
1

answered Aug 29 '12 at 15:25

tom redfern

30,562
14
91
126

Body.Replace strips out html formatting

1 Answers1