【テクニカル・上級編】【中級者向け】添付ファイル名に特定のキーワードが含まれる場合のみ保存する正規表現活用術 – Outlook VBA解析バイブル

Beyond `InStr`: 堅牢な添付ファイル・インジェクション・エンジンの構築

— Regexによる高精度フィルタリングとCOMオブジェクトのライフサイクル管理 —

業務自動化の現場において、「動けばいい」というコードは、将来のシステム障害を予約する行為に等しい。特に、Outlookという巨大かつ不安定なCOM（Component Object Model）プロセスの上で動作するVBAにおいて、リソース管理を疎かにした実装は、メモリリークを招き、最終的にはクライアントの業務を停止させる致命的な「爆弾」となる。

本稿では、単なる「添付ファイルの保存」という初歩的な実装を脱却し、`VBScript.RegExp`を用いた高度なパターンマッチングと、シニアエンジニアが絶対に妥協しないオブジェクトの明示的解放（Deterministic Destruction）を組み合わせた、プロフェッショナルな実装手法を解説する。

1. なぜ `InStr` では不十分なのか

多くの開発者は、ファイル名の判定に `InStr` 関数や `Like` 演算子を使用する。

' 初歩的かつ脆弱な実装
If InStr(attachment.FileName, "請求書") > 0 Then ...

しかし、これは実務レベルでは極めて脆弱だ。例えば、「請求書_控え.pdf」は拾えるが、「2023_Inv_001.pdf」といった正規化されていない命名規則や、大文字・小文字が混在する「INVOICE.pdf」には対応できない。

我々が求めるのは、「特定のキーワードが含まれ、かつ特定の拡張子を持つ」という、ビジネスロジックに直結した厳密な条件定義である。ここで真価を発揮するのが、`VBScript.RegExp` による正規表現エンジンである。

2. 正規表現による高度なフィルタリング戦略

正規表現を用いることで、複雑な条件を一行のパターンに凝縮できる。
例えば、以下のパターンを検討しよう。

`(?i)(請求書|見積書|invoice|estimate).*\.(pdf|xlsx|csv)$`

• `(?i)` : 大文字・小文字を区別しない（Case-Insensitive）。
• `(請求書|見積書|invoice|estimate)` : 指定したキーワードのいずれかにマッチ。
• `.*` : 任意の文字の連続。
• `\.(pdf|xlsx|csv)$` : 指定した拡張子で終わるものに限定。

これにより、不適切なファイル（例：`memo_invoice_text.txt`）の誤検知を防ぎ、確実に業務に必要なドキュメントのみを抽出するパイプラインを構築できる。

3. 致命的な罠：COMオブジェクトのライフサイクル

ここからが、アーキテクトとしての真髄である。
Outlook VBAにおいて、`MailItem` や `Attachment` オブジェクトは、単なる変数ではない。それらは外部プロセスであるOutlookが管理するCOM参照カウントによって制御されている。

ループ内で大量のメールを処理する際、`Set obj = Nothing` を怠ると、参照カウントがゼロにならず、メモリ上にオブジェクトが居座り続ける。これが積み重なると、Outlookのメモリ使用量は指数関数的に増大し、最終的には「Out of Memory」エラー、あるいはプロセスのハングアップを引き起こす。

「使い終わったオブジェクトは、即座に、明示的に、確実に解放する」
これは、レガシーな環境を保守し、大規模な自動化システムを運用する者が守るべき鉄則である。

4. 実装：プロフェッショナル・グレードの添付ファイル抽出エンジン

以下に、実戦投入可能なコードを示す。単なるサンプルではなく、エラーハンドリングとリソース管理を組み込んだ、堅牢な設計思想に基づいている。

'---------------------------------------------------------------------------------------
' Module: modAttachmentProcessor
' Description: 高度な正規表現を用いた添付ファイルの自動抽出・保存モジュール
' Author: Chief Architect
'---------------------------------------------------------------------------------------

Option Explicit

''' <summary>
''' 指定されたメールアイテムから、正規表現パターンに合致する添付ファイルを抽出して保存する。
''' </summary>
''' <param name="itm">処理対象の Outlook.MailItem オブジェクト</param>
''' <param name="savePath">保存先ディレクトリのフルパス</param>
Public Sub ProcessAttachmentsWithRegex(ByVal itm As Outlook.MailItem, ByVal savePath As String)
    Dim regEx As Object
    Dim att As Outlook.Attachment
    Dim targetPattern As String
    Dim isMatch As Boolean
    
    ' 1. 正規表現エンジンの初期化 (Late Binding を使用し、参照設定の依存を最小化)
    On Error GoTo ErrorHandler
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' パターン定義: 請求書/見積書/invoice/estimate を含み、pdf/xlsx/csv で終わるもの
    ' ※ 実際の業務要件に合わせて最適化せよ
    targetPattern = "(?i)(請求書|見積書|invoice|estimate).*\.(pdf|xlsx|csv)$"
    
    With regEx
        .Pattern = targetPattern
        .IgnoreCase = True
        .Global = False
    End With

    ' 2. 保存先ディレクトリの存在確認 (FileSystemObjectを使用)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(savePath) Then
        Err.Raise vbErr_FileNotReady, "ProcessAttachmentsWithRegex", "Target directory does not exist: " & savePath
    End If

    ' 3. 添付ファイルの反復処理
    For Each att In itm.Attachments
        isMatch = False
        
        ' 正規表現によるマッチング判定
        If regEx.Test(att.FileName) Then
            isMatch = True
        End If
        
        If isMatch Then
            ' ファイル保存実行
            ' ※ 同名ファイルが存在する場合の上書き制御は、要件に応じて実装せよ
            att.SaveAsFile savePath & "\" & att.FileName
            Debug.Print "Successfully saved: " & att.FileName
        End If
        
        ' 【極限の知見】Attachmentオブジェクトの参照を明示的に解除
        ' ループ内でのメモリ蓄積を防ぐ
        Set att = Nothing
    Next att

CleanUp:
    ' 4. リソースの明示的解放 (Deterministic Destruction)
    ' 正常終了時もエラー発生時も、必ずここを通るように設計
    If Not regEx Is Nothing Then Set regEx = Nothing
    If Not fso Is Nothing Then Set fso = Nothing
    Exit Sub

ErrorHandler:
    ' 実運用では、ここでのログ出力を外部ファイルやEvent Logへ飛ばす設計が望ましい
    MsgBox "Critical Error in Attachment Processing: " & Err.Description, vbCritical, "System Error"
    Resume CleanUp
End Sub

' 定数定義 (エラーハンドリング用)
Private Const vbErr_FileNotReady As Long = 513

5. アーキテクトによる設計の総括

この実装において、シニアエンジニアが注目すべき点は以下の3点である。

1. Late Binding (遅延結合) の採用:
`VBScript.RegExp` を `CreateObject` で呼び出すことで、実行環境のライブラリバージョン差異による「参照不可エラー」を回避している。これは、配布対象のPC環境が制御できないエンタープライズ環境における標準的な作法である。
2. 正規表現の計算コストの局所化:
`regEx.Test` は非常に高速だが、ループ内でオブジェクトを再生成してはならない。ループの外で一度だけインスタンス化し、使い回すことで、CPUサイクルを節約している。
3. 決定論的なリソース解放:
`CleanUp` ラベルによる一元的な解放処理は、コードの可読性を高めるだけでなく、例外発生時（`ErrorHandler`）においてもメモリリークを確実に防ぐための防波堤となる。

自動化とは、単に作業を減らすことではない。「人間の介入を必要としない、予測可能で制御可能なシステムを構築すること」である。このコードはその哲学に基づいた、最小限かつ最強の武器となるだろう。