【中級者からシニアへ】Outlook VBAで挑む添付ファイル監視エージェント：巨大メール自動警告システムの全貌
レガシーシステムの最前線において、Outlook VBAは依然として強力なインテグレーション・レイヤーとして君臨している。
特に、メールサーバへの負荷軽減や、コンプライアンス（情報漏洩対策・誤送信防止）の観点から、受信メールのペイロードサイズをリアルタイムに監視し、ポリシー違反者に対して即座にフィードバックを返す仕組みは、多くの企業情報システム部が求めてやまない要件だ。
今回は、単にイベントを拾ってメールを返すだけの「おもちゃのコード」ではない。
オブジェクトのライフサイクル管理、COMの参照リーク防止、そしてメッセージループのブロックを防ぐ堅牢な非同期思考を取り入れた、プロダクションクオリティの「添付ファイルサイズ監視・警告自動返信エージェント」の実装知見を公開する。
—
1. アーキテクチャ設計の要諦：なぜ「素直なVBA」では破綻するのか
Outlookの `NewMailEx` イベントをフックして処理を行うアプローチは一見して容易に思える。しかし、実務の現場では以下の罠が待ち受けている。
1. COMオブジェクトの連鎖的解放漏れ: `Inspector` や `Attachment` などを変数に格納したまま参照を切り忘れると、Outlookのプロセス内にメモリリークが蓄積し、やがてCOM例外（Error 8001010A: サーバーでビジー状態です）を引き起こす。
2. 添付ファイルサイズの動的評価のコスト: メッセージが完全にストアに書き込まれる前に `Attachments` コレクションにアクセスすると、ストリームがロックされているか、サイズが正しく取得できない（ゼロバイトを返す）タイトリング問題が発生する。
3. 無限ループ（メール爆弾）の恐怖: 警告メールを自動送信した際、その送信控えや返信メール自体を自身のイベントが再検知し、警告の無限ループに陥る致命的リスク。
これらを完全に克服するため、本アーキテクチャでは エントリID（EntryID）による遅延評価と厳格なオブジェクト参照の即時破棄 を徹底する。
—
2. 実装コード：プロダクション・グレードの監視エージェント
以下のコードは、`ThisOutlookSession` モジュールに配置することを前提とした実用コードである。
Option Explicit
‘ ==============================================================================
‘ 致命的な無限ループを防ぐためのセマフォ（フラグ）
‘ ==============================================================================
Private Const GUARD_SUBJECT_PREFIX As String = “[自動警告] 添付ファイルサイズが制限を超過しています”
Private Const MAX_ALLOWABLE_SIZE_MB As Double = 10# ‘ 許容上限: 10MB
Private WithEvents m_Namespace As Outlook.NameSpace
Private WithEvents m_InboxItems As Outlook.Items
‘ ——————————————————————————
‘ イベント初期化: Outlook起動時およびプロファイル変更時に確実にバインドする
‘ ——————————————————————————
Private Sub Application_Startup()
On Error GoTo ErrorHandler
Set m_Namespace = Application.Session
‘ 受信トレイのItemsコレクションを取得
Set m_InboxItems = m_Namespace.GetDefaultFolder(olFolderInbox).Items
Exit Sub
ErrorHandler:
Debug.Print “Application_Startup Error: ” & Err.Description
‘ 本番環境ではEventLog等へのフォールバックを推奨
End Sub
‘ ——————————————————————————
‘ 新着メール検知イベント (NewMailExはEntryIDのみを渡すため、遅延バインディングに最適)
‘ ——————————————————————————
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim vEntryIDs As Variant
Dim i As Long
On Error GoTo ErrorHandler
‘ NewMailExは複数のEntryIDをカンマ区切りで返す場合があるためパースする
vEntryIDs = Split(EntryIDCollection, “,”)
For i = LBound(vEntryIDs) To UBound(vEntryIDs)
Call ProcessIncomingMail(Trim(vEntryIDs(i)))
Next i
Exit Sub
ErrorHandler:
Debug.Print “Application_NewMailEx Error: ” & Err.Description
End Sub
‘ ——————————————————————————
‘ コアロジック: メールオブジェクトの安全な取得とサイズ検証
‘ ——————————————————————————
Private Sub ProcessIncomingMail(ByVal strEntryID As String)
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment
Dim totalSize As Double
Dim lngLimitBytes As Long
On Error GoTo CleanUp
‘ 名前空間から安全にアイテムを取得（早期バインドの回避とオブジェクト整合性の維持）
Set objItem = m_Namespace.GetItemFromID(strEntryID)
‘ メールアイテム以外（会議出席依頼や連絡先など）は即座に排除
If objItem.Class <> olMail Then GoTo CleanUp
Set objMail = objItem
‘ 【重要】自作の警告メールに対する無限ループ防止ガード
If InStr(1, objMail.Subject, GUARD_SUBJECT_PREFIX, vbTextCompare) > 0 Then
GoTo CleanUp
End If
‘ 添付ファイルの有無を確認
Set objAttachments = objMail.Attachments
If objAttachments.Count = 0 Then GoTo CleanUp
totalSize = 0#
lngLimitBytes = CLng(MAX_ALLOWABLE_SIZE_MB 1024 1024)
‘ 各添付ファイルのサイズを合算 (Sizeプロパティはバイト単位)
Dim j As Long
For j = 1 To objAttachments.Count
Set objAttachment = objAttachments.Item(j)
totalSize = totalSize + objAttachment.Size
‘ ループ内でのオブジェクト解放
Set objAttachment = Nothing
Next j
‘ 閾値を超過している場合の処理
If totalSize > lngLimitBytes Then
Call SendWarningReply(objMail, totalSize)
End If
CleanUp:
‘ ————————————————————————–
‘ オブジェクトの明示的解放 (COM Reference Leak Prevention)
‘ ————————————————————————–
If Not objAttachment Is Nothing Then Set objAttachment = Nothing
If Not objAttachments Is Nothing Then Set objAttachments = Nothing
If Not objMail Is Nothing Then Set objMail = Nothing
If Not objItem Is Nothing Then Set objItem = Nothing
Exit Sub
ErrorHandler:
Debug.Print “ProcessIncomingMail Error: ” & Err.Description
Resume CleanUp
End Sub
‘ ——————————————————————————
‘ 警告メールの自動返信処理
‘ ——————————————————————————
Private Sub SendWarningReply(ByVal objOriginalMail As Outlook.MailItem, ByVal dblActualSize As Double)
Dim objReply As Outlook.MailItem
Dim strMsg As String
Dim dblSizeMB As Double
On Error GoTo ErrorHandler
dblSizeMB = Round(dblActualSize / (1024 1024), 2)
‘ 返信アイテムの作成
Set objReply = objOriginalMail.Reply
strMsg = “管理者からの自動システム通知です。” & vbCrLf & _
“送信されたメールの添付ファイル合計サイズ (” & dblSizeMB & ” MB) が、” & _
“社内規定の制限値 (” & MAX_ALLOWABLE_SIZE_MB & ” MB) を超過しています。” & vbCrLf & _
“ファイルを圧縮するか、ファイル転送サービス等を利用して再送してください。” & vbCrLf & _
“このメールは自動送信されています。”
With objReply
.Subject = GUARD_SUBJECT_PREFIX & ” [” & objOriginalMail.Subject & “]”
.Body = strMsg & vbCrLf & vbCrLf & “—————————————-” & vbCrLf & .Body
.Send ‘ 送信キューへ投入
End With
CleanUp:
If Not objReply Is Nothing Then Set objReply = Nothing
Exit Sub
Exit Sub
ErrorHandler:
Debug.Print “SendWarningReply Error: ” & Err.Description
Resume CleanUp
End Sub
—
3. シニアエンジニアが押さえるべきアーキテクチャの急所
A. なぜ `NewMail` ではなく `NewMailEx` なのか？
レガシーな解説書では `Items_ItemAdd` や `NewMail` イベントが推奨されがちだが、これらは大量のメールが同時に着信した際にイベントを取りこぼしたり（Event Throttlingの欠如）、メールが完全にストアへ書き込まれる前にフックしてしまい、`Attachment.Size` が正しく取得できない不具合の温床となる。
`NewMailEx` が提供する `EntryIDCollection` を用いることで、「保存が完了したアイテムのID」を確実に受け取り、`GetItemFromID` でトランザクション的に安全にアクセスすることが可能となる。
B. COMメモリ管理とガベージコレクションの強制
VBAのランタイムは参照カウント方式（Reference Counting）でCOMオブジェクトを管理しているが、スコープを抜けるタイミングや例外発生時（`On Error Goto`）にデストラクタが即座に走るとは限らない。
特にOutlookのプロセスは肥大化しやすく、`Set xxx = Nothing` をコードパスごとに徹底しないと、数日稼働させただけでOutlookがフリーズする。今回のコードでは、`CleanUp` ラベルを用意し、いかなる例外が起きようとも確実にローカルCOM変数を破棄する堅牢な構造にしている。
C. 無限ループ（メール爆弾）への対策
自動返信システムにおいて最も恐ろしいのは、「警告メールの送信 $\rightarrow$ 自己の受信トレイ着信 $\rightarrow$ 再び警告メール送信」という無限再帰のループである。
本実装では、件名に一意のプレフィックス (`GUARD_SUBJECT_PREFIX`) を付与し、処理の冒頭でこれを弾くバリデーションを挟むことで、論理的なデッドロックを完全に遮断している。
—
4. 運用・保守・さらなる高みへ（エンタープライズ展開）
このVBAスクリプトを組織展開する場合、以下の運用統制を検討すべきである。
- デジタル署名（SelfCert等）の必須化: セキュリティポリシーの厳しい環境では、マクロが無効化されるか警告が表示される。社内の信頼されたCAまたは自己署名証明書でVBAプロジェクトに署名し、グループポリシー（GPO）で信頼済み発行元として配布すること。
- ログの外部出力: `Debug.Print` はイミディエイトウインドウにしか出力されないため、本番運用ではWindowsのイベントログ（Applicationログ）へ `WScript.Shell` 経由で `EventCreate` を叩くか、ローカルのCSVファイルへ非同期で書き出すロギング機構へ拡張すると完璧だ。
コードは嘘をつかない。細部まで意図が張り巡らされたアーキテクチャこそが、レガシーとモダンを繋ぐ現場のエンジニアを救う。あなたのOutlook環境に、この静寂にして強靭なガーディアンを配備してほしい。
