EXCELマクロでのメールでの書式設定について教えてください EXCELでメールを作成するのですが、一部のみに色を…

Question

EXCELマクロでのメールでの書式設定について教えてください

EXCELでメールを作成するのですが、一部のみに色を変更したいと思います。そこで下記の通り作成したのですが、1行ごとに色を指定するのではなく
strMOJI(1)は、全部赤文字にしたいです。
どこを修正すればいいか教えてください。

EXCELとOUTLOOKは、2007です。

Sub 正方形長方形1_Click()
Dim oApp As Object
Dim objMAIL As Object
Dim strMOJI(1) As String
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If oApp Is Nothing Then
Set oApp = CreateObject("Outlook.Application")
End If
Set objMAIL = oApp.CreateItem(0)

strMOJI(0) = "お疲れ様です。" & vbCrLf & _
"色付けテストです。" & vbCrLf & _
"よろしくおねがいします。" & vbCrLf

strMOJI(1) = "このメールに添付されている文書は課外閲覧不可となります。" & vbCrLf & _
"取扱いに注意してください。"

objMAIL.To = "[e-mail]"
objMAIL.CC = "[e-mail]"
objMAIL.Subject = "テスト"
objMAIL.Body = strMOJI(0) & strMOJI(1)
objMAIL.Display

objMAIL.HTMLBody = Replace$(objMAIL.HTMLBody, "このメールに添付されている文書は課外閲覧不可となります。", "<font color=red>このメールに添付されている文書は課外閲覧不可となります。</font color>")
objMAIL.HTMLBody = Replace$(objMAIL.HTMLBody, "取扱いに注意してください。", "<font color=red>取扱いに注意してください。</font color>")
End Sub

よろしくお願いいたします。

Answer 1

書かれているマクロはお望みの形ではないのですか？

>1行ごとに色を指定するのではなくstrMOJI(1)は、全部赤文字にしたいです。
どのようにコードを変えたいのかよく理解出来ていまませんが。

別の書き方の一例です。

Set objMAIL = oApp.CreateItem(0)
strMOJI(0) = "お疲れ様です。" & vbCrLf & _
"色付けテストです。" & vbCrLf & _
"よろしくおねがいします。" & vbCrLf
strMOJI(1) = "このメールに添付されている文書は課外閲覧不可となります。" & vbCrLf & _
"取扱いに注意してください。"
With objMAIL
.To = "[e-mail]"
.cc = "[e-mail]"
.subject = "テスト"
.Display
With oApp.ActiveInspector.WordEditor.Windows(1)
With .Selection
.TypeText strMOJI(0)
.Font.Color = vbRed
.TypeText strMOJI(1)
End With
End With
End With
Set oApp = Nothing
Set objMAIL = Nothing