エクセルでOutlookのメールを作成

質問

エクセルでOutlookのメールを作成しようとしています。
一応、以下のコードでできるようです。
質問は、メール本文中の　ABC　という文字だけを赤い太字にする方法です。教えてください。

Sub test01()
Dim mi As Object ' MailItem
Dim wdDoc As Object ' Word.Document
Dim olApp As Object ' Outlook.Application

Set olApp = CreateObject("Outlook.Application")
Set mi = olApp.CreateItem(0)

mi.To = "test@abc.co.jp" ' 送り先
mi.BodyFormat = 2 ' メールを HTML 形式にする
mi.Display ' メールを表示する

Set wdDoc = olApp.ActiveInspector.WordEditor ' メールの Word エディタを取得する
wdDoc.Windows(1).Document.Range.Text = "本文本文本文本文本文1" _
& vbCrLf & "本文本文本文本文本文2" _
& vbCrLf & "本文ABC本文本文3"

With wdDoc.Windows(1).Document.Range.Font
.Name = "Meiryo UI" ' メール本文のフォントを "Meiryo UI"
.Size = 11 ' フォントサイズを 11 に設定する
End With

End Sub

回答No.1

m3_maki

参考になると思われます。

MailItem.BodyFormat プロパティ (Outlook)
https://docs.microsoft.com/ja-jp/office/vba/api/outlook.mailitem.bodyformat
【VBA】Outlookオブジェクトを用いたメール送信の基本事項
https://qiita.com/t-yama-3/items/c23b700162aa3ede9eb7

お礼

質問の前に検索ということですね。
ありがとうございます。

補足

やってみて理解できない部分がありましたらまた質問させていただきます。ありがとうございました。