Outlookの下書きフォルダのメールをVBAマクロで一斉送信する方法

Outlookの下書きフォルダに溜めたメールをVBAマクロで一斉送信する方法を解説します。確認済みの下書きをボタン1つで全件送信できるため、毎月の案内メール配信など繰り返し作業の時間を削減できます。マクロコード・実行手順・失敗例・確認環境まで、この記事にまとめています。

対象OS Windows 11

Outlookの「下書き一斉送信」をマクロで自動化すると何がラクになるか

ExcelのリストをもとにOutlookの下書きを50件作成したあと、1通ずつ手動で送信ボタンを押していく——そんな作業をしたことはありませんか。毎月同じ案内メールを大量に送る業務では、この繰り返し操作が積み重なって無視できない手間になります。

「VBAと聞くと難しそう」と感じるかもしれません。ただ、今回紹介するコードはそのままコピーして貼り付けるだけで動きます。VBAマクロを使えば、「下書きまでは手作業（または別マクロ）で作成 → 内容を確認 → ボタン1つで一斉送信」というワークフローを実現できます。本記事ではOutlookの下書きフォルダのメールをVBAで一括送信する手順を解説します。

マクロで下書き一斉送信する際の前提条件・注意点

本記事で紹介するマクロは、Windows環境のOutlookデスクトップ版（Microsoft 365、Outlook 2019/2021）を対象としています。実際にWindows 11 + Outlook for Microsoft 365（バージョン2502）の環境で動作を確認しました。

2023年から順次導入されている「新しいOutlook（アプリ名に「Classic」と表記されていないもの）」では、VBAマクロ機能自体が搭載されていないため動作しません。現在お使いのOutlookが「新しいOutlook」に切り替わっている場合は、従来のOutlookに戻してから実行してください。また、マクロを実行するにはOutlookのVBAマクロが有効になっている必要があります。

業務での一括送信は誤送信リスクを伴います。本番運用の前に、必ず自分宛のテストメールで動作確認を行い、社内ルールや情報システム部門への確認も忘れずに行ってください。なお、本記事のマクロには宛先が空の下書きを送信しないための安全対策も含んでいます。

1. 下書きを一斉送信するサンプルマクロコード（全件送信）

1. Outlookを起動したあと、キーボードのAlt+F11キーを押して、「Microsoft Visual Basic for Applications（以下、VBA）」エディタを開きます。
2. VBAエディタのメニューバーで「挿入」をクリックし、表示されたメニューの中から「標準モジュール」をクリックします。
3. 左側のプロジェクトエクスプローラーに「Module1」が追加され、右側にコード入力エリアが表示されます。（モジュール名は分かりやすい名称に変更しても構いません）


プロジェクトエクスプローラーにデフォルトで表示されている「Microsoft Outlook Objects」内の「ThisOutlookSession」は、Outlookの起動・終了イベントで利用します。追加する汎用マクロは、標準モジュールを追加して記述してください。

4. VBAエディタのModule1のコード入力エリアに、以下のコードをそのまま貼り付けます。 コードを貼り付けたら上書き保存（Ctrl+S）します。

               Sub SendAllDrafts()
           Dim objDrafts As Outlook.MAPIFolder
           Dim objItem As Object
           Dim i As Integer
           Dim intCount As Integer
           ' 下書きフォルダを取得
           Set objDrafts = Application.Session.GetDefaultFolder(olFolderDrafts)
           intCount = objDrafts.Items.Count
           ' 下書きが0件の場合は終了
           If intCount = 0 Then
               MsgBox "下書きフォルダにメールがありません。", vbInformation
               Exit Sub
           End If
           ' 送信確認ダイアログ
           If MsgBox("下書きフォルダのメールを " & intCount & " 件送信します。よろしいですか？", _
                     vbYesNo + vbQuestion) <> vbYes Then
               Exit Sub
           End If
           ' 後ろからループして送信（送信後にアイテムが減るため逆順にする）
           For i = intCount To 1 Step -1
               Set objItem = objDrafts.Items(i)
               ' MailItemかつ宛先が入っているものだけ送信
               If TypeOf objItem Is Outlook.MailItem Then
                   If objItem.Recipients.Count > 0 Then
                       objItem.Send
                   End If
               End If
           Next i
           MsgBox "送信が完了しました。", vbInformation
       End Sub
             

5. VBAエディタのツールバーにある「▶（実行）」ボタンをクリックするか、F5キーを押してマクロを実行します。マクロが開始されると、「下書きフォルダのメールを〇件送信します。よろしいですか？」という確認ダイアログが表示されます。
6. 確認ダイアログで「はい」をクリックすると送信が開始されます。「いいえ」をクリックするとキャンセルされ、メールは送信されません。

7. 「送信が完了しました。」と表示されたら、Outlookの「送信済みアイテム」フォルダを確認します。送信済みアイテムフォルダにメールが表示されていれば完了です。

2. マクロをワンクリックで実行できるようにする

1. Outlookのウィンドウ上部にあるクイックアクセスツールバーの右端の「▼」をクリックします。
2. 「クイックアクセスツールバーのユーザー設定」メニューが表示されたら、「その他のコマンド」をクリックします。
3. 「Outlookのオプション」ダイアログの「クイックアクセスツールバー」ページが開いたら、「コマンドの選択」ドロップダウンから「マクロ」を選択します。
4. 作成したマクロ（SendAllDraftsなど）が一覧に表示されたら、追加したいマクロを選択し、「追加」ボタンをクリックします。（複数のマクロを追加する場合は繰り返してください）

5. 「OK」をクリックしてダイアログを閉じます。クイックアクセスツールバーにマクロのボタンが追加されます。
6. クイックアクセスツールバーに追加されたボタンをクリックしてマクロが実行されることを確認します。次回からはこのボタンをクリックするだけでマクロを実行できます。

確認環境 Windows 11 25H2 / Outlook for Microsoft 365（バージョン2502）

関連サイト（外部）

MailItem.Send メソッド（Outlook）- Microsoft Learn