こんにちは！Outlook VBAの世界へようこそ。
マクロの記録すらない孤高のアプリ、Outlookの自動化に足を踏み入れたあなたを、今日は心から歓迎します。
「受信メールに添付されたExcelファイルを自動でデスクトップに保存したい！」
業務効率化の第一歩として、誰もが一度は夢見る処理ですよね。
しかし、いざOutlook VBAを書き始めると、多くの人が「添付ファイル（Attachments）の壁」にぶつかります。
特に、ファイル名が重複していたり、本文中に画像が埋め込まれているメール（インライン画像）を扱った途端、エラーが起きてマクロが止まったり、意図しない画像ファイルまで保存されてしまったり……。
「あれ？ `.Item(1)` で取れるはずなのに、なんでエラーになるの？」
「添付ファイルは3つあるはずなのに、インデックスが狂う！？」
大丈夫。今日はその「なぜ？」の正体を解き明かし、どんな複雑なメールが来てもビクともしない「堅牢なアタッチメント走査の極意」を伝授します。
ここをクリアすれば、あなたのOutlook VBAの基礎力はプロの領域に達しますよ。さあ、一緒に扉を開けましょう！
—
1. Outlookオブジェクトモデルの基本と「添付ファイルの罠」
まずは、私たちが日々やり取りしているメールが、Outlookの裏側でどう構造化されているかを知る必要があります。
Outlookでは、メール1通は `MailItem` というオブジェクトです。その中に、ファイルや画像を持ち運ぶためのカバンとして `Attachments` コレクション が存在します。
ここで、多くの初学者が陥る最初の罠があります。
罠その1：インデックスは「1」から始まる（しかしコレクションは1始まりの悲劇）
VBAの多くのコレクションや配列は `0` から始まることが多いですが、Outlookの `Attachments` コレクションは「1」から始まります。つまり、最初の添付ファイルは `Attachments(1)` です。
罠その2：ファイル名だけを頼りにすると痛い目を見る
「添付ファイルの名前が ‘Report.xlsx’ のものを保存したい！」と思ったとき、こんなコードを書いていませんか？
‘ 危険なコードの例
Dim att As Attachment
For Each att In myMail.Attachments
If att.FileName = “Report.xlsx” Then
att.SaveAsFile “C:\Data\” & att.FileName
End If
Next att
もし、送信者がうっかり同じ名前のファイルを2つ添付してきたら？ あるいは、社内システムから送られてくる自動メールで、毎回ファイル名が完全に一致していたら？
さらに恐ろしいのは、HTMLメールの本文に貼り付けられた「会社のロゴ画像」なども、すべてこの `Attachments` カバンの中に放り込まれているという事実です。
—
2. 敵を知る：インライン画像という「見えない罠」
HTMLメールを作成するとき、本文中にスクリーンショットやアイコン画像を「ドラッグ＆ドロップ」で貼り付けたことはありませんか？
受け取る側からすると「本文の一部」に見えますが、Outlookの裏側では、あれらは立派な「添付ファイル」として扱われます。
これらを区別せずにすべての添付ファイルを保存する処理を走らせると、デスクトップが `image001.png` や `oledata.mso` といった謎のアイコン画像だらけになってしまいます。
では、どうやって「本物の添付ファイル」と「インライン画像」を見分ければよいのでしょうか？
ここで鍵になるのが、裏側のプロパティである MAPIプロパティ（PR_ATTACH_CONTENT_ID） です。
—
3. 【実践】罠をかいくぐる！堅牢な添付ファイル保存コード
お待たせしました。ここからは、実務でそのまま使える、美しく安全なコードをご紹介します。
インライン画像を除外し、ファイル名の重複にも耐える、チーフアーキテクト直伝の決定版です。
Sub SaveAttachmentsSafely()
Dim ns As NameSpace
Dim inbox As MAPIFolder
Dim mail As MailItem
Dim att As Attachment
Dim saveDir As String
Dim fileName As String
Dim i As Long
‘ 保存先のパス（最後に必ずバックスラッシュを入れること）
saveDir = “C:\Cals\AttachmentsTest\”
‘ フォルダが存在するか簡易チェック（実務ではFileSystemObject推奨）
If Dir(saveDir, vbDirectory) = “” Then
MsgBox “保存先フォルダが存在しません: ” & saveDir, vbCritical
Exit Sub
End If
‘ セッションの取得
Set ns = Application.GetNamespace(“MAPI”)
Set inbox = ns.GetDefaultFolder(olFolderInbox) ‘ 受信トレイを対象
‘ テストとして受信トレイの最新のメールを1件取得
If inbox.Items.Count = 0 Then
MsgBox “メールがありません。”, vbExclamation
Exit Sub
End If
Set mail = inbox.Items(inbox.Items.Count) ‘ 一番新しいメール
‘ 添付ファイルが存在するかチェック
If mail.Attachments.Count > 0 Then
‘ 【重要】Attachmentsは必ず「後ろから前へ（逆順）」ループさせる！
‘ ※理由は後述します
For i = mail.Attachments.Count To 1 Step -1
Set att = mail.Attachments(i)
‘ —————————————————-
‘ 判定1：インライン画像（本文埋め込み画像）かどうかをチェック
‘ PropertyAccessorを使い、Content-IDが存在するかで判定する
‘ —————————————————-
If IsInlineAttachment(att) = False Then
fileName = att.FileName
‘ —————————————————-
‘ 判定2：同名ファイルが既に存在する場合の衝突回避処理
‘ —————————————————-
fileName = GetUniqueFileName(saveDir, fileName)
‘ ファイルの保存実行
att.SaveAsFile saveDir & fileName
Debug.Print “保存成功: ” & fileName
Else
Debug.Print “スキップ（インライン画像）: ” & att.FileName
End If
Next i
MsgBox “添付ファイルの処理が完了しました！”, vbInformation
Else
MsgBox “このメールには添付ファイルがありません。”, vbInformation
End If
End Sub
‘ —————————————————————–
‘ 補助関数1：インライン画像判定ロジック
‘ —————————————————————–
Function IsInlineAttachment(att As Attachment) As Boolean
Dim pa As PropertyAccessor
Const PR_ATTACH_MIME_TAG = “http://schemas.microsoft.com/mapi/proptag/0x370E001E”
Const PR_ATTACH_CONTENT_ID = “http://schemas.microsoft.com/mapi/proptag/0x3712001E”
On Error Resume Next
Set pa = att.PropertyAccessor
‘ Content-IDプロパティが存在する場合、それはインライン画像の可能性が高い
Dim cid As String
cid = pa.GetProperty(PR_ATTACH_CONTENT_ID)
If Err.Number = 0 And cid <> “” Then
IsInlineAttachment = True
Else
IsInlineAttachment = False
End If
On Error GoTo 0
End Function
‘ —————————————————————–
‘ 補助関数2：ファイル名重複回避ロジック
‘ —————————————————————–
Function GetUniqueFileName(folderPath As String, originalName As String) As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim baseName As String
Dim ext As String
Dim fullPath As String
Dim count As Long
baseName = fso.GetBaseName(originalName)
ext = fso.GetExtensionName(originalName)
fullPath = folderPath & originalName
count = 1
‘ 同名ファイルが存在する限り、ファイル名に連番を付与する
Do While fso.FileExists(fullPath)
If ext <> “” Then
originalName = baseName & “_” & count & “.” & ext
Else
originalName = baseName & “_” & count
End If
fullPath = folderPath & originalName
count = count + 1
Loop
GetUniqueFileName = originalName
End Function
—
4. プロの視点：なぜ「後ろから前へ（逆順ループ）」させるのか？
先ほどのコードで、最も重要なテクニックがここに隠されています。
For i = mail.Attachments.Count To 1 Step -1
通常のプログラミング初心者は `For Each` や `For i = 1 To mail.Attachments.Count` を使いがちです。
しかし、もしあなたのマクロの中で「処理が終わった添付ファイルをメールから削除する（`att.Delete`）」という要件が加わった瞬間、前から順番にループを回していると、インデックスのズレ（Index Shift）が発生して必ずバグります。
- 1番目を削除すると、もともと2番目だったものが1番目に繰り上がります。
- その状態でループのカウンタが `2` に進むと、本来処理すべき2番目をスキップしてしまい、最悪の場合はエラー（Run-time error ‘438’ や ‘9’）で強制終了します。
「コレクションの要素を操作（特に削除や変更）するときは、後ろから数える（逆順ループ）」
これは、Outlook VBAに限らず、Excel VBAや他の言語でも通用する、シニアエンジニアの常識であり、極意です。
—
まとめ：基礎の先にある安定した自動化へ
いかがでしたでしょうか？
単に「ファイルを保存する」という一見シンプルな処理の裏にも、オブジェクトの特性、インライン画像という隠れた罠、そしてコレクション操作の鉄則が潜んでいます。
- Attachmentsは1始まり
- インライン画像はMAPIプロパティ（Content-ID）で除外する
- 同名ファイル対策にFileSystemObjectで重複チェックを入れる
- コレクション操作は「後ろから前へ（逆順）」が鉄則
ここをクリアしたあなたなら、もう「マクロの記録」を卒業し、現場で頼られる立派な自動化エンジニアへの道を歩み始めています。
ぜひ、ご自身の環境でこのコードを試して、快適なOutlook自動化ライフを手に入れてくださいね。それでは、次回の極意でお会いしましょう！
