【実務・中級編】【初心者向け】特定の送信者からのメールのみを対象に添付ファイルを自動保存するフィルタリング術 – Outlook VBA解析バイブル

Outlook VBA

2026.11.09

凡庸なスクリプトで終わるか、プロフェッショナルな自動化基盤を築くか：Outlook VBAにおける「条件付き添付ファイル保存」の極意

凡庸なスクリプトで終わるか、プロフェッショナルな自動化基盤を築くか：Outlook VBAにおける「条件付き添付ファイル保存」の極意

業務自動化の世界へようこそ。君たちが最初に直面する壁は、案外「コードが動かないこと」ではない。「動いたコードが、実務の荒波の中で脆くも崩れ去ること」だ。

「特定の取引先からメールが来たら、添付ファイルをフォルダに保存する」
一見、単純なタスクに見えるだろう。しかし、多くの開発者が書くコードは、たった一通の予期せぬメールや、存在しないフォルダパス、あるいは表記揺れによって、たちまちエラーを吐いて停止する。それは「自動化ツール」ではなく、単なる「脆弱なスクリプト」に過ぎない。

今日は、`SenderEmailAddress` プロパティを駆使して、特定の送信者からのみ抽出を行うフィルタリング術を解説する。ただし、単なる書き方のレクチャーではない。「現場で戦える、堅牢な設計思想」を叩き込む。準備はいいか？

1. 設計の要：なぜ `SenderName` ではなく `SenderEmailAddress` なのか

まず、初学者が陥る致命的なミスを指摘しておこう。
「送信者名（表示名）」で判定しようとする行為だ。

' --- 悪例：絶対にやってはいけない設計 ---
If objMail.SenderName = "田中 太郎" Then 
    ' 保存処理
End If

これは極めて危険だ。なぜか？表示名は、相手がメールソフトの設定を変えただけで「Taro Tanaka」になったり、「田中太郎（株式会社A）」になったりと、容易に変化する。「名前」は信用できない。信用すべきは「一意の識別子」である「メールアドレス」だ。

ただし、ここで一つプロの視点を加えておく。Exchange環境（社内サーバー経由のメール）では、`SenderEmailAddress` が `SMTP:user@example.com` のような形式ではなく、`X.500` 形式の複雑な文字列を返すことがある。実務では、常に「アドレスの形式」を意識した比較ロジックが必要になる。

2. プロダクションレベルの設計指針

堅牢なコードを書くためには、以下の3つの原則を遵守せよ。

1. 関心の分離 (Separation of Concerns): 「誰のメールか判定するロジック」と「ファイルを保存するロジック」を混ぜるな。
2. 防御的プログラミング (Defensive Programming): 保存先フォルダが存在するか？添付ファイルは空ではないか？という「最悪のシナリオ」を常に想定せよ。
3. リソースの管理: オブジェクトを生成したら、必ず解放せよ。メモリリークは、長時間稼働する自動化ツールの天敵だ。

3. 実装例：堅牢な添付ファイル自動保存エンジン

以下に、私が推奨するプロダクションレベルのコード構造を示す。これをベースに、君たちの要件を組み込んでいくのだ。

Option Explicit

' ==============================================================================
' 構成設定：本来は外部ファイル（ExcelやConfig）から読み込むべき項目
' ==============================================================================
Private Const TARGET_SENDER As String = "client@example.com" ' 対象のメールアドレス
Private Const SAVE_DIR As String = "C:\Automation\Attachments\" ' 保存先ルート

' ==============================================================================
' メインルーチン：受信トレイをスキャンし、条件に合致するメールを処理する
' ==============================================================================
Public Sub ProcessIncomingAttachments()
    Dim outlookApp As Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim inbox As Outlook.Folder
    Dim items As Outlook.Items
    Dim mail As Object ' MailItemを直接指定せずObjectで受けることでエラーを回避
    Dim i As Long
    
    On Error GoTo ErrorHandler

    Set outlookApp = New Outlook.Application
    Set ns = outlookApp.GetNamespace("MAPI")
    Set inbox = ns.GetDefaultFolder(olFolderInbox)
    
    ' 処理対象を「未読」かつ「メールアイテム」に絞り込む（パフォーマンス最適化）
    ' 既に処理済みのものを二重処理しないための設計思想
    Set items = inbox.Items.Restrict("[Unread] = true")

    Debug.Print "--- 処理開始: " & Now & " ---"

    ' 逆順ループ（アイテムの削除やステータス変更を伴う場合は後ろから回すのが鉄則）
    For i = items.Count To 1 Step -1
        If TypeOf items(i) Is MailItem Then
            Set mail = items(i)
            
            ' 1. 送信者フィルタリングの実行
            If IsTargetSender(mail) Then
                ' 2. 添付ファイルの保存処理を実行
                Call SaveAttachmentsFromMail(mail)
                
                ' 3. 処理済みとして既読にする（二重処理防止）
                mail.UnRead = False
            End If
        End If
    Next i

    Debug.Print "--- 処理完了 ---"

CleanUp:
    ' オブジェクトのライフサイクル管理（メモリ解放）
    Set items = Nothing
    Set inbox = Nothing
    Set ns = Nothing
    Set outlookApp = Nothing
    Exit Sub

ErrorHandler:
    ' 実務ではここでログファイルにエラー内容を書き出すべき
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

' ==============================================================================
' ロジック分離：送信者の判定を行う関数
' ==============================================================================
Private Function IsTargetSender(ByRef mail As Outlook.MailItem) As Boolean
    Dim senderAddr As String
    
    ' SenderEmailAddressを取得（大文字小文字の揺れを考慮し、小文字に統一して比較）
    senderAddr = LCase(mail.SenderEmailAddress)
    
    ' Exchange環境特有のプレフィックス対策（SMTP: が付いている場合を考慮）
    If InStr(senderAddr, "smtp:") > 0 Then
        senderAddr = Mid(senderAddr, InStr(senderAddr, "smtp:") + 5)
    End If
    
    ' 判定
    If senderAddr = LCase(TARGET_SENDER) Then
        IsTargetSender = True
    Else
        IsTargetSender = False
    End If
End Function

' ==============================================================================
' ロジック分離：添付ファイルの保存を行うサブプロシージャ
' ==============================================================================
Private Sub SaveAttachmentsFromMail(ByRef mail As Outlook.MailItem)
    Dim att As Outlook.Attachment
    Dim fso As Object ' FileSystemObject
    Dim targetPath As String
    
    ' FileSystemObjectの生成（ファイル操作の堅牢性を高める）
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 保存先フォルダが存在しない場合は作成する（防御的設計）
    If Not fso.FolderExists(SAVE_DIR) Then
        ' 親フォルダの存在確認などは省略しているが、実務では必要
        fso.CreateFolder (SAVE_DIR)
    End If

    ' 添付ファイルの有無を確認
    If mail.Attachments.Count > 0 Then
        For Each att In mail.Attachments
            ' ファイル名の重複を避けるためのロジック（簡易版：タイムスタンプ付与）
            ' 本来はファイル名衝突を回避する高度なリネームロジックを組むべき
            targetPath = SAVE_DIR & Format(Now, "yyyymmdd_hhnnss_") & att.FileName
            
            On Error Resume Next
            att.SaveAsFile targetPath
            If Err.Number <> 0 Then
                Debug.Print "保存失敗: " & att.FileName & " Error: " & Err.Description
                Err.Clear
            Else
                Debug.Print "保存成功: " & targetPath
            End If
            On Error GoTo 0
        Next att
    End If
    
    Set fso = Nothing
End Sub

4. アーキテクトからの総括

このコードが、なぜ「単なるコピペ」以上の価値を持つのか。

1. `Restrict` メソッドの活用: `For Each` ですべてのメールを回すのは素人の仕事だ。`[Unread] = true` で事前に絞り込むことで、数千通のメールがある環境でも高速に動作する。
2. `IsTargetSender` のカプセル化: 判定ロジックを関数として独立させた。これにより、「特定のドメインを含む場合」や「複数のアドレスを許可する場合」といった要件変更に対し、メインロジックを汚さずに修正が可能だ。
3. `FileSystemObject (FSO)` の採用: VBA標準の `Dir` 関数よりも強力で、フォルダの存在確認やファイル操作において高い信頼性を誇る。
4. エラーハンドリングの二重構造: メインルーチンでの致命的エラーのキャッチと、個別ファイル保存時の局所的なエラー（ファイルロックなど）のキャッチ。この使い分けこそが、システムを止めない秘訣だ。

いいか、自動化とは「楽をするための道具」ではない。「人間がミスをしないための、信頼できる仕組み」を作ることだ。

次に君がコードを書くときは、常に自分に問いかけろ。「もし、このフォルダが消えていたら？」「もし、相手がメールアドレスの形式を変えていたら？」と。その問いへの答えが、君をエンジニアへと昇華させる。

以上だ。健闘を祈る。