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

2024年8月17日

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

VBAを使って、メールの宛先やCcの設定はどうやるの？
宛先やCcは、複数設定できるの？

当記事では、上記のような疑問にお答えします。

前回の記事でoutlookのメールを自動で作成しました。

しかし、肝心の宛先やCcも自動で設定ないと使い物になりません。

そこで当記事では、OutlookVBAで宛先やCcを設定する方法について解説します。

VBAでメールを自動化できると、作業効率が変わるのでぜひ読んでみてください。

この記事でわかること

VBAで宛先やCcなどを設定する方法がわかる
宛先を設定する時間が省けるので、手が空く
理論上、メールの誤送信がなくなるのでミスが減る

ぜひ1度読んでみてください。

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

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

コード	意味
.to	宛先
.Cc	Cc
.Bcc	Bcc
.subject	件名
.body	本文

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

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

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