Outlook VBAを掌握する極限の知見：添付ファイル肥大化による送信エラーを根絶する「スマート容量インターセプター」の設計思想
開発プロジェクトの現場において、Outlook VBAによるメール自動化は日常茶飯事だ。しかし、中級者から上級者へのステップアップの過程で、多くのエンジニアが「メール送信」という最後の関門で痛い目を見る。
その最たる原因が、「添付ファイルの容量制限」である。
「送信ボタンを押した瞬間、数分間フリーズした挙句に『サーバーのサイズ制限を超えています』という冷酷なエラーダイアログが表示される」
「顧客への重要書類の送信が、容量オーバーで止まり、ビジネスチャンスを逃しかけた」
このようなインシデントは、開発者の設計ミス、すなわち「未然に防ぐ仕組み（ガードレール）」を怠った結果に他ならない。
今回は、Outlook VBAのオブジェクトライフサイクルとファイルI/Oの特性を熟知したチーフアーキテクトの視点から、「添付ファイルの合計容量を動的に算出し、閾値を超えた場合に送信をインターセプト（中断）してファイル転送サービスのURLへと誘導する、実務直結型の堅牢な自動化ツール」の設計と実装を伝授する。
—
なぜ「送信時のエラーハンドリング」では遅すぎるのか？
素人が書くコードは、往々にしてこうだ：
- 「とりあえず `MailItem.Send` を実行し、エラーが起きたら `On Error Resume Next` で捕まえよう」
これは最悪のアンチパターンである。なぜなら、`Send` メソッドが走った時点で、Outlookは添付ファイルを含むすべてのバイナリデータをメモリ上に展開し、ExchangeやSMTPサーバーへの転送処理を開始しているからだ。大容量ファイルを抱えた状態で送信処理を中断させると、Outlook自体の不安定化や、送信トレイ（Outbox）へのゴミデータの残留を引き起こす。
プロが実践する「プリ・インターセプト（事前迎撃）設計」
真に堅牢なシステムとは、「ユーザーが送信ボタンを押した、まさにその瞬間にイベントをフックし、サーバーと通信する前に論理チェックを完了させる」ものである。
これを実現するのが、Outlookの `Application_ItemSend` イベントと、`FileSystemObject (FSO)` による物理ファイルサイズの厳密な事前計算の組み合わせだ。
—
アーキテクチャの全体像
今回構築するソリューションのデータフローは以下の通り。
1. イベントフック: ユーザーが送信操作を行う (`ItemSend`)。
2. 監査対象の特定: 対象がメール (`MailItem`) かつ、添付ファイルが存在するか確認。
3. 容量計算: `Attachments` コレクションを走査し、FSOを用いて各ファイルのバイト数を合算。
4. 閾値判定: 社内規定の制限値（例: 20MB）と比較。
5. 分岐制御:
- 許容範囲内: 通常通り送信を許可。
- 超過時: 送信を強制的かつ安全にキャンセルし、代替のファイル転送サービスURLを入力するプロンプトまたは下書きの書き換えを実行。
—
プロダクションコード：`ThisOutlookSession` に実装する堅牢なロジック
以下のコードは、エラー耐性を高め、メモリリークや予期せぬ例外を防ぐための厳格な型指定とオブジェクト解放を行ったプロダクションコードである。そのまま社内のOutlook環境にデプロイして即座に活用できる。
Option Explicit
‘ ==============================================================================
定数定義：環境に合わせて調整すること
‘ ==============================================================================
Private Const MAX_ATTACHMENT_SIZE_MB As Double = 20# ‘ 許容上限容量（MB）
Private Const BYTES_IN_MB As Double = 1048576# ‘ 1MB = 1024 1024 バイト
Private Const TRANSFER_SERVICE_URL As String = “https://example.file-transfer.internal/upload”
‘ ==============================================================================
‘ イベントプロシージャ: アイテム送信時に強制発動
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 1. 対象がMailItemであるか厳密に型チェック（会議依頼やタスクの誤爆を防ぐ）
If Not TypeOf Item Is MailItem Then Exit Sub
Dim mail As MailItem
Set mail = Item
‘ 2. 添付ファイルが存在しない場合は処理をスキップ（無駄なI/Oを発生させない）
If mail.Attachments.Count = 0 Then Exit Sub
‘ 3. 添付ファイルの総容量を算出（バイト単位）
Dim totalBytes As Currency
totalBytes = GetTotalAttachmentSize(mail)
Dim totalMB As Double
totalMB = totalBytes / BYTES_IN_MB
‘ 4. 閾値判定
If totalMB > MAX_ATTACHMENT_SIZE_MB Then
‘ 送信の完全キャンセル
Cancel = True
‘ ユーザーへのアラートと代替フローへの誘導
Dim msg As String
msg = “【送信中止】添付ファイルの総容量が規定値を超過しています。” & vbCrLf & _
“————————————————–” & vbCrLf & _
“現在の容量: ” & Format(totalMB, “0.00”) & ” MB” & vbCrLf & _
“許容上限額: ” & MAX_ATTACHMENT_SIZE_MB & ” MB” & vbCrLf & _
“————————————————–” & vbCrLf & _
“ファイルを以下のファイル転送サービスにアップロードし、” & vbCrLf & _
“本文にURLを記載してから再度送信してください。” & vbCrLf & vbCrLf & _
“■ 社内転送サービス: ” & TRANSFER_SERVICE_URL & vbCrLf & vbCrLf & _
“ブラウザで転送サービスを開きますか？”
Dim answer As VbMsgBoxResult
answer = MsgBox(msg, vbCritical + vbYesNo, “セキュリティ＆容量ポリシー警告”)
If answer = vbYes Then
‘ 既定のブラウザでURLを開く
Call OpenURL(TRANSFER_SERVICE_URL)
End If
‘ オブジェクトのクリーンアップ
Set mail = Nothing
Exit Sub
End If
‘ 正常終了時はそのまま送信許可
Set mail = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬエラーのキャッチ（VBAの暴走を防ぐ）
MsgBox “容量チェック中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “システムエラー”
Cancel = True
Set mail = Nothing
End Sub
‘ ==============================================================================
‘ 補助関数: 添付ファイルの総バイト数を厳密に算出
‘ ==============================================================================
Private Function GetTotalAttachmentSize(ByVal mail As MailItem) As Currency
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim totalSize As Currency
totalSize = 0
Dim att As Attachment
Dim tempPath As String
Dim i As Long
For i = 1 To mail.Attachments.Count
Set att = mail.Attachments(i)
‘ 注意: Outlookの添付ファイルには「ファイル」「埋め込みオブジェクト(OLE)」「メッセージアイテム」が混在する。
‘ OLEオブジェクトや一部の特殊な添付はファイルパスを持たない場合があるため、Typeプロパティを確認する。
If att.Type = olByValue Then
‘ 一時ファイルとして保存されている、あるいは通常のファイルパスを持つ場合
‘ ※OutlookのAttachmentオブジェクトから直接Sizeを取得するプロパティ（.Size）もあるが、
‘ ドラッグ＆ドロップ直後や一部の同期ズレで正確な値が取れないケースがあるため、
‘ 一時保存またはPathプロパティをFSOで評価するのが最も確実。
On Error Resume Next
‘ パスが取得できる場合（ディスク上のファイルをアタッチした場合）
Dim fPath As String
fPath = att.PathName
If fPath <> “” And fso.FileExists(fPath) Then
totalSize = totalSize + fso.GetFile(fPath).Size
Else
‘ メモリ上に展開されている（新規ドラッグ＆ドロップ等）の場合は、Attachment.Sizeプロパティにフォールバック
totalSize = totalSize + att.Size
End If
On Error GoTo 0
End If
Next i
Set fso = Nothing
GetTotalAttachmentSize = totalSize
End Function
‘ ==============================================================================
‘ 補助関数: 既定のブラウザでURLを開く
‘ ==============================================================================
Private Sub OpenURL(ByVal url As String)
On Error Resume Next
CreateObject(“WScript.Shell”).Run url
On Error GoTo 0
End Sub
—
現場のエンジニアへ：実装における深淵な注意点
このコードを実運用に乗せるにあたり、プロの視点からいくつか重要なアーキテクチャ上の注意点を補足しておく。
1. `Attachment.Size` の罠と `FileSystemObject` の併用
Outlookの `Attachment` オブジェクトには `.Size` プロパティが存在する。しかし、メール作成画面にファイルをドラッグ＆ドロップした直後の極めて短いライフサイクルの中では、Outlook内部の非同期処理が完了しておらず、`.Size` が `0` を返すか、正確なバイト数を返さない瞬間がある。
そのため、本コードでは `PathName` からFSOを経由して物理ファイルのサイズを直接叩くロジックを優先し、それが不可能な場合に `.Size` プロパティへフォールバックする二重防御構造（フェイルセーフ）を採用している。
2. メモリリークとCOMオブジェクトの解放
Outlook VBAでは、`.Attachments(i)` や `MailItem` などのCOMオブジェクトをループ内で取得する際、適切な変数スコープの管理を行わないとメモリリークを引き起こす。
特に `ThisOutlookSession` はOutlookが起動している間ずっとメモリ上に常駐するため、グローバルな状態汚染やオブジェクトの解放漏れは、数日稼働した後の「Outlookの動作重篤化」に直結する。ローカル変数はプロシージャ終了と共に確実に解放されるよう、インスタンスの使い回しを避ける設計にしている。
3. セキュリティ設定（マクロのデジタル署名）
企業のセキュリティポリシーが厳格な環境では、未署名のVBAコードは `ItemSend` などのイベントフックを黙殺する（あるいは警告を出して実行をブロックする）。
本番展開の際は、必ず自己署名証明書（SelfCert等）を作成し、VBAプロジェクトにデジタル署名を行うか、グループポリシー（GPO）で信頼できる発行元として配布すること。
—
結言：自動化とは「エラーの先回り」である
素人のプログラミングは「正常系が動くこと」をゴールにする。
しかし、プロフェッショナルのアーキテクチャは「異常系、ユーザーのうっかりミス、システムの限界値をいかにエレガントに包み込むか」に全力を注ぐ。
今回紹介した「スマート容量インターセプター」は、単なる容量チェック機能ではない。社員のコンプライアンス違反（機密情報の誤送信や過大なトラフィックによるサーバー負荷）を未然に防ぎ、ヘルプデスクへの問い合わせをゼロにする、極めて費用対効果の高い防衛システムである。
あなたの組織のOutlook環境にこのコードを組み込み、真にモダンで強靭な自動化基盤を完成させてほしい。
