【脱・マクロ記録】特定の相手から来たメールだけを狙い撃つ！Outlook VBA「条件分岐」の極意
「マクロの記録機能を使って、なんとか自動化の第一歩を踏み出した。でも、記録した通りに動くだけで、特定のメールだけを判別して処理することができない……」
もしあなたが今、そんな壁にぶつかっているとしたら、おめでとうございます。あなたは今、「ただの操作の再生」から「知的な自動化」へと進化する境界線に立っています。
こんにちは。今日は、Outlook VBAを使いこなす上で避けては通れない、しかし最もエキサイティングな概念である「条件分岐（フィルタリング）」についてお話ししましょう。
「特定の取引先からのメールが届いたら、その添付ファイルだけを自動で保存する」
この一見シンプルに見える動作の中に、プロフェッショナルなエンジニアが大切にしている「オブジェクトの扱い方」の真髄が詰まっています。ここをクリアすれば、あなたのOutlook VBAのスキルは一段上のステージへと引き上げられますよ。
1. なぜ「マクロの記録」では足りないのか？
マクロの記録機能は、あなたが「クリックしたこと」「キーを押したこと」を忠実に記録します。しかし、マクロの記録には「もし〜だったら（If）」という思考がありません。
「すべてのメールを処理する」のではなく、「この人からのメールなら処理し、それ以外なら無視する」。この「判断」こそが、業務自動化における「知能」です。
この知能を司るのが、`If` 文と、メールの送り主を特定するための `SenderEmailAddress` プロパティです。
2. 核心となるパーツ：SenderEmailAddress とは？
メールオブジェクトには、さまざまな情報（プロパティ）が紐付いています。その中でも、今回の主役が `SenderEmailAddress` です。
これは、「そのメールを誰が送ってきたか」というメールアドレス情報を格納している変数のようなものだと考えてください。
' イメージ図
If メール.SenderEmailAddress = "client@example.com" Then
' ここに「保存する」という命令を書く
End Ifこの一行が書けるようになるだけで、あなたのマクロは「特定の相手専用の秘書」へと変貌します。
3. 実戦コード：特定の送信者から添付ファイルを抽出する
それでは、実際に使えるコードを見ていきましょう。初心者の方でも、一行ずつ意味を追っていけば必ず理解できます。
以下のコードは、受信トレイにあるメールを一つずつ確認し、指定したアドレスの相手からのメールに添付ファイルがあれば、デスクトップの「SavedAttachments」フォルダへ保存するものです。
Sub SaveAttachmentsFromSpecificSender()
Dim outlookApp As Outlook.Application
Dim ns As Outlook.NameSpace
Dim inbox As Outlook.Folder
Dim items As Outlook.Items
Dim mail As Outlook.MailItem
Dim att As Outlook.Attachment
Dim savePath As String
Dim targetEmail As String
Dim i As Long
' --- 設定エリア：ここを書き換えるだけで使い回せます ---
targetEmail = "important-client@example.com" ' 監視したい相手のアドレス
savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\SavedAttachments\"
' --------------------------------------------------
' 保存先フォルダが存在しない場合に備えて作成（簡易的なエラー回避）
If Dir(savePath, vbDirectory) = "" Then
MkDir savePath
End If
Set outlookApp = New Outlook.Application
Set ns = outlookApp.GetNamespace("MAPI")
Set inbox = ns.GetDefaultFolder(olFolderInbox) ' 受信トレイを指定
Set items = inbox.Items
' 【重要】オブジェクトのライフサイクルを考慮したループ
' 後ろから順に処理するのが、プロの鉄則です（Step -1）
For i = items.Count To 1 Step -1
' 取得したアイテムが「メール」であるかを確認（会議出席依頼などを除外するため）
If TypeOf items(i) Is MailItem Then
Set mail = items(i)
' 【条件分岐】送信者のアドレスがターゲットと一致するか？
If mail.SenderEmailAddress = targetEmail Then
' 添付ファイルがあるか確認
If mail.Attachments.Count > 0 Then
For Each att In mail.Attachments
' 添付ファイルを保存
att.SaveAsFile savePath & att.FileName
Debug.Print "保存成功: " & att.FileName
Next att
End If
End If
End If
Next i
MsgBox "処理が完了しました！" & vbCrLf & "保存先: " & savePath, vbInformation
End Sub4. チーフアーキテクトの視点：ここがプロの分かれ道
コードを書き写すだけでなく、以下の「なぜ？」を理解してください。ここが、あなたが「マクロ記録ユーザー」を卒業するための鍵です。
① なぜ `For i = items.Count To 1 Step -1` なのか？
これは、エンジニアが最も意識すべき「コレクションの整合性」という問題です。
もし、ループの中でメールを「移動」させたり「削除」したりする場合、前から順に（1, 2, 3…）処理していると、インデックス（番号）がズレてしまい、処理を飛ばしてしまうエラーが発生します。
「集合（コレクション）を操作するときは、後ろから攻める」。これは、Outlook VBAに限らず、あらゆるプログラミングにおける鉄則です。
② `TypeOf items(i) Is MailItem` の重要性
受信トレイには、通常のメール以外に「会議の通知」や「開封確認」など、さまざまな種類のオブジェクトが混ざっています。これらを「メール」として扱おうとすると、プログラムは「そんなプロパティ（SenderEmailAddress）は持ってないよ！」と怒って止まってしまいます（型不一致エラー）。
事前に「これはメールですか？」と確認するこの一行が、プログラムの堅牢性を高めます。
③ 【落とし穴】Exchange環境のアドレス問題
ここが最大の難所です。社内のExchangeサーバーを使っている場合、`SenderEmailAddress` が `user@example.com` ではなく、`/o=ExchangeLabs/…` のような長い内部形式で返ってくることがあります。
もし、自分のコードが動かない場合は、一度 `Debug.Print mail.SenderEmailAddress` を実行して、実際にどのような文字列が取得できているかを確認してみてください。
5. まとめ：次はどんな自動化に挑戦しますか？
お疲れ様でした！
今回の「特定の送信者を判別する」という技術は、単なる添付ファイルの保存に留まりません。
- 「件名に『請求書』が含まれていたら、特定のフォルダに移動する」
- 「特定の重要人物からのメールなら、デスクトップに通知を出す」
このように、条件を組み合わせることで、あなたのOutlookは無限の可能性を持つ「自動化エンジン」へと進化していきます。
一歩ずつで大丈夫です。コードの意味を噛み締めながら、少しずつ自分の手で書き換えてみてください。その積み重ねが、あなたを本物のエンジニアへと導いてくれます。
さあ、次はどんなルールを自動化してみましょうか？
