【テクニカル・上級編】【上級者向け】受信メールの添付ファイルサイズを監視し、一定値を超えた場合に自動でクラウドストレージへアップロードするエージェント – Outlook VBA解析バイブル

メールボックスを「アーカイブの墓場」にするな：VBAによる次世代ストレージ連携エージェントの構築

Outlookの肥大化は、企業のITインフラにおける静かなる時限爆弾だ。PSTファイルの破損リスクや、バックアップ時間の増大を放置しているシニアエンジニアはいないだろう。

本稿では、`NewMailEx`イベントを起点とし、添付ファイルを検知した瞬間にクラウドストレージ（ここでは一般的なREST APIを想定）へ転送、メール本文を「ポインタ（リンク）」へと置換する、アーキテクチャの真髄を解説する。

—

1. ライフサイクル管理の鉄則：イベントの分離と非同期の模倣

VBAの`Items.ItemAdd`イベントは、大量受信時にスレッドをブロックし、Outlookそのものをフリーズさせる元凶となる。我々は`NewMailEx`イベントの `EntryIDCollection` を利用し、処理を最小単位で切り離す必要がある。

オブジェクト解放の作法

VBAで最も多いメモリリークは、`Inspector`や`Explorer`、あるいは`Attachments`オブジェクトの不適切な参照保持によるものだ。`Set obj = Nothing`は「おまじない」ではない。参照カウントを確実にデクリメントするための、エンジニアとしての最低限の責務である。

—

2. 実装アーキテクチャ：受信監視エージェント

以下のコードは、添付ファイルサイズを監視し、しきい値（例：5MB）を超えた場合に処理を分岐させるエージェントの核心部分である。

‘ ThisOutlookSession モジュールに記述
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryIDs As Variant
Dim objItem As Object
Dim i As Long

varEntryIDs = Split(EntryIDCollection, “,”)

For i = LBound(varEntryIDs) To UBound(varEntryIDs)
Set objItem = Session.GetItemFromID(varEntryIDs(i))

If TypeOf objItem Is MailItem Then
‘ 非同期に近い処理フローへ引き渡す
ProcessAttachmentSecurity objItem
End If

‘ 明示的解放：ここでメモリを解放しなければOutlookは必ず死ぬ
Set objItem = Nothing
Next i
End Sub

Private Sub ProcessAttachmentSecurity(ByRef oMail As MailItem)
Const THRESHOLD_SIZE As Long = 5242880 ‘ 5MB
Dim oAtch As Attachment

If oMail.Attachments.Count = 0 Then Exit Sub

‘ 逆順でループ（削除を行う際は必須の定石）
For Each oAtch In oMail.Attachments
If oAtch.Size > THRESHOLD_SIZE Then
‘ ここでAPIコールをトリガーする
‘ Call UploadToCloud(oAtch)

‘ 処理後、メール本体からファイルを剥がし、リンクを挿入
oAtch.Delete
oMail.Body = oMail.Body & vbCrLf & “[Cloud Link]: https://secure.example.com/” & oAtch.FileName
oMail.Save
End If
Next

Set oAtch = Nothing
End Sub

—

3. レガシー環境を凌駕する：WinHTTPとJSONの連携

VBAでクラウドAPIを叩く際、`XMLHTTP`を使うのは時代遅れだ。現代のシステム間連携には、タイムアウト制御と認証ヘッダーを厳密に管理できる `WinHttp.WinHttpRequest.5.1` を使用せよ。

また、APIレスポンスのパースにVBA標準の文字列操作を使うのは愚策である。可能であれば、`ScriptControl`を用いてJSONをオブジェクト化するか、あるいは最小構成のJSONパーサーを自前で保持しておくことが、堅牢なシステムを構築する条件となる。

パフォーマンスを極めるための知見

• API呼び出しのバッチ化: 添付ファイルが複数ある場合、個別にAPIを叩くとRTT（往復遅延時間）がボトルネックになる。可能な限りメタデータを一括送信し、マルチスレッドを疑似的に実現する設計思想を持つこと。
• エラーハンドリング: `On Error Resume Next`は悪ではないが、使用範囲を最小限にせよ。APIのタイムアウトやネットワーク切断は「必ず起こる」前提で、リトライロジックを実装しなければ、それは商用システムとは呼べない。

—

4. チーフアーキテクトからの提言

Outlook VBAは「古い」のではない。「正しく扱える者が少なくなった」だけだ。

添付ファイルの自動アップロードは、単なるストレージ節約術ではない。これは、メールという「非構造化データ」を、セキュアで管理可能な「構造化データ」へと昇華させる試みである。

コードを書くときは常に、その一行がメモリに与える影響と、ネットワーク帯域を消費するタイミングを意識せよ。それができる者だけが、このレガシーなUIを、現代のエンタープライズ環境に適合させることができる。

諸君、Outlookの限界を、コードで突破せよ。