【実務・中級編】【中級者向け】パスワード付きZIPファイル添付メールを検知してログに記録するエラーハンドリング – Outlook VBA解析バイブル

「止まらない自動化」への昇華：パスワード付きZIPという“不確定要素”を制御する堅牢な設計術

業務自動化の現場において、開発者が直面する最大の敵は「仕様通りに動かないデータ」だ。

多くの開発者は、正常系（期待通りのデータが来るケース）のフローを構築することに心血を注ぐ。しかし、プロダクション環境（実業務）にコードをデプロイした瞬間、その設計は脆くも崩れ去る。なぜなら、現実のメールには「パスワード付きZIPファイル」という、プログラムの実行フローを根底から破壊しかねない「不確定要素」が紛れ込むからだ。

もし、君が書いたループ処理の中で、一つのパスワード付きZIPに遭遇した際、エラーでマクロが停止してしまうとしたら……。その設計は「ツール」ではなく、単なる「脆弱なスクリプト」に過ぎない。

本記事では、中級者への階段を登るために不可欠な、「エラーを例外として正しく扱い、処理を継続させるための堅牢なアーキテクチャ」について、Outlook VBAを題材に解説する。

1. なぜ、単純な `On Error Resume Next` ではいけないのか

初心者はエラーに遭遇すると、手っ取り早く `On Error Resume Next` を記述する。しかし、これは設計思想として最悪だ。

エラーを無視するということは、「何が起きたのかをシステムが把握できなくなる」ことを意味する。添付ファイルの解凍に失敗したのか、ディスク容量が不足したのか、あるいはネットワークが切断されたのか。原因が不明なまま処理を続行させることは、データの欠損や不整合を引き起こす温床となる。

プロフェッショナルが取るべき戦略は、「エラーを検知し、そのコンテキスト（文脈）を記録し、次のタスクへ安全に遷移する」ことだ。

2. 堅牢な設計の3原則

パスワード付きZIPを扱う自動化処理において、私は常に以下の3原則を叩き込む。

1. 分離 (Separation of Concerns): 「メインのループ」「ファイル処理」「エラーログ記録」を明確に分離せよ。
2. 検知 (Detection): エラーが発生してから対処するのではなく、可能な限り「パスワード保護の有無」を判定するロジックを組み込め。
3. 継続性 (Continuity): 一つの添付ファイルが失敗しても、メール全体の処理、あるいは受信トレイ全体の処理を中断させるな。

3. 実装：プロダクション・クオリティのコード例

以下に、パスワード付きZIPを検知し、エラーをログに記録しながら処理を続行する、実務レベルのコードを示す。ここでは、`Shell.Application` を用いてZIPの中身にアクセスを試み、失敗した場合にパスワード保護と判断する手法を採用する。

Option Explicit

' --- 定数定義：保守性を高めるためにマジックナンバーを排除 ---
Private Const LOG_FILE_PATH As String = "C:\Automation\Logs\AttachmentProcess.log"
Private Const SAVE_DIR As String = "C:\Automation\SavedFiles\"

''' <summary>
''' メインエントリーポイント：受信トレイのメールをスキャンする
''' </summary>
Public Sub ProcessIncomingEmails()
    Dim outlookApp As Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim inbox As Outlook.Folder
    Dim mailItem As Object
    Dim i As Long
    
    Set outlookApp = New Outlook.Application
    Set ns = outlookApp.GetNamespace("MAPI")
    Set inbox = ns.GetDefaultFolder(olFolderInbox)
    
    ' フォルダの存在確認（簡易実装）
    If Dir(SAVE_DIR, vbDirectory) = "" Then MkDir SAVE_DIR
    
    ' 受信トレイのアイテムをループ
    ' ※ 実際には未読判定や日付判定などのフィルタリングを推奨
    For Each mailItem In inbox.Items
        If TypeOf mailItem Is Outlook.MailItem Then
            ' 各メールに対する処理をサブルーチン化し、エラーの影響範囲を限定する
            ProcessSingleMail mailItem
        End If
    Next mailItem
    
    MsgBox "処理が完了しました。詳細はログを確認してください。", vbInformation
End Sub

''' <summary>
''' 個別のメールに対する処理
''' </summary>
Private Sub ProcessSingleMail(ByRef mail As Outlook.MailItem)
    Dim att As Outlook.Attachment
    Dim filePath As String
    
    ' 添付ファイルがない場合はスキップ
    If mail.Attachments.Count = 0 Then Exit Sub
    
    On Error GoTo MailError
    
    For Each att In mail.Attachments
        ' 拡張子が .zip の場合のみ特殊処理
        If LCase(Right(att.FileName, 4)) = ".zip" Then
            filePath = SAVE_DIR & att.FileName
            
            ' 1. 一旦ファイルを保存
            att.SaveAsFile filePath
            
            ' 2. パスワード保護のチェックと解凍試行
            If CheckAndExtractZip(filePath) Then
                ' 解凍成功時のロジック
                Debug.Print "Success: " & att.FileName
            Else
                ' パスワード保護等の理由で解凍失敗
                WriteLog "WARNING", mail.Subject, "Password protected or corrupt ZIP: " & att.FileName
            End If
        Else
            ' 通常ファイルの保存処理
            att.SaveAsFile SAVE_DIR & att.FileName
        End If
    Next att
    
    Exit Sub

MailError:
    ' メール処理自体に致命的なエラーが発生した場合
    WriteLog "ERROR", mail.Subject, "Mail processing failed: " & Err.Description
End Sub

''' <summary>
''' ZIPファイルがパスワード保護されているか確認し、解凍を試みる
''' </summary>
''' <returns>解凍成功ならTrue, 失敗（パスワード等）ならFalse</returns>
Private Function CheckAndExtractZip(ByVal zipPath As String) As Boolean
    Dim shellApp As Object
    Dim targetFolder As String
    Dim extractPath As String
    
    ' 解凍先フォルダの作成
    extractPath = SAVE_DIR & "Extracted_" & Format(Now, "yyyymmdd_hhnnss") & "\"
    If Dir(extractPath, vbDirectory) = "" Then MkDir extractPath
    
    Set shellApp = CreateObject("Shell.Application")
    
    On Error Resume Next
    ' Shell.Applicationを使用してZIP内のアイテムを列挙しようとする
    ' パスワード付きの場合、ここでエラーが発生するか、アイテムが取得できない
    Dim items As Object
    Set items = shellApp.Namespace(zipPath).Items
    
    If Err.Number <> 0 Or items Is Nothing Then
        ' エラーが発生した ＝ パスワード保護されている可能性が高い
        Err.Clear
        CheckAndExtractZip = False
        Exit Function
    End If
    
    ' 解凍試行
    shellApp.Namespace(extractPath).CopyHere items, 16 ' 16 = Respond "Yes to All"
    
    If Err.Number <> 0 Then
        CheckAndExtractZip = False
    Else
        CheckAndExtractZip = True
    End If
    On Error GoTo 0
    
    Set shellApp = Nothing
End Function

''' <summary>
''' 構造化されたログをファイルに書き出す
''' </summary>
Private Sub WriteLog(ByVal level As String, ByVal context As String, ByVal message As String)
    Dim fileNum As Integer
    Dim logLine As String
    
    fileNum = FreeFile
    
    ' ログフォーマット: [Timestamp] [Level] [Subject] Message
    logLine = "[" & Format(Now, "yyyy-mm-dd hh:nn:ss") & "] " & _
              "[" & level & "] " & _
              "[" & Left(context, 30) & "] " & _
              message
              
    Open LOG_FILE_PATH For Append As #fileNum
    Print #fileNum, logLine
    Close #fileNum
    
    ' 本来であれば、ここで管理者へのメール通知やAPI経由の通知(Teams/Slack)を行う
    Debug.Print logLine
End Sub

4. アーキテクトの視点：実務運用のためのアドバイス

コードを書くだけでは不十分だ。このツールを「プロダクション」へ投入するなら、以下の観点を考慮せよ。

ファイルI/Oのパフォーマンスと競合

`FileSystemObject` や `Shell.Application` を多用する場合、ファイルロックに注意が必要だ。特に、ウイルス対策ソフトがスキャンを行うタイミングと、VBAの書き込みタイミングが重なると、`Permission Denied` エラーが発生する。これを防ぐには、リトライロジック（数秒待機して再試行する）を組み込むのが定石だ。

ログの「意味論」

ログは「後から人間が読んで、何をすべきか判断できる」ものでなければならない。
単に `Error 438` と書くのではなく、`[WARNING] [Subject] Password protected ZIP detected. Manual intervention required.` と書くのだ。これにより、管理者は「あ、これはパスワードを別途聞き出さなきゃいけないやつだ」と即座に判断できる。

拡張性：データベース連携への移行

ログの量が増え、複数の端末から実行されるようになれば、テキストファイルでの管理は限界を迎える。その時は、`ADODB.Connection` を用いて、SQL ServerやSQLiteなどのデータベースへログを書き込むよう、`WriteLog` サブルーチンをリファクタリングせよ。インターフェースさえ分離されていれば、メインロジックに手を加える必要はない。

結論

「エラーが起きないコード」を目指すな。「エラーが起きても、システムが正しく振る舞い、原因を特定できるコード」を目指せ。

パスワード付きZIPという、自動化の天敵を「検知可能な例外」へと変えること。それこそが、スクリプトキディとエンジニアを分かつ境界線である。