こんにちは！今日も現場でVBAを使い倒し、あらゆる業務自動化を裏で支えている先輩エンジニアです。
Excel VBAには慣れてきたけれど、Outlook VBAに挑戦し始めた途端、「実行時エラー：インデックスが有効な範囲にありません」 や 「オブジェクト変数または With ブロック変数が設定されていません」 といったエラーの壁にぶつかって挫折しそうになっていませんか？
特に「受信メールから添付ファイルを自動保存するツール」を作るとき、初心者の方が最初にハマる最大の落とし穴。それが「添付ファイルが存在しないメール（本文だけのメール）の考慮漏れ」です。
今回は、Outlook VBAのオブジェクト構造を紐解きながら、エラーを100%防ぎ、スマートに処理をスキップさせる「`Attachments.Count`プロパティ活用術」を解説します。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ！焦らず一歩ずつ、本物の技術を身につけていきましょう。
1. なぜ添付ファイルがないとエラーで止まるのか？
まずは、エラーが発生するメカニズムを視覚的に理解しましょう。
Outlookのメール（`MailItem`）の中には、添付ファイルをまとめた「Attachmentsコレクション」という透明な箱が入っています。
【メール (MailItem)】
│
├── 本文 (Body)
├── 件名 (Subject)
└── 添付ファイルの箱 (Attachments コレクション)
│
├── [1] 請求書.pdf
└── [2] 仕様書.xlsx添付ファイルが2個あるメールの場合、箱の中には「1番目のファイル」「2番目のファイル」が存在します。そのため、VBAで「1番目のファイルを取り出して保存して！」と命令すれば、正常に動きます。
しかし、添付ファイルがないメール（空の箱）に対して同じ命令を出すとどうなるでしょうか？
【添付ファイルがないメール】
└── 添付ファイルの箱 (Attachments コレクション) ＝ [ 中身は空っぽ！ ]
VBA指令：「1番目のファイル（Attachments(1)）を保存せよ！」
Outlook：「えっ、1番目なんて存在しませんけど…？（ガツン！とエラー停止）」これがエラーの真相です。だからこそ処理に入る前に、「そもそも箱の中にファイルが何個あるか？」を事前に確認するロジックが必要不可欠になります。
2. 判定の切り札「Attachments.Count」プロパティ
そこで登場するのが、コレクションの中身の数を教えてくれる`Count`（カウント）プロパティです。
Dim fileCount As Long
fileCount = mail.Attachments.Count使い方は非常にシンプル。`mail.Attachments.Count` と書くだけで、そのメールに含まれる添付ファイルの総数が数字（整数）で返ってきます。
- 添付ファイルが2個ある場合 ➔ `Count` は `2`
- 添付ファイルがない場合 ➔ `Count` は `0`
ガード節（Guard Clause）で美しく処理をスキップする
プログラミングの世界では、無駄な処理やエラーを避けるために「条件を満たさない場合は、処理の最初にサッサと追い返す（抜け出させる）」というテクニックを使います。これを「ガード節」と呼びます。
' 添付ファイルが「0個」なら、ここで処理を終了して次のメールへいく！
If item.Attachments.Count = 0 Then
Exit Sub ' または Exit For
End Ifこの「1行のガード」を入れるだけで、コードのネスト（If文の深さ）が浅くなり、可読性と安全性が爆発的に向上します。
3. そのまま使える！安全設計の添付ファイル保存VBA
では、実際に現場で使える完成版のVBAコードを見てみましょう。
選択しているメールから、安全に添付ファイルを指定フォルダへ保存するスクリプトです。コピペして動作を確認してみてください。
Option Explicit
''
' 選択したメールから添付ファイルを安全に保存するマクロ
' 添付ファイルがないメールは「Countプロパティ」で判定してスマートにスキップします。
''
Public Sub SaveSelectedMailAttachments()
Dim olApp As Outlook.Application
Dim olSelection As Outlook.Selection
Dim olItem As Object
Dim olMail As Outlook.MailItem
Dim olAttachment As Outlook.Attachment
Dim saveFolderPath As String
Dim savedCount As Long
Dim i As Long
' 1. 保存先のフォルダパスを指定（※末尾の "\" を忘れないように）
saveFolderPath = "C:\Users\Public\Documents\SavedAttachments\"
' フォルダが存在しない場合は処理を中断（安全策）
If Dir(saveFolderPath, vbDirectory) = "" Then
MsgBox "保存先フォルダが存在しません: " & saveFolderPath, vbExclamation, "エラー"
Exit Sub
End If
' 2. 現在Outlookで選択されているアイテムを取得
Set olApp = Outlook.Application
Set olSelection = olApp.ActiveExplorer.Selection
' 選択されているアイテムがない場合は終了
If olSelection.Count = 0 Then
MsgBox "メールが選択されていません。", vbInformation, "通知"
Exit Sub
End If
' 3. 選択されたアイテムを1件ずつ処理
For Each olItem In olSelection
' 選択されたアイテムが「メール（MailItem）」であるか型チェック
If TypeOf olItem Is MailItem Then
Set olMail = olItem
' -------------------------------------------------------------
' 【超重要】添付ファイルの有無をCountプロパティでチェック！
' -------------------------------------------------------------
If olMail.Attachments.Count = 0 Then
' 添付ファイルがないのでログを出して次のメールへスキップ
Debug.Print "スキップ: 「" & olMail.Subject & "」 (添付ファイルなし)"
Else
' 添付ファイルが存在する場合のみ、ループ処理を実行
' ※Outlookのコレクションは「1」から始まります！
For i = 1 To olMail.Attachments.Count
Set olAttachment = olMail.Attachments.Item(i)
' ファイルを保存
olAttachment.SaveAsFile saveFolderPath & olAttachment.FileName
savedCount = savedCount + 1
Debug.Print "保存成功: " & olAttachment.FileName
Next i
End If
End If
Next olItem
' 4. 結果の通知
MsgBox savedCount & " 件の添付ファイルを保存しました！", vbInformation, "完了"
' メモリの明示的解放（プロの作法）
Set olAttachment = Nothing
Set olMail = Nothing
Set olItem = Nothing
Set olSelection = Nothing
Set olApp = Nothing
End Sub4. 脱・初心者！知っておくべき2つの罠とプロの知見
コードが無事に動いたら、さらに一歩踏み込んで「プロのエンジニアが考慮している罠」についても知っておきましょう。
罠①：Outlookコレクションの添字は「1」から始まる！
C#やPython、あるいはVBAの配列は「0」から数え始めることが多いですが、Outlook VBAのコレクション（`Attachments`など）は「1」からスタートします。
- 〇 正解：`For i = 1 To mail.Attachments.Count`
- ✕ 間違い：`For i = 0 To mail.Attachments.Count – 1`
ここを間違えると、やはり「範囲外エラー」が発生するので注意してくださいね。
罠②：HTMLメールの「署名画像」もCountに含まれてしまう！
これがOutlook VBA最大のクセと言っても過言ではありません。
メール本文に埋め込まれた「会社のロゴ画像」や「HTMLの装飾画像」も、Outlook内部では1つの添付ファイル（Inline Attachment）として`Count`に加算されてしまいます。
「添付ファイルがないはずのメールなのに `Count` が 1 になっている…？」という現象が起きたら、ほぼ100%この「隠れ画像」が原因です。
これを厳格に除外したい場合は、将来的に「ヘッダー情報（PR_ATTACH_CONTENT_ID）」を判定する発展テクニックを使いますが、まずは「`Count`で存在チェックを行う」という基本を完璧にすることが最優先です！
5. まとめ
今回のポイントを復習しましょう。
1. エラーの原因： 添付ファイルがない（Count = 0）状態で `Attachments(1)` にアクセスすると失敗する。
2. 解決策： 処理をする前に `MailItem.Attachments.Count` を調べる。
3. プロのコード美学： `If Count = 0 Then` による「ガード節」を使って無駄な処理を即座にスキップする。
プログラミングにおいて、エラーを力ずくで消す（`On Error Resume Next` などで握りつぶす）のは危険です。今回のように「起きうる状態をあらかじめ予測し、`Count`プロパティで正しく分岐させる」ことこそが、止めない・落ちない本物の自動化ツールを作る第一歩です。
ここをマスターしたあなたなら、Outlook VBAの基礎はもうバッチリ！
自信を持って、次のステップ（特定拡張子の選別や、自動フォルダ振り分けなど）へ進んでいきましょう！応援しています！
