【実務・中級編】【中級者向け】拡張子によるフィルタリング：ExcelとPDFのみを抽出して保存する方法 – Outlook VBA解析バイブル

雑多な署名アイコンに屈するな。Outlook VBAにおける「高精度・高堅牢」な添付ファイル抽出の設計思想

自動化エンジニアとして現場に立つ者なら、一度は直面したことがあるはずだ。
「メールの添付ファイルを保存するVBAを書いた。しかし、保存されたフォルダの中身を見ると、業務ファイルと一緒に、署名に含まれるSNSのアイコンやロゴ画像（JPG/PNG）が大量に混入している……」という、あまりに初歩的で、かつ実務では致命的な問題に。

単に `Attachments.Count` を回して `SaveAsFile` を叩くだけのコードは、スクリプトとしては「動く」かもしれない。しかし、プロダクション環境に投入する「ツール」としては、極めて脆弱で、保守性の低いゴミに過ぎない。

今回は、特定の拡張子（ExcelとPDF）のみを正確に、かつエラーを最小限に抑えて抽出するための、プロフェッショナルな設計パターンを伝授する。

1. なぜ「ブラックリスト方式」ではいけないのか

多くの初級者は、こう考えがちだ。
「JPGやPNGは不要だから、それ以外のものを保存しよう」

これはブラックリスト方式と呼ばれる設計だ。この設計がなぜ現場で命取りになるのか。答えは単純だ。「未知のノイズ」を排除できないからだ。

将来的に、メール署名にWebP形式の画像が使われたり、新しい絵文字アイコンが追加されたりした瞬間、君のツールは再びゴミの山を作り出す。プロフェッショナルが採用すべきは、許可したものだけを通す「ホワイトリスト方式」だ。

2. 堅牢な設計のための3つの鉄則

実装に入る前に、アーキテクトとして以下の3点を設計思想に組み込む。

① 大文字・小文字の差異を完全に抹殺する

Windowsのファイルシステムは拡張子の大小文字を区別しないことが多いが、VBAの文字列比較は厳密だ。`.pdf` と `.PDF` を別物として扱うロジックは、バグの温床となる。必ず `LCase` 関数を用いて正規化してから比較せよ。

② 拡張子の判定には `InStrRev` を使用する

ファイル名の中にドットが含まれるケース（例: `report.v2.pdf`）を考慮せよ。単純な `Split` 関数による分割は、複雑なファイル名において予期せぬ挙動を示す。ファイル名の末尾から逆方向に最初のドットを探す `InStrRev` が、最も信頼できる手法だ。

③ I/O（入出力）の失敗を前提とする

ファイル保存は、ネットワークドライブの切断、ファイルロック（他のユーザーがExcelを開いている）、権限不足など、コードの外側にある要因で容易に失敗する。`On Error` によるエラーハンドリングは「あれば良いもの」ではなく、「必須の要件」である。

3. プロダクション・グレードのコード実装例

以下に、FileSystemObject (FSO) を活用した、保守性の高い実装例を示す。
※このコードを動かすには、VBAエディタの「ツール」→「参照設定」から 「Microsoft Scripting Runtime」 にチェックを入れておくこと。これがプロの作法だ。

'===============================================================================
' Module: AttachmentProcessor
' Description: 特定の拡張子を持つ添付ファイルを抽出・保存する
' Author: Chief Architect
'===============================================================================

Option Explicit

''' <summary>
''' 指定されたメールアイテムから、特定の拡張子を持つ添付ファイルを抽出して保存する。
''' </summary>
''' <param name="targetMail">処理対象のOutlook.MailItem</param>
''' <param name="savePath">保存先フォルダのフルパス</param>
Public Sub ExtractSpecificAttachments(ByRef targetMail As Outlook.MailItem, ByVal savePath As String)
    Dim fso As New FileSystemObject
    Dim att As Outlook.Attachment
    Dim ext As String
    Dim fileName As String
    Dim fullSavePath As String
    
    ' 1. 保存先ディレクトリの存在確認と作成
    If Not fso.FolderExists(savePath) Then
        On Error Resume Next
        fso.CreateFolder savePath
        If Err.Number <> 0 Then
            MsgBox "保存先フォルダの作成に失敗しました: " & savePath, vbCritical
            Exit Sub
        End If
        On Error GoTo 0
    End If

    ' 2. 添付ファイルのループ処理
    For Each att In targetMail.Attachments
        ' ファイル名の取得
        fileName = att.FileName
        
        ' 拡張子の抽出と正規化 (LCaseで小文字に統一)
        ext = GetExtension(fileName)
        
        ' 3. ホワイトリスト判定 (Excel: xlsx, xls, xlsm / PDF: pdf)
        If IsTargetExtension(ext) Then
            fullSavePath = fso.BuildPath(savePath, fileName)
            
            ' 同名ファイルが存在する場合の衝突回避（必要に応じてリネームロジックを追加）
            If fso.FileExists(fullSavePath) Then
                fullSavePath = fso.BuildPath(savePath, Format(Now, "yyyymmddhhnnss") & "_" & fileName)
            End If
            
            ' 4. 保存実行とエラーハンドリング
            On Error Resume Next
            att.SaveAsFile fullSavePath
            
            If Err.Number <> 0 Then
                ' ここではログ出力やエラー通知を行うのがプロの設計
                Debug.Print "Failed to save: " & fileName & " Error: " & Err.Description
            Else
                Debug.Print "Successfully saved: " & fileName
            End If
            On Error GoTo 0
        End If
    Next att
End Sub

''' <summary>
''' 拡張子が許可されたリストに含まれているかを判定する（ホワイトリスト方式）
''' </summary>
Private Function IsTargetExtension(ByVal ext As String) As Boolean
    Select Case LCase(ext)
        Case "xlsx", "xls", "xlsm", "pdf"
            IsTargetExtension = True
        Case Else
            IsTargetExtension = False
    End Select
End Function

''' <summary>
''' ファイル名から拡張子を抽出する
''' </summary>
Private Function GetExtension(ByVal fileName As String) As String
    Dim dotPos As Integer
    dotPos = InStrRev(fileName, ".")
    
    If dotPos > 0 And dotPos < Len(fileName) Then
        ' ドットの直後から末尾までを返す
        GetExtension = Mid(fileName, dotPos + 1)
    Else
        GetExtension = ""
    End If
End Function

4. 実務実装における「次の一手」

このコードをベースに、さらに実用性を高めるためのアドバイスを授けよう。

ファイル・データベース連携の罠

もし、抽出したファイル名をExcelやSQL Databaseに記録する設計にするなら、「保存に成功した時のみ」 記録プロセスを走らせるように徹底せよ。
`att.SaveAsFile` がエラーで失敗したにもかかわらず、DBに「保存済み」としてレコードが残る設計は、データの整合性を破壊する。

パフォーマンスの最適化

大量のメールをバッチ処理する場合、`FileSystemObject` のインスタンス化はループの外で行うこと。ループ内で毎回 `New FileSystemObject` を行うのは、メモリ確保と解放のオーバーヘッドを生み、処理速度を著しく低下させる。

拡張性の確保

もし明日、「CSVファイルも対象にしたい」と言われたらどうする？
上記のコードなら、`IsTargetExtension` 関数の `Case` 文に `”csv”` を一行追加するだけで完了する。この「変更に対する強さ」こそが、設計の良し悪しを分ける。

結論

自動化の真髄は、単に作業を減らすことではない。「人間が介在せずに、常に同じ品質の結果を出し続ける仕組み」 を作ることにある。

「動けばいい」という思考を捨て、エッジケースを想定し、ホワイトリストで防御を固める。この積み重ねが、君のコードを単なるスクリプトから、信頼に値する「エンジニアリング」へと昇華させるのだ。