Outlook VBAで宛先を自動設定する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、OutlookとExcelを使って、メールの宛先を自動で設定する方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫ですよ。これを覚えると、毎回手作業でメールアドレスを入力する手間が省けて、とても便利です。

Outlook VBAとは？
準備ExcelとOutlookの連携設定
VBAコードでメールの宛先を自動設定する
Excelのデータを活用して複数の宛先にメールを送る
よくある質問や疑問
1. Q1: VBAコードを実行しても何も起こりません。どうすればいいですか？
2. Q2: メールを自動で送信するのが不安です。確認する方法はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、「VBAって何？」と思われる方もいらっしゃるかもしれません。VBAとは、Visual Basic for Applicationsの略で、Microsoftのアプリケーションを自動化するためのプログラム言語です。難しそうに聞こえるかもしれませんが、基本を押さえれば簡単に使いこなせます。

準備ExcelとOutlookの連携設定

最初に、ExcelとOutlookを連携させるための設定を行います。以下の手順で進めてみましょう。

Excelを開き、上部の「開発」タブをクリックします。もし「開発」タブが表示されていない場合は、以下の手順で表示させてください。
1. 「ファイル」タブをクリックします。
2. 「オプション」を選択します。
3. 「リボンのユーザー設定」をクリックし、右側の「メインタブ」から「開発」にチェックを入れて「OK」をクリックします。
「開発」タブの中の「Visual Basic」をクリックします。これでVBAの編集画面が開きます。
上部の「ツール」メニューから「参照設定」を選びます。
表示された一覧の中から「Microsoft Outlook xx.x Object Library」にチェックを入れて「OK」をクリックします。xx.xはバージョン番号です。

これで、ExcelとOutlookを連携させる準備が整いました。

VBAコードでメールの宛先を自動設定する

次に、実際にVBAコードを書いて、メールの宛先を自動で設定してみましょう。以下のコードを参考にしてください。

vba

Sub メール作成()

    ' Outlookアプリケーションを起動

    Dim OutlookApp As Outlook.Application

    Set OutlookApp = New Outlook.Application
    ' 新しいメールアイテムを作成

    Dim MailItem As Outlook.MailItem

    Set MailItem = OutlookApp.CreateItem(olMailItem)

' 宛先、件名、本文を設定 With MailItem .To = "example@example.com" ' 宛先 .CC = "cc@example.com" ' CC .BCC = "bcc@example.com" ' BCC .Subject = "件名をここに入力" ' 件名 .Body = "本文をここに入力" ' 本文 .Display ' メールを表示 End With End Sub

このコードをVBAの編集画面に貼り付けて実行すると、新しいメール作成画面が表示され、指定した宛先や件名、本文が自動で入力されます。

Excelのデータを活用して複数の宛先にメールを送る

さらに、Excelのシートにリスト化した複数のメールアドレスに、一斉にメールを送る方法もあります。例えば、A列にメールアドレス、B列に名前が入力されているとします。

vba

Sub 複数宛先にメール送信()

    ' Outlookアプリケーションを起動

    Dim OutlookApp As Outlook.Application

    Set OutlookApp = New Outlook.Application
    ' 変数の宣言

    Dim MailItem As Outlook.MailItem

    Dim i As Integer

    Dim MailAddress As String

    Dim Name As String
    ' 2行目から順にデータを読み込む

    i = 2

    Do While Cells(i, 1).Value <> ""

        MailAddress = Cells(i, 1).Value

        Name = Cells(i, 2).Value
        ' 新しいメールアイテムを作成

        Set MailItem = OutlookApp.CreateItem(olMailItem)
        ' 宛先、件名、本文を設定

        With MailItem

            .To = MailAddress

            .Subject = "こんにちは、" & Name & "さん"

            .Body = Name & "さん、いつもお世話になっております。"

            .Display ' メールを表示

        End With