【実務・中級編】【初心者向け】添付ファイルがないメールを誤判定しないための「Countプロパティ」活用術 – Outlook VBA解析バイブル

【設計思想】「添付ファイルがある前提」のコードはゴミだ。Attachments.Countで実現する堅牢な自動化

業務自動化の現場において、エンジニアの資質が最も残酷に露呈するのは「正常系（Happy Path）」のコードを書いている時ではない。「異常系（Edge Case）」に直面した時だ。

初心者が書いたVBAスクリプトは、常に「メールには必ず添付ファイルが付いている」という甘い幻想に基づいている。しかし、実務の現実は非情だ。署名に画像が含まれているだけのメール、テキストのみの通知メール、あるいはシステムエラーによる空のメール。これらが流れてきた瞬間、君が丹精込めて作り上げた自動化ツールは、無慈悲な「実行時エラー 91」を吐き出して停止する。

本記事では、単なるプロパティの使い方を超えた、「止まらないシステム」を作るための設計思想を伝授する。

1. なぜ「いきなりループ」が致命的な設計なのか

多くの初学者は、以下のようなコードを書きたがる。

' ❌ プロダクション環境では絶対に許されない「脆弱な」コード例
For Each att In mailItem.Attachments
    att.SaveAsFile "C:\Temp\" & att.FileName
Next att

一見、簡潔で美しく見えるかもしれない。しかし、これは設計として極めて不完全だ。
もし `mailItem.Attachments` が空（Count = 0）の場合、このコード自体はエラーにならないこともある。しかし、問題はその先に続く「添付ファイルが存在することを前提としたロジック」だ。

「添付ファイルがあるはずだ」という仮定に基づいたロジックは、条件分岐（Guard Clause）を欠いている。プロフェッショナルは、「データが存在しないこと」を一つの重要な状態として定義する。

2. Guard Clause（ガード句）による防御的プログラミング

堅牢なコードの鉄則は、「不適切な状態であれば、速やかに、かつ安全に処理を中断（スキップ）する」ことだ。ここで登場するのが `Attachments.Count` プロパティである。

`Attachments.Count` は、そのメールオブジェクトが保持している添付ファイルの総数を返す。これを利用して、処理の入り口で「門番」を立てる。これがガード句の考え方だ。

' ✅ プロフェッショナルが導入すべき「ガード句」の概念
If mailItem.Attachments.Count = 0 Then
    ' 添付ファイルがない場合は、これ以上何もせず、このメールの処理を終了させる
    Debug.Print "Skip: No attachments found in Mail ID: " & mailItem.EntryID
    Exit Sub 
End If

この数行があるだけで、後続の複雑なファイル保存ロジックやデータベースへの書き込み処理が、無意味なエラーに晒されるリスクを根源から断つことができる。

3. 【実践】プロダクション品質の添付ファイル抽出モジュール

では、実務でそのまま組み込めるレベルの、保守性と堅牢性を兼ね備えたコードを示そう。
単一の `Sub` に全てを詰め込むのは素人の仕事だ。「メールの判定」「ファイルの保存」「エラーハンドリング」を分離するのが、アーキテクトの流儀である。

※このコードを使用するには、VBAエディタの [ツール] -> [参照設定] から 「Microsoft Scripting Runtime」 にチェックを入れておくこと（FileSystemObjectを使用するため）。

Option Explicit

''' <summary>
''' メインエントリーポイント：受信トレイのメールをスキャンし、添付ファイルを処理する
''' </summary>
Public Sub ProcessInboxAttachments()
    Dim outlookApp As Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim inbox As Outlook.Folder
    Dim mailItem As Object ' MailItemだけでなく、MeetingItem等が混ざる可能性を考慮
    
    Set outlookApp = New Outlook.Application
    Set ns = outlookApp.GetNamespace("MAPI")
    Set inbox = ns.GetDefaultFolder(olFolderInbox)
    
    On Error GoTo ErrorHandler

    ' 受信トレイのアイテムをループ
    For Each mailItem In inbox.Items
        ' MailItemであることを確認（会議依頼などを除外するため）
        If TypeOf mailItem Is Outlook.MailItem Then
            ' 個別の処理ロジックへ委譲
            Call SafeSaveAttachments(mailItem, "C:\AutomatedDownloads\")
        End If
    Next mailItem

    MsgBox "処理が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
End Sub

''' <summary>
''' 個別のメールアイテムに対して、安全に添付ファイルを保存する
''' </summary>
''' <param name="mail">対象のMailItem</param>
''' <param name="savePath">保存先フォルダパス</param>
Private Sub SafeSaveAttachments(ByVal mail As Outlook.MailItem, ByVal savePath As String)
    Dim fso As New FileSystemObject
    Dim att As Outlook.Attachment
    Dim targetFolder As String
    
    ' 1. Guard Clause: 添付ファイルが存在するかチェック
    If mail.Attachments.Count = 0 Then
        ' 添付ファイルがない場合は、ログを残して静かに終了
        Debug.Print "Skip: No attachment in [" & mail.Subject & "]"
        Exit Sub
    End If

    ' 2. 保存先ディレクトリの存在確認と作成
    targetFolder = savePath
    If Not fso.FolderExists(targetFolder) Then
        On Error Resume Next
        fso.CreateFolder targetFolder
        If Err.Number <> 0 Then
            Debug.Print "Error: Cannot create folder " & targetFolder
            Exit Sub
        End If
        On Error GoTo 0
    End If

    ' 3. 添付ファイルの保存処理
    On Error Resume Next ' 個別のファイル保存失敗が全体の停止を招かないようにする
    For Each att In mail.Attachments
        ' ファイル名に使用できない文字の置換などは本来ここで行うべき（重要）
        Dim cleanFileName As String
        cleanFileName = SanitizeFileName(att.FileName)
        
        Dim fullPath As String
        fullPath = targetFolder & cleanFileName
        
        att.SaveAsFile fullPath
        
        If Err.Number = 0 Then
            Debug.Print "Success: Saved " & cleanFileName
        Else
            Debug.Print "Failed: Could not save " & att.FileName & " - " & Err.Description
            Err.Clear
        End If
    Next att
    On Error GoTo 0
End Sub

''' <summary>
''' ファイル名に使えない禁止文字を置換する（堅牢性のための必須処理）
''' </summary>
Private Function SanitizeFileName(ByVal fileName As String) As String
    Dim invalidChars As Variant
    Dim i As Integer
    invalidChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    
    For i = LBound(invalidChars) To UBound(invalidChars)
        fileName = Replace(fileName, invalidChars(i), "_")
    Next i
    SanitizeFileName = fileName
End Function

4. アーキテクトの視点：実務で陥る「見えない罠」

コードを書いただけで満足してはいけない。運用フェーズで君を苦しめるのは、コードの外側にある問題だ。

① ファイル名の衝突とサニタイズ

添付ファイル名には、Windowsのファイルシステムで禁止されている文字（`/`, `:`, `*` 等）が含まれていることが多々ある。また、同じ名前のファイルが既に存在する場合、`SaveAsFile` は上書きしてしまう。
実務では、`SanitizeFileName` のような関数を用いて不正文字を排除し、さらにファイル名の末尾に `Format(Now, “yyyymmdd_hhnnss”)` を付与して一意性（Uniqueness）を確保する設計が求められる。

② I/O（入出力）のボトルネック

保存先がネットワークドライブ（`\\Server\Share\…`）の場合、大量の添付ファイルを連続して保存しようとすると、ネットワーク遅延によって処理速度が劇的に低下し、最悪の場合、タイムアウトで落ちる。
大量処理を行う場合は、一度ローカルの `Temp` フォルダに保存し、一括してネットワークへ転送する、あるいは処理の合間に `DoEvents` を挟んでOSに制御を戻すといった、リソース管理の意識が必要だ。

③ オブジェクトの解放

VBAにおいて、Outlookのオブジェクトをループ内で大量に生成する場合、適切に `Set obj = Nothing` を行わないと、メモリリークを引き起こし、長時間稼働させたツールが動作不安定になる原因となる。

結論

`Attachments.Count` を使うことは、単なる「エラー回避」ではない。それは、「想定外の事態を、プログラムの制御下に置く」というプロフェッショナルな設計思想の現れだ。

「動けばいい」コードを書く者は、トラブルが起きた時にデバッグに追われる。
「止まらない」コードを書く者は、システムの安定性を担保し、真の業務効率化を実現する。

君が次にコードを書く時、その一行に「ガード句」はあるか？ 問い続けてほしい。