境界線を守る：Outlookメール送受信における「添付ファイル・ガバナンス」の極意
Outlook VBAを扱うエンジニアにとって、最も「安易で、かつ致命的な過ち」は、オブジェクトのライフサイクルを制御せず、巨大な添付ファイルを無造作にメモリへロードし続けることだ。
特に、全社一律のメールサイズ制限を無視した大容量ファイルの送付は、Exchange Serverのバックログを肥大化させ、最終的には業務フローそのものを麻痺させる。今回は、単なる「サイズ警告」に留まらない、メモリの生存期間を意識した「添付ファイル・セーフティ・ガード」の実装手法を伝授する。
—
1. なぜ「合計サイズ」を厳密に管理すべきか
VBAで `Attachments.Add` を呼び出す際、多くの初心者は何も考えずにファイルパスを渡す。しかし、これはバックグラウンドでCOMオブジェクトがメモリを確保し続けることを意味する。
特に、`ItemSend` イベント内でサイズチェックを行う実装は必須だが、ここで「判定後の処理」を誤ると、メモリリークやGhostプロセス（ゾンビ化したOutlook）を誘発する。我々が構築すべきは、「イベントが発生した瞬間に、メモリ消費の妥当性を検証し、違反があれば即座にオブジェクトを破棄（Release）する」というアプローチである。
—
2. 実装：Attachment Sentinel（添付ファイル監視装置）
以下のコードは、単にサイズを判定するだけでなく、`Set obj = Nothing` の徹底と、`Err.Clear` を用いた予期せぬIO例外への耐障害性を備えたアーキテクチャである。
‘ ———————————————————————-
‘ Class: ThisOutlookSession
‘ 機能: 送信直前に添付サイズを検証し、閾値を超えた場合に強制排除する
‘ ———————————————————————-
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not TypeOf Item Is MailItem Then Exit Sub
Const MAX_SIZE_MB As Long = 10 ‘ 閾値を10MBに設定
Dim mail As MailItem: Set mail = Item
Dim att As Attachment
Dim totalSize As Double
‘ 1. サイズ集計（バイナリ負荷を避けるためSizeプロパティのみ参照）
For Each att In mail.Attachments
totalSize = totalSize + (att.Size / 1024 / 1024)
Next
‘ 2. 閾値チェックと防御的処理
If totalSize > MAX_SIZE_MB Then
If MsgBox(“添付サイズ合計が ” & Format(totalSize, “0.0”) & “MB です。” & vbCrLf & _
“規定値を超えています。添付ファイルを削除しますか？”, _
vbCritical + vbYesNo, “送信ポリシー警告”) = vbYes Then
‘ 逆順でループを回す（削除によるインデックスズレ回避の鉄則）
Dim i As Long
For i = mail.Attachments.Count To 1 Step -1
mail.Attachments.Item(i).Delete
Next i
‘ 代替手段の提示（OneDrive/SharePointリンクへの誘導ロジックをここに挿入）
MsgBox “添付ファイルを削除しました。リンク共有機能を利用してください。”, vbInformation
Cancel = True ‘ 送信を中断
Else
Cancel = True ‘ ユーザーが拒否した場合は送信をブロック
End If
End If
‘ 3. 明示的なオブジェクト解放
Set att = Nothing
Set mail = Nothing
End Sub
—
3. チーフアーキテクトの視点：極限のチューニング
1. オブジェクトのライフサイクル管理
上記のコードでは、`mail.Attachments` を操作する際、必ず「後ろから前へ」ループを回している。これはVBAのコレクション操作における鉄則だ。前方向から削除を行うとインデックスが詰まり、`Run-time error 9` を招く。これはVBAの仕様であり、ここを理解していないエンジニアは即座にコードを書き直すべきだ。
2. Windows APIによるファイルロック回避
より厳密な運用が必要な場合（ファイルサーバー上の大容量ファイルを扱う場合）、`Scripting.FileSystemObject` を併用し、`File.Size` を事前に確認することで、OutlookのCOMオブジェクトをインスタンス化する前の段階でフィルタリングを行う手法も検討せよ。不要なCOM呼び出しを減らすことが、パフォーマンス向上への唯一の近道である。
3. エラーハンドリングの「沈黙」を許すな
もし添付ファイルが他のプロセスによってロックされている場合、`Delete` メソッドは失敗する。このとき、単にエラーを無視するのではなく、`Err.Number` を捕捉し、ログファイルやイベントビューアーへ出力する仕組みを組み込むこと。
—
結論：技術は「規律」のためにある
このコードは、ただの「機能」ではない。組織のネットワーク負荷を軽減し、エンドユーザーが誤って大容量ファイルを送信した際の「恥」を防ぐためのガードレールだ。
自動化とは、単に手作業を置き換えることではない。「システムが本来あるべき姿を保ち続けるための自浄作用」を構築することに他ならない。VBAという古き良きツールを、現代の高度なインフラ環境に適応させるには、こうした「境界線」を明確にする設計思想が必要不可欠である。
さあ、コードを書き換えろ。あなたの書く一行が、明日からの安定運用を支えるはずだ。
