VBAでOutlookメールを作成し、複数の添付ファイルを送信する方法

皆さん、こんにちは。今日は、ExcelのVBAを使ってOutlookのメールを自動作成し、複数のファイルを添付する方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫です。ゆっくり一緒に学んでいきましょう。

VBAとOutlookの基本的な連携方法
1. 1. 参照設定の追加
2. 2. シンプルなメール作成コード
メールに複数のファイルを添付する方法
1. 1. 添付ファイルのパスをExcelシートに入力
2. 2. 複数ファイルを添付するコード
よくある質問や疑問
1. Q1. 添付ファイルが見つからない場合はどうすればいいですか？
2. Q2. メールを自動で送信することはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとOutlookの基本的な連携方法

Outlookのイメージ

まず、ExcelとOutlookを連携させるための基本的な手順をお伝えします。

1. 参照設定の追加

最初に、ExcelのVBAでOutlookを操作できるように設定を行います。

Excelを開き、AltキーとF11キーを同時に押してVBAの編集画面を表示します。
上部のメニューから「ツール」をクリックし、「参照設定」を選択します。
表示された一覧から「Microsoft Outlook xx.x Object Library」にチェックを入れ、OKをクリックします。

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

2. シンプルなメール作成コード

次に、基本的なメールを作成するコードをご紹介します。

vba

Sub CreateMail()

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

    Dim objOutlook As New Outlook.Application

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

    Dim objMail As Outlook.MailItem

    Set objMail = objOutlook.CreateItem(olMailItem)

' メールの各種設定 With objMail .To = "example@example.com" ' 宛先 .Subject = "件名をここに入力" ' 件名 .Body = "本文をここに入力します。" ' 本文 .Display ' メール作成画面を表示 End With End Sub

このコードを実行すると、指定した宛先、件名、本文が入力された新しいメール作成画面が表示されます。

メールに複数のファイルを添付する方法

では、次にメールに複数のファイルを添付する方法を見ていきましょう。

1. 添付ファイルのパスをExcelシートに入力

まず、添付したいファイルのパスをExcelシートにリストアップします。

Excelの任意のシートを開きます。
A列に添付したいファイルのフルパスを1行ずつ入力します。

例えば、以下のように入力します。



A列

C:\Users\YourName\Documents\file1.pdf

C:\Users\YourName\Documents\file2.jpg

C:\Users\YourName\Documents\file3.xlsx

2. 複数ファイルを添付するコード

次に、先ほどのリストを基に、メールに複数のファイルを添付するコードをご紹介します。

vba

Sub CreateMailWithAttachments()

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

    Dim objOutlook As New Outlook.Application

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

    Dim objMail As Outlook.MailItem

    Set objMail = objOutlook.CreateItem(olMailItem)
    ' 添付ファイルのパスを取得するための変数

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim filePath As String
    ' アクティブなシートを設定

    Set ws = ThisWorkbook.ActiveSheet

    ' A列の最終行を取得

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' メールの各種設定

    With objMail

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

        .Subject = "複数ファイルの添付" ' 件名

        .Body = "以下のファイルを添付しています。" ' 本文
        ' A列の各セルに入力されたファイルパスを添付

        For i = 1 To lastRow

            filePath = ws.Cells(i, 1).Value

            ' ファイルが存在するか確認

            If Dir(filePath) <> "" Then

                .Attachments.Add filePath

            Else

                MsgBox "ファイルが見つかりません: " & filePath

            End If

        Next i