【実務・中級編】【上級者向け】添付ファイルが「インライン画像」か「添付ファイル」かを判別する詳細判定ロジック – Outlook VBA解析バイブル

「Attachment.Count」を信じるな。Outlook VBAにおけるインライン画像と実添付ファイルの峻別ロジック

業務自動化の現場において、Outlook VBAは強力な武器となる。しかし、多くの開発者が「添付ファイルの保存」という一見単純なタスクにおいて、致命的な設計ミスを犯している。

そのミスとは何か？ それは、`MailItem.Attachments` コレクションを無批判にループさせ、すべてのオブジェクトを「添付ファイル」として扱ってしまうことだ。

もし君が作成したツールが、メール署名に含まれるSNSアイコンや、本文中に埋め込まれたスクリーンショットを「重要な業務資料」としてサーバーに保存し続けているとしたら、そのシステムは「自動化」ではなく「ゴミの大量生産機」に成り下がっている。

本稿では、プロフェッショナルとして、インライン画像（Inline Image）と真の添付ファイル（Attachment）を厳格に峻別するための、MAPIプロパティを用いた深淵な判定ロジックを伝授する。

なぜ、標準のプロパティでは不十分なのか

初心者はよくこう書く。
`If objAttachment.Type = olByValue Then …`

残念ながら、これでは不十分だ。Outlookのオブジェクトモデルにおける `Attachment.Type` は、ファイルが「値として保持されているか（ByValue）」か「リンクとして保持されているか（ByReference）」を示すものであり、「それが本文の一部（インライン）か、独立したファイルか」を判別する能力を持っていない。

現代のHTMLメールにおいて、画像は「添付ファイル」の枠組みの中に存在しながら、実態としては本文のHTMLタグ `src=”cid:…”` によって参照されている。この「CID（Content-ID）」の存在こそが、インライン画像を見分ける鍵となる。

核心：MAPIプロパティ `PR_ATTACH_CONTENT_ID` を突け

真の判定ロジックを手に入れるには、Outlookの抽象化されたオブジェクトモデルのさらに奥、MAPI（Messaging Application Programming Interface）層にアクセスする必要がある。

具体的には、`PropertyAccessor` オブジェクトを使用し、特定のMAPIプロパティタグを読み取る。インライン画像の場合、その添付ファイルには `PR_ATTACH_CONTENT_ID` というプロパティが付与されている。これが存在するかどうかが、分水嶺となる。

使用するプロパティタグ：

• `http://schemas.microsoft.com/mapi/proptag/0x3712001E` (`PR_ATTACH_CONTENT_ID`)

プロダクション・グレードの判定ロジック

以下に、単なるスニペットではない、保守性と堅牢性を考慮した設計コードを示す。設計思想として、「判定ロジック（Logic）」と「ファイル操作（Action）」を完全に分離している。これにより、将来的に保存先をローカルからクラウドストレージ（SharePoint/S3等）に変更する場合でも、判定ロジックを再利用できる。

Option Explicit

' =================================================================
' 構成定数: MAPIプロパティの定義
' =================================================================
Private Const PR_ATTACH_CONTENT_ID As String = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"

''' <summary>
''' メールの添付ファイルをスキャンし、インライン画像を除外して保存するメインルーチン
''' </summary>
Public Sub ProcessMailAttachments(ByRef objMail As Outlook.MailItem, ByVal savePath As String)
    Dim objAttachment As Outlook.Attachment
    Dim strFileName As String
    Dim isInline As Boolean
    
    ' ディレクトリの存在確認（設計の基本：前提条件の検証）
    If Dir(savePath, vbDirectory) = "" Then
        Err.Raise vbObjectError + 513, "ProcessMailAttachments", "保存先ディレクトリが存在しません。"
    End If

    On Error GoTo ErrorHandler

    For Each objAttachment In objMail.Attachments
        ' 1. インライン画像かどうかの判定
        isInline = CheckIfInline(objAttachment)
        
        If Not isInline Then
            ' 2. ファイル名の決定（衝突回避のためのロジックは別途実装が必要）
            strFileName = GetSafeFileName(objAttachment.FileName)
            
            ' 3. 保存実行
            objAttachment.SaveAsFile savePath & "\" & strFileName
            Debug.Print "Saved: " & strFileName
        Else
            Debug.Print "Skipped (Inline): " & objAttachment.FileName
        End If
    Next objAttachment

ExitSub:
    Exit Sub

ErrorHandler:
    ' ログ出力などのエラーハンドリングをここに集約
    Debug.Print "Error in ProcessMailAttachments: " & Err.Description
    Resume ExitSub
End Sub

''' <summary>
''' 添付ファイルがインライン画像（本文埋め込み）かどうかを判定する
''' </summary>
''' <param name="objAttachment">判定対象のAttachmentオブジェクト</param>
''' <returns>インラインであればTrue</returns>
Private Function CheckIfInline(ByRef objAttachment As Outlook.Attachment) As Boolean
    On Error Resume Next
    Dim strContentID As String
    
    ' PropertyAccessorを用いてMAPIプロパティに直接アクセス
    ' インライン画像の場合、PR_ATTACH_CONTENT_ID が設定されている
    strContentID = objAttachment.PropertyAccessor.GetProperty(PR_ATTACH_CONTENT_ID)
    
    ' エラーが発生した、あるいはContentIDが空であればインラインではないと判断
    If Err.Number <> 0 Or strContentID = "" Then
        CheckIfInline = False
    Else
        CheckIfInline = True
    End If
    On Error GoTo 0
End Function

''' <summary>
''' ファイル名から不正な文字を除去する（堅牢なファイル操作の必須工程）
''' </summary>
Private Function GetSafeFileName(ByVal originalName As String) As String
    Dim invalidChars As Variant
    Dim i As Integer
    invalidChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    
    GetSafeFileName = originalName
    For i = LBound(invalidChars) To UBound(invalidChars)
        GetSafeFileName = Replace(GetSafeFileName, invalidChars(i), "_")
    Next i
End Function

アーキテクトの視点：実務実装における3つの警告

このコードをプロダクション環境（本番環境）へ投入するにあたり、君が考慮すべき「重み」が3つある。

1. ファイル名の衝突と一意性の担保

上記のコードでは `GetSafeFileName` を実装しているが、これだけでは不十分だ。同じ名前のファイルが連続して届いた場合、上書きされるかエラーになる。
実務では、`FileName = Format(Now, “yyyymmddhhmmss”) & “_” & originalName` のように、タイムスタンプまたはUUIDを付与して、ファイル名の一意性を保証する設計にせよ。

2. I/O パフォーマンスとデータベース連携

もし、添付ファイルのメタデータをデータベース（SQL ServerやAccess）に記録する設計にするなら、「ループ内でトランザクションを張るな」。
添付ファイルごとに `INSERT` 文を発行すると、ネットワークレイテンシとディスクI/Oのオーバーヘッドで、大量のメール処理時にパフォーマンスが劇的に低下する。リストに蓄積し、一括で処理するか、一回のトランザクションで完結させる設計にすべきだ。

3. 例外処理のスコープ

`On Error Resume Next` を安易に使うことは、バグの温床を放置することと同義だ。
私のコード例では、`CheckIfInline` という「失敗する可能性がある最小単位の関数」にのみ、限定的にエラー制御を適用している。これにより、予期せぬ事態が発生した際、それが「プロパティ取得の失敗」なのか「ファイルシステムへの書き込み失敗」なのかを明確に区別できる。

結論

Outlook VBAにおける自動化は、単に「動くもの」を作ることではない。「いかにノイズを排除し、信頼できるデータだけを抽出するか」という、情報のフィルタリング精度こそが、エンジニアの腕の見せ所だ。

MAPIプロパティを使いこなし、オブジェクトの深層にアクセスする術を身につけたとき、君の作るツールは「ただのスクリプト」から「堅牢なビジネスインフラ」へと昇華する。