Outlook VBAを掌握する極限の知見：添付ファイル容量の動的制御とセキュアな送信インターセプト
エンタープライズ領域におけるメールインフラの保守において、最大のアキレス腱の一つが「添付ファイルの肥大化によるメールサーバーの圧迫」と「誤送信・情報漏洩リスク」である。
多くの組織では、メールゲートウェイ側で容量制限（例: 20MB）を設けているが、送信ボタンを押した後にサーバーから弾かれるUXの悪さは、業務効率を著しく低下させる。さらに悪いことに、容量オーバーのメールが送信トレイにスタックし、同期エラーを引き起こすトラブルはヘルプデスクの常連チケットだ。
真のアーキテクトであれば、「サーバー側で弾かれる前に、クライアントサイド（Outlook）のイベントライフサイクルで完全にインタセプトし、スマートにファイル転送サービスへ誘導する仕組み」を構築しなければならない。
今回は、Outlook VBAの`ItemSend`イベントをフックし、FSO（FileSystemObject）を用いたリアルタイムの容量計算から、安全なオブジェクト解放、そして運用に耐えうる例外処理まで、極限まで最適化されたコードベースを解説する。
—
1. アーキテクチャ設計の要点
このソリューションを実装するにあたり、以下の技術的課題をクリアする必要がある。
- イベントの確実な捕捉: `Application_ItemSend`イベントを使用し、ユーザーが「送信」を押した瞬間に介入する。
- ファイルI/Oの効率化: スリープや無駄なインスタンス生成を避け、メモリリークを防ぐためのオブジェクト破棄（`Nothing`代入の徹底）。
- 動的なプロパティ制御: 添付ファイルオブジェクトの参照を安全に操作し、容量超過時にメール本文の書き換えと添付ファイルの削除をアトミックに行う。
—
2. 実装コード：`ThisOutlookSession` の極限最適化
以下のコードをOutlookの `ThisOutlookSession` モジュールに実装する。
レガシーなVBA環境であってもメモリリークを起こさないよう、COMオブジェクトのライフサイクルを厳密に管理している。
Option Explicit
‘ ==============================================================================
‘ 局所定数定義
‘ ==============================================================================
Private Const MAX_ATTACHMENT_SIZE_MB As Double = 10.0 ‘ 許容上限容量 (MB)
Private Const BYTE_CONVERSION_FACTOR As Double = 1024 1024
Private Const FILE_TRANSFER_URL As String = “https://file-transfer.internal.local/upload”
‘ ==============================================================================
‘ イベントプロシージャ: Application_ItemSend
‘ 概要: メールの送信直前に割り込み、添付ファイル総量を検証する
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 処理対象は MailItem のみ（MeetingItemやTaskItemなどを除外）
If Not TypeOf Item Is MailItem Then Exit Sub
Dim mail As MailItem
Set mail = Item
‘ 添付ファイルが存在しない場合は早期リターン
If mail.Attachments.Count = 0 Then
Set mail = Nothing
Exit Sub
End If
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim totalSize As Double
totalSize = 0#
Dim att As Attachment
Dim i As Long
‘ 添付ファイルの総容量をバイト単位で算出（FSO経由で実ファイルサイズを取得）
‘ ※OutlookのAttachment.Sizeは送信前には正確でない場合があるためFSOを推奨
For i = mail.Attachments.Count To 1 Step -1
Set att = mail.Attachments(i)
‘ 埋め込み画像（CID添付など）を除外する場合の判定ロジック
‘ ここでは一般的なファイル添付をすべて対象とする
If att.Type = olByValue Then
‘ 一時保存されていないパスなし添付（ドラッグ＆ドロップ直後など）への対策
Dim filePath As String
filePath = GetAttachmentPath(att)
If filePath <> “” And fso.FileExists(filePath) Then
Dim fileObj As Object
Set fileObj = fso.GetFile(filePath)
totalSize = totalSize + fileObj.Size
Set fileObj = Nothing
Else
‘ パスが取れない場合はOutlook内蔵プロパティフォールバック
totalSize = totalSize + att.Size
End If
End If
Set att = Nothing
Next i
‘ 容量換算 (Byte -> MB)
Dim totalSizeMB As Double
totalSizeMB = totalSize / BYTE_CONVERSION_FACTOR
‘ 閾値判定
If totalSizeMB > MAX_ATTACHMENT_SIZE_MB Then
Dim msg As String
msg = “【警告】添付ファイルの総容量 (” & Format(totalSizeMB, “0.00”) & ” MB) が ” & _
MAX_ATTACHMENT_SIZE_MB & ” MB の社内制限を超過しています。” & vbCrLf & vbCrLf & _
“送信を中断しました。” & vbCrLf & _
“ファイルを社内ファイル転送サービスへアップロードし、本文に以下のURLを記載してください。” & vbCrLf & _
FILE_TRANSFER_URL & vbCrLf & vbCrLf & _
“添付ファイルを自動削除して本文を書き換えますか？”
Dim answer As VbMsgBoxResult
answer = MsgBox(msg, vbExclamation + vbYesNo, “容量制限超過エラー – セキュリティポリシー”)
If answer = vbYes Then
‘ 添付ファイルの削除と本文へのURL追記
Call ConvertToTransferService(mail, fso)
Cancel = False ‘ 本文書き換え後に再送信を許可する場合はFalse、ユーザーに再編集を促すならTrue
Else
‘ ユーザーが手動で修正するため送信を完全にキャンセル
Cancel = True
End If
End If
CleanUp:
‘ 厳格なメモリ解放（COMオブジェクトの参照リーク防止）
Set fso = Nothing
Set mail = Nothing
Exit Sub
ErrorHandler:
MsgBox “ItemSend イベント内で予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Cancel = True
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 補助関数: 添付ファイルから物理パスを安全に抽出する
‘ ==============================================================================
Private Function GetAttachmentPath(ByVal att As Attachment) As String
On Error Resume Next
‘ Outlook 2016以降や環境によってはPathプロパティが空を返すことがある
GetAttachmentPath = att.PathName
If Err.Number <> 0 Then GetAttachmentPath = “”
On Error GoTo 0
End Function
‘ ==============================================================================
‘ 補助関数: 添付ファイルを削除し、転送サービス用URLを本文に挿入する
‘ ==============================================================================
Private Sub ConvertToTransferService(ByRef mail As MailItem, ByRef fso As Object)
On Error GoTo ErrorHandler
‘ 逆順ループで添付ファイルを安全に削除
Dim i As Long
For i = mail.Attachments.Count To 1 Step -1
mail.Attachments(i).Delete
Next i
‘ 本文の末尾に転送サービス案内を追記
Dim footer As String
footer = vbCrLf & vbCrLf & “————————————————–” & vbCrLf & _
“【システム自動追記】” & vbCrLf & _
“容量制限により添付ファイルが削除されました。” & vbCrLf & _
“以下のURLよりファイルをダウンロードしてください。” & vbCrLf & _
“URL: ” & FILE_TRANSFER_URL & vbCrLf & _
“————————————————–”
If mail.BodyFormat = olFormatHTML Then
mail.HTMLBody = mail.HTMLBody & “
————————————————–
” & _
“【システム自動追記】
” & _
“容量制限により添付ファイルが削除されました。
” & _
“以下のURLよりファイルをダウンロードしてください。
” & _
“URL: ” & FILE_TRANSFER_URL & “
” & _
“————————————————–
”
Else
mail.Body = mail.Body & footer
End If
Exit Sub
ErrorHandler:
Err.Raise Err.Number, “ConvertToTransferService”, “添付ファイルの置換処理に失敗しました: ” & Err.Description
End Sub
—
3. シニアエンジニアが押さえるべき深層ポイント
上記のコードベースは単なる「動くサンプル」ではなく、大規模運用を想定したアーキテクチャ上のこだわりが詰まっている。
① 逆順ループ（Backward Loop）による安全な要素削除
VBAのコレクション操作（`Attachments` や `Controls` など）において、前方からインクリメントしながら削除を行うと、インデックスのズレ（Index Shift）が発生し、必ずバグの温床となる。
コード内で `For i = mail.Attachments.Count To 1 Step -1` と逆順に処理しているのは、コレクションの動的変化に対する防御的プログラミングの基本原則である。
② FSOとOutlookネイティブプロパティのハイブリッド検証
Outlookの `Attachment.Size` プロパティは、メールが一度ドラフトとしてセーブされる前や、特定の外部ドラッグ＆ドロップ経由のオブジェクトにおいて、正確な値を返さないケースがある。
そのため、`FileSystemObject` を噛ませて実ファイルのバイト数を直接叩きに行くロジックをフォールバックとして組み込むことで、環境依存の誤作動を完全に排除している。
③ COMオブジェクトの参照解放（Memory Leakの絶滅）
VBAにおける最大の悪習は、`CreateObject` やオブジェクト変数への代入を行ったままスコープを抜け、COMの参照カウントを残留させることである。
プロシージャの最後、あるいはエラーハンドラ（`CleanUp:`）において、必ず `Set fso = Nothing` および `Set mail = Nothing` を明示的に実行し、Outlookプロセス（`OUTLOOK.EXE`）のメモリ肥大化やゾンビ化を防いでいる。
—
4. 運用・展開上の注意点（エンタープライズ視点）
このマクロを全社展開する場合、以下のガバナンスとセキュリティの壁を考慮する必要がある。
1. デジタル署名の強制:
社内ポリシーとして、無署名のVBAマクロの実行はデフォルトでブロックされる。グループポリシー（GPO）または証明書発行サーバー（CA）を利用し、信頼された発行元の証明書を全端末の「信頼されたルート証明機関」に配布する必要がある。
2. VBAプロジェクトの保護:
ソースコードの改ざんやロジックのバイパスを防ぐため、VBAエディタのプロパティから「プロジェクトのロック（パスワード保護）」を必ず行うこと。
3. URLの動的変更（API連携への拡張）:
今回のコードでは固定のURL（`FILE_TRANSFER_URL`）を挿入しているが、高度な環境では、社内のファイル転送APIを `MSXML2.XMLHTTP` や `WinHttpRequest` 経由で叩き、「自動でファイルをアップロードし、発行されたワンタイムURLを動的に取得して本文に埋め込む」という完全自動化パイプラインへと昇華させることが可能だ。
総括
VBAはレガシーな言語と揶揄されがちだが、OutlookのオブジェクトモデルとWindowsのファイルシステムを直結させるインターフェースとして、今なおエンタープライズの現場において圧倒的なアジリティを持つ。
システム管理者が直面する「メールインフラの容量肥大化とヒューマンエラー」という課題に対し、このクライアントサイド・インターセプトの知見を導入することで、インフラコストの削減とセキュリティガバナンスの向上を同時に達成できる。現場のコードベースに直ちに組み込み、その堅牢性を体感してほしい。
