Excel VBAでOutlookを操作してメールを自動送信する方法

皆さん、こんにちは。今日は、ExcelとOutlookを連携させて、メールの自動送信を行う方法をご紹介します。これをマスターすれば、日々の業務がぐっと楽になりますよ。

Excel VBAでOutlookを操作するための準備
1. 参照設定の追加方法
Outlookメールを作成・送信する基本コード
Excelのデータを活用してメールを送信する
今すぐ解決したい！どうしたらいい？
よくある質問や疑問
1. Q1: 参照設定を行わずにOutlookを操作することはできますか？
2. Q2: メールを送信する際に、毎回手動で送信ボタンをクリックする必要がありますか？

Excel VBAでOutlookを操作するための準備

Outlookのイメージ

まず、ExcelからOutlookを操作するための準備をしましょう。この設定を行うことで、ExcelのVBA（Visual Basic for Applications）からOutlookを制御できるようになります。

参照設定の追加方法

1. ExcelでVBAエディターを開くExcelを起動し、`Alt`キーを押しながら`F11`キーを押して、VBAエディターを開きます。
2. 参照設定を開くVBAエディターのメニューから「ツール」をクリックし、「参照設定」を選択します。
3. Outlookライブラリを選択表示された一覧から「Microsoft Outlook XX.X Object Library」にチェックを入れ、「OK」をクリックします。

これで、ExcelのVBAからOutlookを操作する準備が整いました。

Outlookメールを作成・送信する基本コード

次に、実際にメールを作成し、送信するための基本的なコードをご紹介します。このコードを使えば、簡単にメールの自動送信が可能です。

vb

Sub SendEmail()

    ' Outlookアプリケーションのオブジェクトを作成

    Dim outlookApp As Outlook.Application

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

    Dim mailItem As Outlook.MailItem

    Set mailItem = outlookApp.CreateItem(olMailItem)
    ' メールのプロパティを設定

    With mailItem

        .To = "recipient@example.com" ' 宛先

        .CC = "cc@example.com" ' CC

        .BCC = "bcc@example.com" ' BCC

        .Subject = "メールの件名" ' 件名

        .Body = "メールの本文です。" ' 本文

        ' 添付ファイルを追加

        .Attachments.Add "C:\path\to\your\file.txt"

        ' メールを表示（送信する場合は .Send を使用）

        .Display

    End With

' オブジェクトの解放 Set mailItem = Nothing Set outlookApp = Nothing End Sub

このコードを実行すると、指定した宛先や件名、本文、添付ファイルを持つメールが作成され、画面に表示されます。内容を確認して問題なければ、手動で送信ボタンをクリックしてください。自動で送信したい場合は、`.Display`を`.Send`に変更します。

Excelのデータを活用してメールを送信する

Excelのシートにあるデータを使って、複数の宛先に個別のメールを送信することも可能です。例えば、A列にメールアドレス、B列に名前、C列に個別のメッセージを入力しておき、それらを読み込んでメールを送信する方法をご紹介します。

vb

Sub SendBulkEmails()

    ' Outlookアプリケーションのオブジェクトを作成

    Dim outlookApp As Outlook.Application

    Set outlookApp = New Outlook.Application
    ' データが入力されている最終行を取得

    Dim lastRow As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' 1行目はヘッダーとして、2行目から最終行までループ

    Dim i As Long

    For i = 2 To lastRow

        ' 新しいメールアイテムを作成

        Dim mailItem As Outlook.MailItem

        Set mailItem = outlookApp.CreateItem(olMailItem)
        ' メールのプロパティを設定

        With mailItem

            .To = Cells(i, 1).Value ' A列宛先メールアドレス

            .Subject = "こんにちは、" & Cells(i, 2).Value & "さん" ' B列名前

            .Body = Cells(i, 3).Value ' C列個別メッセージ

            ' メールを送信

            .Send

        End With
        ' オブジェクトの解放

        Set mailItem = Nothing

    Next i