Excel VBA填充Outlook電子郵件模板 - Body.Replace去掉HTML格式

Question

我有一個Excel VBA腳本中的問題 - 我有一個電子郵件模板，其中有很多HTML格式和一堆地方持有人，我想換成真正的價值。

我通過Outlook CreateItemFromTemplate方法加載電子郵件。如果此時我保存電子郵件，則所有格式都將保留。但是，如果我執行替換在身上，然後大部分格式被剝離出來：

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 

誰能告訴我是什麼問題呢？

感謝

Answer 1

多虧了這個帖子：https://stackoverflow.com/a/8473313/569662

我的問題是你必須使用.HTMLBody而非.Body：

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