【脱・初学者】Outlook VBAの添付ファイル保存で「アクセス拒否」に負けないための、極限のリトライ設計術
こんにちは。現場の自動化設計を統括しているエンジニアです。
「マクロの記録」から一歩踏み出し、自分でコードを書き始めた皆さん、素晴らしい挑戦ですね。Outlook VBAを使って「メールの添付ファイルを自動で保存する」というタスクは、業務効率化の登竜門とも言える非常に価値のあるステップです。
しかし、いざ実戦（会社のネットワークドライブや共有サーバーへの保存）に投入してみると、こんな壁にぶち当たったことはありませんか？
> 「昨日までは動いていたのに、なぜか今日は『書き込み権限がありません』や『ファイルが他のプロセスで使用されています』というエラーで止まってしまう……」
実はこれ、あなたのコードが間違っているわけではありません。OS（Windows）やネットワーク、あるいはウイルス対策ソフトといった「プログラムの外側」が引き起こす、非常に厄介な現象なのです。
今日は、そんな「制御不能なエラー」をスマートに回避し、プロフェッショナルな自動化ツールへと昇華させるための『リトライ（再試行）ロジック』について、その本質を伝授します。ここをクリアすれば、あなたのVBAは「ただ動くもの」から「止まらない信頼できるシステム」へと進化します。
1. なぜ「保存できるはずのファイル」でエラーが起きるのか？
まず、敵を知ることから始めましょう。なぜ、正しいパスを指定しているのにエラーが出るのか。主な原因は以下の3つです。
① ウイルス対策ソフトによる「一時的なロック」
ファイルが作成された瞬間、セキュリティソフトが「これは安全なファイルか？」とスキャンを開始することがあります。このスキャン中、ファイルはシステムによって「ロック（使用中）」状態になり、VBAからの書き込み操作が拒否されます。
② ネットワークドライブの「瞬断・遅延」
共有フォルダ（NASやサーバー）への保存は、ローカルのCドライブへの保存とは比較にならないほど不安定です。通信のわずかな揺らぎで、OSが「まだ準備ができていない」と判断し、エラーを返してくることがあります。
③ OSのファイルハンドルの解放待ち
ファイルを作成・移動する際、Windows内部では「ファイルを開く→書く→閉じる」というプロセスが走ります。VBAが次の命令を出すスピードが速すぎると、OS側での「閉じる」処理が完了しておらず、衝突が起こるのです。
これらは、「プログラムの論理的な正しさ」だけでは解決できない、物理的なタイミングの問題なのです。
2. 解決策：リトライ・パターンと `DoEvents` の魔法
この問題を解決する唯一の、そして最強の方法は「失敗しても、少し待ってからやり直す」という設計、すなわちリトライ・ロジックを組み込むことです。
ここで重要になるのが、2つのテクニックです。
1. `DoEvents` 関数:
VBAが処理を独占せず、Windowsに対して「他の処理（スキャンやネットワーク処理）を優先していいよ」と一瞬だけ隙間を空ける命令です。
2. `Sleep` API:
「何もしないで数ミリ秒待つ」という命令です。`DoEvents` だけでは速すぎる場合、あえて「待ち時間」を作ることで、OSやセキュリティソフトが作業を終える時間を稼ぎます。
3. 実践：プロ仕様の添付ファイル保存コード
それでは、実際に現場で使えるレベルのコードを見てみましょう。単なる「エラー無視（`On Error Resume Next`）」ではなく、「失敗を検知し、回数を制限して再試行する」構造になっています。
Option Explicit
' --- Windows APIの宣言 ---
' プログラムを一時停止（スリープ）させるために使用します
If VBA7 Then
' 64bit版Office用
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Else
' 32bit版Office用
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
End If
''' <summary>
''' 添付ファイルを安全に保存するメインルーチン
''' </summary>
Sub SaveAttachmentsWithRetry()
Dim olItem As Outlook.MailItem
Dim olAttachment As Outlook.Attachment
Dim savePath As String
Dim success As Boolean
' 今回は現在選択しているメールを対象にします
If Application.ActiveExplorer.Selection.Count = 0 Then
MsgBox "メールを選択してください。", vbExclamation
Exit Sub
End If
Set olItem = Application.ActiveExplorer.Selection.Item(1)
' 保存先フォルダ（例：デスクトップのTempフォルダ）
' ※実際にはネットワークパス（\\Server\Folder\）を指定することが多いです
savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\VBA_Test\"
' フォルダがなければ作成
If Dir(savePath, vbDirectory) = "" Then MkDir savePath
' 添付ファイルのループ処理
For Each olAttachment In olItem.Attachments
' 保存の実行（リトライロジックを呼び出す）
success = SafeSaveAttachment(olAttachment, savePath)
If success Then
Debug.Print olAttachment.FileName & " の保存に成功しました。"
Else
Debug.Print olAttachment.FileName & " の保存に失敗しました。手動で確認してください。"
End If
Next olAttachment
MsgBox "処理が完了しました。詳細はイミディエイトウィンドウを確認してください。", vbInformation
End Sub
''' <summary>
''' 【核心部】リトライロジックを搭載した保存関数
''' </summary>
''' <param name="att">保存する添付ファイルオブジェクト</param>
''' <param name="folderPath">保存先フォルダパス</param>
''' <returns>成功すればTrue、失敗し続ければFalse</returns>
Function SafeSaveAttachment(att As Outlook.Attachment, folderPath As String) As Boolean
Dim fullPath As String
Dim retryCount As Integer
Const MAX_RETRIES As Integer = 5 ' 最大リトライ回数
Const WAIT_TIME_MS As Long = 1000 ' 再試行までの待ち時間（1秒）
fullPath = folderPath & att.FileName
retryCount = 0
SafeSaveAttachment = False ' 初期値は失敗
' リトライループ
Do While retryCount < MAX_RETRIES
On Error Resume Next ' エラーが発生しても中断せず次に進む
' 添付ファイルを保存
att.SaveAsFile fullPath
' エラーが発生したかチェック
If Err.Number = 0 Then
' 成功！
SafeSaveAttachment = True
On Error GoTo 0
Exit Function
Else
' 失敗した場合の処理
retryCount = retryCount + 1
Debug.Print "エラー発生 (" & Err.Number & "): " & Err.Description & _
" | リトライ回数: " & retryCount & "/" & MAX_RETRIES
' エラー情報をクリア
Err.Clear
On Error GoTo 0
' --- ここがエンジニアの腕の見せ所 ---
' 1. OSに制御を戻して、他のプロセス（スキャン等）に隙を与える
DoEvents
' 2. 指定した時間だけ待機する（Sleep API）
Sleep WAIT_TIME_MS
' ----------------------------------
End If
Loop
' ループを抜けても成功していない場合は、リトライ上限に達したものとみなす
Debug.Print "【警告】最大リトライ回数に達しました: " & att.FileName
End Function4. コードの解説：なぜこれで「勝てる」のか？
このコードが、なぜ一般的なマクロよりも強力なのか。その設計思想を分解してみましょう。
① `MAX_RETRIES` による「諦め」の設計
無限にリトライを繰り返すと、もし本当に「権限がない（読み取り専用フォルダに保存しようとしている等）」場合に、プログラムが永遠に止まってしまいます。「5回やってダメなら、それは一時的なエラーではなく構造的な問題だ」と判断して次に進む。これが、システムを安定させるための「大人の設計」です。
② `DoEvents` と `Sleep` のコンビネーション
- `DoEvents` は、Windowsに対して「ちょっと一休みして、他の仕事（ウイルススキャンなど）をやっていいよ」という譲歩です。
- `Sleep` は、プログラム側に「今、無理に動いても無駄だから、1秒間じっと待とう」という忍耐です。
この「譲歩」と「忍耐」を組み合わせることで、衝突の確率を劇的に下げることができます。
③ `Err.Number` による状態判定
`On Error Resume Next` を使うと、エラーが起きても止まらずに進んでしまいます。しかし、そのまま放置するのは危険です。このコードでは、「エラー番号が0（正常）になった瞬間だけ成功とみなす」という厳格な判定を行っています。
5. まとめ：エンジニアへの第一歩
いかがでしたでしょうか？
プログラミングの世界では、「正しく書くこと」と同じくらい、「例外（想定外の事態）をどう扱うか」が重要です。
- 初級者：エラーが出たら、プログラムを止めて原因を調べる。
- 中級者：エラーが出ても止まらないように `On Error Resume Next` を書く。
- 上級者（あなた！）：エラーの性質を理解し、リトライや待機を用いて、システム全体を最適化する。
今回のリトライロジックは、ファイル保存だけでなく、Excelファイルを開くときや、外部のデータベースに接続するときなど、あらゆる自動化シーンで応用できる「一生モノの武器」になります。
「ここをクリアすれば、Outlook VBAの基本はバッチリですよ」。
自信を持って、次の自動化プロジェクトに挑戦してくださいね。応援しています！
