[VBA] リッチテキスト形式のメール送信

質問

こちらの識者の方々にはいつもお世話になっています。
Excel VBAの質問です。
タイトルが分かりづらくて申し訳ありませんが、詳細は下記ご参照ください。

環境は下記になります。
OS=windows7 pro 64bit
Office=Excel2010(14.0.7128.5000)

・やりたいこと
Excelからリッチテキスト形式のメールテンプレートを呼び出し、
本文を置換したいんですが、.bodyですと、テンプレートで設定してあった書式がなくなってしまいます。
書式を維持したまま置換するにはどうすればいいでしょうか？

Dim oOlk As Object: Set oOlk = CreateObject("Outlook.Application")
Dim oMail As Object: Set oMail = oOlk.CreateItemFromTemplate("C:\aaa\bbb.oft")

oMail.Body = Replace(oMail.Body, "aaa", "bbb")
.display

質問に不備不足等ございましたらご指摘ください。
ご面倒お掛けしますがよろしくお願いします。

回答No.1

skp026

こちらが参考になると思います。

リッチテキストなメールテンプレートを開きメールの件名と本文の文言を置換する Outlook マクロ
http://neos21.hatenablog.com/entry/2016/02/23/000646
ごらんいただくと分かると思いますが、WordEditorを使ってます。

以下も参考になるかもしれないです。
https://social.msdn.microsoft.com/Forums/ja-JP/000a2d72-1bf6-47b8-b0c0-692cca4bcc79/excel-vba-outlook-mailexcel-?forum=vbajp

参考にならなかったらごめんなさい。