【Outlook VBA】なぜその「即時送信」は失敗するのか？――ファイルロックを完璧に回避するプロフェッショナルな実装術
現場の自動化ツールを開発していて、最もフラストレーションが溜まる瞬間はどこか？
それは、「Excelでレポートを生成し、そのままOutlookで送信する」という一連のプロセスにおいて、「ファイルが使用中です」という無慈悲なエラーで処理が止まる瞬間だろう。
多くのエンジニアは、とりあえず `DoEvents` を挟んだり、適当な秒数の `Sleep` を入れたりして誤魔化すが、それは設計ではない。ただの「祈り」だ。
今日は、業務自動化の最前線で戦う諸君のために、Outlook VBAにおけるファイルハンドリングの本質と、堅牢なファイル送信アーキテクチャを伝授する。
—
1. なぜ「ファイルロック」は発生するのか？
結論から言えば、OSとアプリケーションの「書き込み完了フラグ」の非同期性に原因がある。
`Workbook.SaveAs` や `SaveCopyAs` を実行した直後、VBAのコードは「保存命令を出した」という事実だけで次の行へ進もうとする。しかし、WindowsのファイルシステムやExcelのI/Oバッファは、物理的なディスクへの書き込み完了まで僅かなラグを生む。この「0.1秒の隙間」にOutlookが `Attachments.Add` を叩くと、ファイルはロック中とみなされ、例外が発生する。
「適当なSleep」がなぜ悪手なのか？
1. 環境依存: PCのスペックやネットワークドライブの速度によって必要な待機時間は変わる。
2. 非効率: 常に最大待機時間を設定すれば、ツールは遅くなる。
3. 脆弱: 巨大なファイルになれば、その時間は一瞬で破綻する。
我々が求めるべきは、「ファイルの書き込み完了をOSレベルで検知する」ことだ。
—
2. 堅牢なファイルハンドリングの実装戦略
解決策はシンプルだ。「排他ロックが解除されるまでリトライする」というループ構造を実装する。これこそが、本番環境（プロダクション）で耐えうる唯一の解である。
以下のコードは、単なるコピペコードではない。堅牢性を担保するための「守り」を固めた設計になっている。
実装コード：堅牢な添付ファイル送信
‘ 必要な参照設定: Microsoft Outlook 16.0 Object Library
Option Explicit
‘ メイン処理：ファイルを生成し、ロック解除を確認して送信する
Public Sub SendEmailWithAttachment(ByVal filePath As String)
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
‘ 1. ファイルが確実に書き込み可能かチェック
If Not IsFileReady(filePath) Then
MsgBox “ファイルの書き込みが完了していません。処理を中断します。”, vbCritical
Exit Sub
End If
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = “target@example.com”
.Subject = “自動生成レポート”
.Body = “添付ファイルをご確認ください。”
.Attachments.Add filePath
.Display ‘ 本番運用の際は .Send を使用すること
End With
MsgBox “送信準備が完了しました。”, vbInformation
End Sub
‘ 核心部分：排他制御チェック関数
Private Function IsFileReady(ByVal filePath As String) As Boolean
Dim fileNum As Integer
Dim retries As Integer
Dim maxRetries As Integer: maxRetries = 10
On Error Resume Next
Do
fileNum = FreeFile
‘ 排他モードでオープンを試みる
Open filePath For Input Lock Read Write As #fileNum
If Err.Number = 0 Then
‘ 成功すれば即クローズしてTrueを返す
Close #fileNum
IsFileReady = True
Exit Function
End If
‘ 失敗した場合はクローズして再試行
Close #fileNum
Err.Clear
retries = retries + 1
Application.Wait (Now + TimeValue(“00:00:01”)) ‘ 1秒待機
Loop While retries < maxRetries
IsFileReady = False ' リトライ上限を超えたらFalse
End Function
---
3. この設計が「プロフェッショナル」である理由
このコードには、単に動く以上の知見が詰め込まれている。
- 排他モードでのオープン (`Lock Read Write`):
単に `Open` するのではなく、`Lock Read Write` を指定することで、OSに対して「このファイルに他者がアクセスできない状態か？」という問いを投げている。これにより、ファイルが書き込み中であれば確実にエラーが返る。
- リトライ回数の制限:
無限ループを避け、上限を設けることで、万が一のデッドロック時にもExcelごと固まるリスクを排除している。
- 関数の疎結合化:
`IsFileReady` を独立させることで、他のプロジェクトにも即座に流用可能にしている。
4. 最後に：エンジニアとしての矜持
自動化エンジニアの仕事は、コードを書くことではない。「発生しうるエラーを設計段階で無効化すること」だ。
「なぜかたまにエラーが出る」「再実行すれば動く」といった曖昧な運用は、いずれチーム全体の信頼を損なう。今回紹介したファイルロック回避術は、一見地味だが、これこそがシステムを「安定稼働」させるための基礎体力である。
読者諸君の現場で、このコードが静かに、そして確実に業務を支えてくれることを期待する。何か不明点があれば、またいつでも深淵へ聞きに来るといい。
