outlook2003 本文の一部に色を付けたい。

質問

vbaでメールを作成するマクロは組めたのですが
一部の文字に色をつける方法がわかりません。

Sub test()
Dim acoutlook As Outlook.Application
Dim acmail As MailItem

Set acoutlook = GetObject(, "outlook.Application")
Set acmail = acoutlook.CreateItem(olMailItem)

With acmail
.To = "aaaa@com"
.Subject = "件名"
.Body = "赤です。よろしくお願いします。"
.Display
End With
End Sub

上のコードの「赤」という部分を赤色にするにはどうすればいいでしょうか。

ちなみにこれはアクセスから起動しています。
よろしくお願いします。

回答No.1

DOUGLAS_ · ベストアンサー

.Body = "赤です。よろしくお願いします。"

の行を

.BodyFormat = olFormatHTML
.HTMLBody = "<font color=""#FF0000"">赤</font>です。よろしくお願いします。"

に差し替えてお試しください。

お礼

できました！
HTMLタグを使うのですね！
タグは今勉強中なので色々やってみようと思います。
有難うございました。