を作成するのですが、一部のみに色を変更したいと思います。 そこで下記の通り作成したのですが、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 = "xxxx@xxx.co.jp" objMAIL.CC = "yyyy@xxx.co.jp" 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 よろしくお願いいたします。
