鋼鉄のゲートキーパー：Outlook VBAによる添付ファイル自動スキャンの極致
業務自動化の最前線において、Outlook VBAは単なる「メール送信ツール」ではない。それは、組織のコミュニケーション・ハブを司る「神経系」である。
多くの開発者は、`MailItem.Send` を呼び出すだけで満足している。しかし、真のアーキテクトは知っている。送信ボタンが押されてから、パケットがネットワークに放たれるまでの「一瞬の空白」こそが、セキュリティを担保する最後の戦場であることを。
今回は、Outlook VBAから外部のスキャンエンジン（API/CLI）を呼び出し、添付ファイルの安全性を「動的」に検証する実装について解説する。これは、昨今の標的型攻撃やEmotetのような脅威に対し、エンドポイント側で最後の一線を守るための「鋼鉄のゲートキーパー」を構築する試みである。
—
1. アーキテクチャの設計思想：同期か、非同期か
添付ファイルのスキャンを実装する際、最大の障壁は「Outlookのシングルスレッド特性」である。
スキャン処理に数秒を要する場合、不用意な実装はOutlookのUIをフリーズさせ、ユーザーエクスペリエンスを著しく損なう。しかし、セキュリティの実装において「非同期（投げっぱなし）」は許されない。スキャン結果が出る前にメールが送信されては意味がないからだ。
ここで我々が採るべき戦略は、「Windows APIを用いた確実なプロセス待機」と「一時ディレクトリの厳密なライフサイクル管理」である。
2. Windows APIによる環境制御
標準の `FileSystemObject` だけでは、シニアエンジニアが求める堅牢性には届かない。まずは、システムのテンポラリパスを安全に取得し、ファイル操作の原子性を高めるための定義を行う。
Option Explicit
‘ — Windows API Definitions —
Private Declare PtrSafe Function GetTempPath Lib “kernel32” Alias “GetTempPathA” ( _
ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
‘ スキャン結果のステータスコード
Private Enum ScanResult
scSafe = 0
scInfected = 1
scError = 99
End Enum
3. 実装：Application_ItemSend イベントの掌握
Outlookにおける最強のフックポイントは `Application_ItemSend` である。ここで `Cancel = True` を叩き込めるかどうかが、システム管理者としての統制力を決定づける。
‘
‘ Method: Application_ItemSend
‘ Description: 送信直前に添付ファイルを抽出し、外部スキャンを実行する
‘
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As Outlook.MailItem
Dim att As Outlook.Attachment
Dim tempDir As String
Dim filePath As String
Dim result As ScanResult
‘ オブジェクトの型を確認（会議出席依頼などは除外する設計）
If Not TypeOf Item Is MailItem Then Exit Sub
Set mail = Item
‘ 添付ファイルがない場合はスルー
If mail.Attachments.Count = 0 Then Exit Sub
‘ 1. 一時保存ディレクトリの確定
tempDir = GetSystemTempPath() & “OutlookScan_” & Format(Now, “HHNNSS”) & “\”
If Dir(tempDir, vbDirectory) = “” Then MkDir tempDir
On Error GoTo ErrorHandler
‘ 2. 添付ファイルの走査とスキャン
For Each att In mail.Attachments
‘ インライン画像などは除外するロジックをここに挟む（必要に応じて）
filePath = tempDir & att.FileName
‘ 物理ファイルとして書き出し
att.SaveAsFile filePath
‘ 3. 外部スキャンエンジンとの連携（ここが心臓部）
result = ExecuteExternalScan(filePath)
‘ 判定
If result <> scSafe Then
MsgBox “【警告】添付ファイルにセキュリティリスクが検出されました。” & vbCrLf & _
“ファイル名: ” & att.FileName, vbCritical, “セキュリティ・ポリシー違反”
Cancel = True ‘ 送信を阻止
Exit For
End If
Next att
Cleanup:
‘ 4. 後始末：一時ファイルの抹消（証拠を残さない）
Call PurgeTempFiles(tempDir)
Set mail = Nothing
Exit Sub
ErrorHandler:
MsgBox “スキャンシステムで予期せぬエラーが発生しました。送信を中止します。”, vbExclamation
Cancel = True
Resume Cleanup
End Sub
4. 外部API/CLIとの統合：Shellの深淵
ここでは、例としてコマンドライン形式のスキャナ（または自作のAPIラッパー）を呼び出すコードを示す。`WshShell.Run` の第3引数に `True` を渡すことで、外部プロセスの終了を同期的に待機する。
‘
‘ Method: ExecuteExternalScan
‘ Description: 外部スキャナを起動し、戻り値で安全性を判定する
‘
Private Function ExecuteExternalScan(ByVal targetPath As String) As ScanResult
Dim shell As Object
Dim exitCode As Long
Dim cmd As String
Set shell = CreateObject(“WScript.Shell”)
‘ スキャナのパス（例：社内標準スキャナやcurlによるAPI送信）
‘ ここでは仮に “scanner.exe” としている。APIの場合はここでHTTPリクエストを投げる。
cmd = “C:\Security\bin\scanner.exe –mode=fast –path=””” & targetPath & “”””
‘ 実行と待機 (0: ウィンドウ非表示, True: 終了を待機)
exitCode = shell.Run(cmd, 0, True)
‘ 終了コードに基づく判定（仕様に合わせてカスタマイズ）
Select Case exitCode
Case 0: ExecuteExternalScan = scSafe
Case 1: ExecuteExternalScan = scInfected
Case Else: ExecuteExternalScan = scError
End Select
Set shell = Nothing
End Function
5. メモリ最適化とガベージコレクションの哲学
VBAにおいて、`Set obj = Nothing` を疎かにする者は、長期間稼働するデスクトップアプリケーションの保守を担う資格はない。特にOutlookは、COMオブジェクトの参照カウントが一つでも残っていると、プロセスがゾンビ化し、最悪の場合OSのリソースを食いつぶす。
上記のコードでは、`Cleanup` ラベルへ確実にジャンプさせ、ループ内ではなく終了時に一括してオブジェクトを解放する構造を採っている。また、一時ディレクトリの削除（`PurgeTempFiles`）を徹底することで、ディスクI/Oの肥大化を防いでいる。
6. シニアエンジニアへの提言：レガシーを「聖域」に変える
この実装は、単なる「ウイルス対策」ではない。
本来、VBAのようなレガシーな技術セットは、現代のマイクロサービスアーキテクチャからは軽視されがちだ。しかし、「エンドユーザーが最も時間を費やすツール（Outlook）」の内部で、企業のセキュリティポリシーを強制（Enforce）できるという点は、他のどのモダンな技術よりも強力な武器になる。
外部APIと連携させる際、JSONのパースが必要なら `VBA-JSON` ライブラリを導入すればいい。OAuth2認証が必要なら、WinHTTPリクエストでトークンをハンドリングすればいい。
「VBAだからできない」のではない。「VBAでどこまでシステムを掌握するか」という意志の強さが、アーキテクトの価値を決めるのだ。
このコードをベースに、貴殿の環境に合わせた「最強の防波堤」を築き上げてほしい。
