【極限の知見】Outlook VBA：添付ファイル消失を防ぐ「完全ループ処理」の設計思想
「マクロの記録」から一歩踏み出し、自分だけの自動化ツールを作ろうとしているあなたへ。
「1通のメールから添付ファイルを保存するマクロは作れた。でも、添付ファイルが2つ以上あると、なぜか1つ目しか保存されない……」
もしあなたが今、そんな壁にぶつかっているとしたら、おめでとうございます。あなたは今、プログラミングにおけるもっとも重要な概念の一つである「コレクション（集合）の制御」という、エンジニアとしての登竜門に立っています。
単に「動くコード」を書くことと、「どんな状況でも、漏らさず、正確に動作する堅牢なコード」を書くことの間には、大きな溝があります。今日はその溝を飛び越え、添付ファイルを「一滴も漏らさず」確実に仕留めるための、極限のループ処理の書き方を伝授しましょう。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ。さあ、一緒に見ていきましょう。
1. なぜ「1つしか保存されない」現象が起きるのか？
多くの初学者が陥る罠、それは「特定の場所（インデックス）だけを指名してしまう」ことです。
例えば、マクロの記録を使ってコードを見ると、以下のような記述を見かけるはずです。
' ⚠️ 初学者が陥りやすい「1つしか保存できない」コードの例
Dim att As Outlook.Attachment
Set att = objMail.Attachments.Item(1) ' ← ここが問題！
att.SaveAsFile "C:\Temp\" & att.FileNameこのコードは、「添付ファイルの集合（Attachments）の中から、1番目のやつだけを持ってきて！」という命令になっています。これでは、2番目、3番目のファイルがどれほど重要であっても、プログラムは完全に無視してしまいます。
メールの添付ファイルは、単一のデータではなく、「Attachmentオブジェクトが複数格納されたコレクション（集合体）」として存在しています。これらをすべて処理するには、「集合の中身を一つずつ順番に取り出す」というループ（繰り返し）処理が不可欠なのです。
2. 黄金のロジック：`For Each` ループの採用
添付ファイルをすべて処理するために、我々プロフェッショナルが選ぶ手法は、`For i = 1 To Count` という数値によるループではなく、`For Each` 文です。
なぜ `For Each` なのか？
`For i`（カウンタ変数を使ったループ）でも可能ですが、`For Each` には以下のメリットがあります。
1. 直感的で読みやすい: 「添付ファイルの集合（Attachments）の中にある、各添付ファイル（att）に対して実行せよ」という、自然言語に近い論理構成になります。
2. インデックスエラーを防げる: 集合の数がいくつであっても、プログラムが自動的に「次があるか？」を判定してくれます。「1番目から数えて、最後は何番目だったっけ？」と計算する必要がないため、ケアレスミスが激減します。
3. 実戦投入用：堅牢な添付ファイル保存スクリプト
それでは、現場でそのまま使えるレベルの、堅牢なコードを提示します。
単に保存するだけでなく、「ファイル名の重複を防ぐ」という、実務で絶対に避けて通れない課題も解決した設計にしています。
''' <summary>
''' 指定したメールアイテムから全ての添付ファイルを保存する
''' </summary>
''' <param name="objMail">対象となるMailItemオブジェクト</param>
Sub SaveAllAttachmentsRobustly(ByRef objMail As Outlook.MailItem)
Dim att As Outlook.Attachment
Dim saveFolderPath As String
Dim fileName As String
Dim fullPath As String
Dim fso As Object
' --- 設定エリア ---
' 保存先フォルダ（最後に必ず \ を入れること）
saveFolderPath = "C:\Users\YourName\Desktop\MailAttachments\"
' ------------------
' FileSystemObjectの生成（ファイル操作を高度に行うため）
Set fso = CreateObject("Scripting.FileSystemObject")
' 1. 保存先フォルダが存在するかチェック。なければ作成する
If Not fso.FolderExists(saveFolderPath) Then
On Error Resume Next
fso.CreateFolder (saveFolderPath)
If Err.Number <> 0 Then
MsgBox "保存先フォルダを作成できませんでした: " & saveFolderPath, vbCritical
Exit Sub
End If
On Error GoTo 0
End If
' 2. 添付ファイルが一つでもあるか確認
If objMail.Attachments.Count = 0 Then
Debug.Print "添付ファイルはありませんでした: " & objMail.Subject
Exit Sub
End If
' 3. 【重要】For Each ループによる全件走査
' objMail.Attachments という「集合」から、一つずつ att に取り出す
For Each att In objMail.Attachments
' ファイル名を取得
fileName = att.FileName
' ファイル名が空、または不正な場合はスキップ（エラー回避）
If fileName <> "" Then
fullPath = saveFolderPath & fileName
' 4. 【極限の知見】ファイル名の重複回避ロジック
' 同じ名前のファイルが既に存在する場合、ファイル名の末尾にタイムスタンプを付与する
If fso.FileExists(fullPath) Then
' 現在時刻を文字列として取得 (例: 20231027_153045)
Dim timestamp As String
timestamp = Format(Now, "yyyymmdd_hhmmss")
' 拡張子とファイル名を分離して再構築
Dim baseName As String
Dim extension As String
baseName = fso.GetBaseName(fileName)
extension = fso.GetExtensionName(fileName)
fullPath = saveFolderPath & baseName & "_" & timestamp & "." & extension
End If
' 5. 保存実行
On Error Resume Next
att.SaveAsFile fullPath
If Err.Number <> 0 Then
Debug.Print "保存失敗: " & fileName & " (Error: " & Err.Description & ")"
Else
Debug.Print "保存成功: " & fullPath
End If
On Error GoTo 0
End If
Next att
' 後片付け
Set fso = Nothing
MsgBox "全ての添付ファイルの処理が完了しました。", vbInformation
End Sub4. アーキテクトの視点：ここが「プロ」の分かれ道
このコードには、単なる「ループ」以上の、実務を戦い抜くための知見を詰め込んでいます。
① オブジェクトのライフサイクルとエラーハンドリング
`On Error Resume Next` をむやみに使いすぎると、どこでエラーが起きたか分からなくなります。このコードでは、「フォルダ作成」や「ファイル保存」といった、外部環境（OSやディスク）に依存する箇所に限定してエラー制御を行っています。これが、デバッグしやすい「美しいコード」の条件です。
② ファイル名の衝突（Collision）対策
実務では、複数のメールに同じ `invoice.pdf` という名前のファイルが付いていることがよくあります。単純な保存ロジックだと、後から来たファイルが前のファイルを上書きして消してしまいます。
`fso.FileExists` で存在を確認し、存在すれば `Timestamp` を付加する。この「データの整合性を守る」という意識こそが、エンジニアの魂です。
③ FileSystemObject (FSO) の活用
VBA標準の `Dir` 関数よりも、`Scripting.FileSystemObject` を使う方が、フォルダの有無を確認したり、ファイル名を分解したりといった操作が圧倒的に強力で、コードの可読性も高まります。
まとめ：次は「条件付き抽出」へ
お疲れ様でした。これであなたは、単に「1つのファイルを保存する」レベルから、「未知の数がある添付ファイルを、安全かつ確実に処理する」という、実務レベルのロジックを手に入れました。
今回のポイントを復習しましょう。
- 添付ファイルは `Attachments` というコレクション（集合） である。
- 漏れなく処理するには `For Each` ループ を使う。
- 実務では 「ファイル名の重複」 と 「保存先フォルダの存在」 を必ず考慮する。
ここをマスターすれば、次は「特定の拡張子のファイルだけを抽出する」とか「ファイル名に日付が含まれていたらリネームする」といった、より高度な自動化へ進むことができます。
一歩ずつ、着実に。あなたの自動化の旅を応援しています！
