【上級者向け】大量メール配信時の「送信レート制限」を回避する：バッチ処理と待機時間の最適化
開発プロジェクトの現場でよくある相談だ。
「社内向けの一斉通知や、顧客へのプロモーションメールをOutlook VBAで数千件送信したい。しかし、途中でOutlookがフリーズしたり、メールサーバーの送信レート制限（リミット）に引っかかってエラーで止まってしまう。どうにかならないか？」
結論から言おう。
素直に `For` ループで `MailItem.Send` を回し続けるだけのコードは、実務の現場においては「悪」でしかない。
サーバー側の一時的な拒否（421 Service not available / 550 Too many connections等）を踏むだけでなく、Outlookのセッションを窒息させ、最悪の場合はクライアントPC全体の固着を招く。プロのエンジニアであれば、スループットとサーバー負荷のバランスを制御する「バッチ処理」と「非ブロッキングな待機処理」を実装しなければならない。
今回は、Outlook VBAの裏側の挙動を完全に掌握し、数千通規模のメール配信をも安全に完遂するための極限の設計とプロダクションコードを伝授する。
—
1. なぜ「力任せのループ」は破綻するのか
まず、Outlookのオブジェクトモデルの特性を理解する必要がある。
VBAから `MailItem.Send` を実行すると、メールは即座にOutlookの「送信トレイ」にエンキューされ、送受信プロセス（MAPIプロバイダ）によって順次SMTPサーバーへ送出される。
ここに高速なループを流し込むと、以下の致命的な問題が発生する。
1. MAPIセッションのオーバーフロー:
送信要求のスピードがSMTPサーバーの処理能力や、プロバイダのレート制限を超過する。
2. OutlookのUIフリーズ（Not Responding）:
VBAの実行スレッドがメインUIスレッドを専有し、Windowsメッセージキューが処理できなくなる。
3. トランザクションのロスト:
途中でエラーが発生した際、どこまで送信が完了したか追跡できず、二重送信地獄に陥る。
これらを解決するためには、「適切なバッチ分割（チャンク化）」と「処理落ちを防ぐ非同期待機（DoEventsの制御）」、そして「例外発生時のリトライ機構」が不可欠となる。
—
2. アーキテクチャ設計のポイント
今回のプロダクションコードで実装する核心のロジックは以下の3点だ。
- バッチ処理（Batching）:
全送信リストを例えば「50件ずつ」のチャンクに分割し、1バッチ処理ごとに物理的なインターバル（冷却期間）を設ける。
- 非ブロッキング待機（Non-Blocking Sleep）:
`Application.Wait` や `Sleep` APIはOutlookのUIを完全に殺すため、Windowsのメッセージポンプを維持する自製の `WaitSeconds` 関数を使用する。
- 動的スロットリングの概念:
サーバーの応答速度やエラーレートに応じて、待機時間を動的に調整できる拡張性を持たせておく。
—
3. プロダクションコード：堅牢な一括送信エンジン
以下のコードは、エラーハンドリング、バッチ分割、UIフリーズ防止の待機処理を完璧に網羅した実戦用モジュールである。Excel等の外部データソースから宛先リストを受け取る設計を想定している。
Option Explicit
‘ ==============================================================================
‘ 模块名: clsBatchMailSender
‘ 用途: 大量メール送信時のレート制限回避・バッチ処理エンジン
‘ ==============================================================================
‘ 定数定義（環境に合わせて調整すること）
Const BATCH_SIZE As Long = 30 ‘ 1バッチあたりの送信数
Const BATCH_INTERVAL As Long = 5 ‘ バッチ間の待機時間（秒）
Const ITEM_INTERVAL As Long = 1 ‘ 同一バッチ内でのメール間隔（秒）
Public Sub ExecuteMassMailer()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“SendList”) ‘ 宛先リストが記載されたシート
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
If lastRow < 2 Then
MsgBox "送信対象データが存在しません。", vbExclamation
Exit Sub
End If
Dim outlookApp As Object
Dim mailItem As Object
Set outlookApp = CreateObject("Outlook.Application")
Dim i As Long, batchCount As Long, successCount As Long, errorCount As Long
batchCount = 0
successCount = 0
errorCount = 0
Dim startTime As Double
startTime = Timer
On Error GoTo GlobalError
For i = 2 To lastRow
' --- 1件ごとのメール構築・送信 ---
Dim recipient As String
Dim subject As String
Dim body As String
recipient = ws.Cells(i, 1).Value
subject = ws.Cells(i, 2).Value
body = ws.Cells(i, 3).Value
If Len(recipient) > 0 Then
On Error Resume Next
Set mailItem = outlookApp.CreateItem(0) ‘ olMailItem = 0
With mailItem
.To = recipient
.Subject = subject
.Body = body
‘ ※HTMLメールの場合は .HTMLBody を使用すること
‘ 送信処理（送信トレイへエンキュー）
.Send
End With
If Err.Number = 0 Then
successCount = successCount + 1
ws.Cells(i, 4).Value = “送信完了”
ws.Cells(i, 5).Value = Now
Else
errorCount = errorCount + 1
ws.Cells(i, 4).Value = “エラー: ” & Err.Description
‘ ログファイルへの出力処理をここに挟むのがベストプラクティス
End If
On Error GoTo GlobalError
Set mailItem = Nothing
End If
‘ — レート制限回避のインターバル制御 —
‘ 1件ごとのマイクロポーズ
If ITEM_INTERVAL > 0 Then
Call NonBlockingWait(ITEM_INTERVAL)
End If
‘ バッチサイズごとのマクロポーズ（冷却期間）
If (i – 1) Mod BATCH_SIZE = 0 Then
batchCount = batchCount + 1
Debug.Print “— バッチ ” & batchCount & ” 完了。サーバー負荷軽減のため ” & BATCH_INTERVAL & ” 秒間待機します —”
Call NonBlockingWait(BATCH_INTERVAL)
End If
‘ 進捗をステータスバーに表示
Application.StatusBar = “送信中… ” & (i – 1) & ” / ” & (lastRow – 1) & ” 件完了 (成功: ” & successCount & ” / 失敗: ” & errorCount & “)”
Next i
Application.StatusBar = False
MsgBox “一括送信が完了しました。” & vbCrLf & _
“成功: ” & successCount & ” 件” & vbCrLf & _
“失敗: ” & errorCount & ” 件” & vbCrLf & _
“所要時間: ” & Format((Timer – startTime) / 60, “0.0”) & ” 分”, vbInformation
Exit Sub
GlobalError:
Application.StatusBar = False
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
If Not mailItem Is Nothing Then Set mailItem = Nothing
Set outlookApp = Nothing
End Sub
‘ ==============================================================================
‘ 致命的なUIフリーズを防ぐ非同期待機関数
‘ ==============================================================================
Private Sub NonBlockingWait(ByVal seconds As Long)
Dim targetTime As Double
targetTime = Timer + seconds
Do While Timer < targetTime ' 24時間越え（深夜0時を跨いだ場合）の簡易対策 If Timer > targetTime Then Exit Do
‘ Windowsのメッセージポンプに制御を返し、フリーズを防ぐ
DoEvents
‘ CPUの100%スパイクを防ぐための微小スリープ（Windows APIを使用しない簡易版）
Application.Wait (Now + TimeSerial(0, 0, 1))
‘ ※厳密なミリ秒制御が必要な場合は Sleep API を推奨するが、
‘ DoEvents を挟むことでOutlookの応答性を十分に維持できる。
Loop
End Sub
—
4. 実務運用における極意と注意点
このコードを現場の生産システムに組み込む際、アーキテクトとして以下の点に注意してほしい。
1. 送信済みフラグとリラン（再実行）耐性
ネットワークの切断や予期せぬシャットダウンに備え、送信処理の直前で `ws.Cells(i, 4).Value` が「送信完了」になっているレコードはスキップするロジック（Idempotency：べき等性の確保）を追加することを強く推奨する。これにより、万が一途中で止まっても、再実行するだけで残りの未送信分から処理を再開できる。
2. バッファサイズとサーバー管理者の対話
`BATCH_SIZE` と `BATCH_INTERVAL` の値は、接続するSMTPサーバー（Exchange Online、M365、社内独自Exim/Postfix等）のポリシーに依存する。
例えばMicrosoft 365の受信者・送信制限（リミット）を考慮する場合、過剰なスレッドや短時間での大量リクエストは即座にアカウントロックやスロットリング（帯域制限）を引き起こす。サーバー管理者に許容スループットを確認した上で、この定数チューニングを行うこと。
3. 深夜帯の自動実行スケジューリング
業務時間内に数千件のメールを流すこと自体がネットワーク帯域やサーバーの迷惑メールスコープに悪影響を与える可能性がある。このVBAをWindowsのタスクスケジューラや、Outlook自体のタイマーイベントと組み合わせ、「誰もいない深夜帯にサイレント実行する」スキームに昇華させるのが、真のプロフェッショナルエンジニアの仕事である。
—
総括
VBAはレガシーな言語とやゆされがちだが、オブジェクトのライフサイクルとOSのイベントループの仕組みを正しく理解していれば、これほど手軽に堅牢なエンタープライズ・オートメーションを実現できるツールはない。
力任せのコードを書く時代は終わった。
「スマートに、美しく、サーバーに優しく、そして絶対に止まらない」バッチ処理アーキテクチャを、あなたの現場にも導入してほしい。
