.CreateItemFromTemplate with VBA excel but text format not

[tendosai]

Change the following lines from

.Body = Replace(.Body, "[FirstName]", strFirstname)
.Body = Replace(.Body, "[ABM]", strABM)
.Body = Replace(.Body, "[ABMPhone]", strABMPhone)

to

.BodyFormat = 2
.HTMLBody = Replace(.HTMLBody, "[FirstName]", strFirstname)
.HTMLBody = Replace(.HTMLBody, "[ABM]", strABM)
.HTMLBody = Replace(.HTMLBody, "[ABMPhone]", strABMPhone)

Ah problem solve. I have tried with HTML body but didnt know i have to put .BodyFormat = 2.

Thank so much.