【超簡単】VBAでOutlookのメールに宛先・件名・本文を設定する方法

こんにちは、RPAライターのやまもとてつやです。

VBAで宛先やCcなどを設定するコード

VBAで宛先やCcなどを設定するコードは、以下になります。

意外とあっけないですよね。

Withステートメントで書く前提なので、上記のような表記とさせていただきました。

上をもとに、前回の記事のテンプレートと組み合わせるとこんなコードができあがります。

Option Explicit

Sub メール作成2()
    'メール作成時のおまじない

    'Outlookアプリケーションオブジェクトの取得
    Dim MyOutlook As Outlook.Application
    Set MyOutlook = New Outlook.Application

    'メールitemオブジェクトの取得
    Dim Mailitem As Outlook.Mailitem
    Set Mailitem = MyOutlook.CreateItem(olMailItem)
  
    '宛先やCcの設定
    With Mailitem
        
        .To = Range("C2") '宛先
        .CC = Range("C3") 'Cc
        .BCC = Range("C4") 'Bcc
        
        .Subject = Range("C6") '件名
        .Body = Range("C7") '本文
    
    End With
    
    'メールの表示
    Mailitem.Display
    
End Sub

なお、宛先の設定はセルでもメールアドレスでも問題ありません。

宛先やCcを複数設定する方法

宛先やCcには、複数のメールアドレスを設定可能です。

単体のセルに複数のメールアドレスを入れたり、1つの列にメールアドレスを複数入れて変数として指定したりしても問題ありません。

なお、単体のセルの場合、Outlookで指定するのと同じようにセミコロンで分けて書けばOKです。

メールを表示する

最後にメールを表示させます。

表示させるコードは、（メールの変数）.displayとなります。

すると、今まで設定した内容でメールの下書きが表示されます。

あとはそれを送信するだけです。

まとめ

というわけで、VBAでOutlookメールを送る際の宛先や本文の設定方法を紹介しました。

なお、本格的にOutlook VBAを勉強するなら本で勉強するのがオススメです。

リンクで紹介している本は、「いつも隣にITのお仕事」というサイトを運営している高橋さんの本です。

業務効率化を目指す方なら知らない方はいないといわれるくらいに超有名人です。

ぜひ、一度読んでみてはどうでしょうか。

本日も最後まで読んでいただき、ありがとうございました。