VBA HTMLでOutlookのメールの文字の色を変える方法

VBAで作成したOutlookのメール本文の文字を色を変える方法を解説します。Outlookのメールそのものの作成方法については、VBA OLEを使ってメールを配信するをご覧下さい。

VBAのコードにHTMLを埋め込んでメールの文字の色を変える

VBAのコードにHTMLを埋め込んでメールの文字の色を変える

メールの文字を赤色にするにはHTMLを使います。HTMLと聞いて身構える方もいるかも知れませんが、大丈夫です。順番に解説していきます。

HTMLとは

HTMLとは、インターネットエクスプローラとかOutlookのメールで何をどう表示するかを説明した設計図のようなものです。今回は本格的なウェブサイトを作るわけではなく、ただメール本文の一部を赤く表示したいだけなので、赤い文字を意味するHTMLを覚えるだけです。

文字の色を変えられるようになると、HTMLの書き方が分かる様になるので、太文字、リンク、箇条書きといった事が同じ方法でできるようになります。少しの勉強でできる事が増えてくるんですね。しっかり解説していきますので最後までお付き合い下さい！

普通のメールを作成する

まずは普通のメールを作成します。サンプルコードは下記の通りです。

Sub 普通のメール作成()

    Dim mailitem As Object
    
    Set mailitem = CreateObject("Outlook.Application")
    
    With mailitem.CreateItem(0)
        .To = ""
        .CC = ""
        .Subject = ""
        .Body = "これはサンプルメールです"
        .Display
    End With

End Sub

ToやCC、題名は適当な文字列を入れればOKです。Functionプロシジャで作るとすっきりします。

これでは本文の文字は黒にしかなりません。次に文字色を変えるためのサンプルコードです。

メールの本文を作成するのにHTMLを使う

HTMLと言っても怖がる必要はありません。こちらもいきなりサンプルコードを示します。

Sub HTMLを埋め込んだのメール作成()

    Dim mailitem As Object
    
    Set mailitem = CreateObject("Outlook.Application")
    Dim msg As String
    
    
    msg = "これは" & "<font color = ""#ff0000"">" & "サンプル" & "</font>" & "コードです" & _
                "<br>" & "よろしくお願いします。"     '<br>は改行という意味です
    
    With mailitem.CreateItem(0)
        .To = ""
        .CC = ""
        .Subject = ""
        .Display
        .HTMLBody = msg & .HTMLBody
    End With

End Sub

コピペして使ってOKです。やり方が知りたいだけの方はここでページ閉じてもらってOKです。以下、内容について少し解説します。ポイントは3点あります。

ポイント①メッセージ本文を代入している部分にHTMLを埋め込む

色を変えたところの記述を見てみると、"" & "サンプル" & ""と書いてあります。何となく見ただけで意味がわかりそうです。~といった形でfontというタグで囲まれた部分の色を変えることができます。#ff0000は赤という意味です。他の色の番号とか、この#の後の6桁の意味などはネットで調べれば出てきますので、気になる方は調べてみて下さい。ビジネスのメールの本文に色を使うと言えばせいぜい赤ぐらいしかないので、赤は#ff0000とこの色だけ覚えておけばOKだと思います。

この部分をよく見ると、ダブルクォーテーションが2つついていますよね。ここが、ハマリポイントです。気をつけましょう。

    msg = "これは" & "<font color = ""#ff0000"">" & "サンプル" & "</font>" & "コードです" & _
               "<br>" & "よろしくお願いします。"

""　の所の#ff0000の両側のダブルクォーテーションが重なっています。これはエスケープ文字と言って、ダブルクォーテーションをダブルクォーテーションで囲みたい時の文法です。メールの本文自体が文字列でその中にHTMLと言う文字列を入れ込む。そのHTMLの中に「"#ff0000"」という文字列を入れる必要がある。ダブルクォーテーションの中にダブルクォーテーションを入れるときのルールがあるので「"#ff0000"」ではなく「""#ff0000""」を入れる必要がある、と言うわけですね。

これは知らないと、どこがエラーなのか分からずハマってしまいますが、知ってさえいればすぐどこが間違っているのか分かります。覚えておきましょう！

ポイント②CreateItemするときの順番

    With mailitem.CreateItem(0)
        .To = ""
        .CC = ""
        .Subject = ""
        .Display
        .HTMLBody = msg & .HTMLBody
    End With