【Outlook VBA極論】フォルダ内全ファイルを「一瞬」で一括添付する。実務に耐えうる堅牢な設計と思想
「指定したフォルダにあるファイルを全部メールに添付して送っておいて」
実務でよくあるこの依頼、あなたはまさか、1つずつファイルをドラッグ＆ドロップしてはいないだろうか。あるいは、ネットで見つけた「とりあえず動く」だけの不安定なコードを継ぎ接ぎして満足していないだろうか。
凡百のエンジニアは「動けばいい」と考える。だが、我々プロフェッショナルは「例外が起きても業務を止めない、保守性の高いツール」を設計しなければならない。
今回は、Outlook VBAとFileSystemObject（FSO）を組み合わせ、フォルダ内のファイルを全件自動取得し、メールを作成する「一括処理ツール」の極意を伝授する。
—
1. なぜ `Dir` 関数ではなく `FileSystemObject` なのか
多くの入門書には `Dir` 関数を使ったファイル取得が紹介されている。しかし、私は実務において `Dir` を推奨しない。理由はシンプルだ。「オブジェクト指向ではないから」であり、「再帰的な処理や属性操作に弱いから」である。
今回採用する `FileSystemObject` (FSO) は、Windowsのファイルシステムを操作するための強力なライブラリだ。
- ファイルの存在確認が直感的。
- ファイル名、拡張子、パスの分離が容易。
- オブジェクトとして扱えるため、コードの可読性と堅牢性が飛躍的に向上する。
この「設計の選択」が、後のバグ修正や機能拡張の際に大きな差を生むことになる。
—
2. 【実践】フォルダ内全ファイル一括添付ツール（プロダクションコード）
以下のコードは、そのまま実務に投入できるレベルまで磨き上げたものだ。参照設定を気にせず動くよう「レイトバインディング（遅延結合）」で記述しているが、大規模開発なら「アーリーバインディング（参照設定：Microsoft Scripting Runtime）」への切り替えも検討してほしい。
‘ ==============================================================================
‘ 概要: 指定フォルダ内の全ファイルをメールに添付し、下書き作成または送信を行う
‘ 設計思想: 疎結合、堅牢なエラーハンドリング、リソース解放の徹底
‘ ==============================================================================
Public Sub CreateBulkAttachmentMail()
On Error GoTo ErrorHandler
‘ — 設定エリア（実務ではここを定数やセルから取得するように設計する） —
Dim targetFolderPath As String
targetFolderPath = “C:\Users\YourName\Documents\Reports” ‘ 添付ファイルが格納されたパス
Dim mailTo As String: mailTo = “client@example.com”
Dim mailSubject As String: mailSubject = “【自動送信】月次報告資料の送付”
Dim mailBody As String: mailBody = “お疲れ様です。資料を添付いたしました。ご確認をお願いします。”
‘ ———————————————————————-
‘ FSO: ファイルシステム操作用オブジェクト
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ フォルダの存在チェック（基本中の基本だが、怠る者が多い）
If Not fso.FolderExists(targetFolderPath) Then
MsgBox “指定されたフォルダが存在しません: ” & targetFolderPath, vbCritical
Exit Sub
End If
‘ Outlookオブジェクトの生成
Dim outlookApp As Object
Dim mailItem As Object
Set outlookApp = CreateObject(“Outlook.Application”)
Set mailItem = outlookApp.CreateItem(0) ‘ 0 = olMailItem
‘ メールの構成
With mailItem
.To = mailTo
.Subject = mailSubject
.Body = mailBody
‘ フォルダ内のファイルを走査して添付
Dim targetFolder As Object
Dim targetFile As Object
Set targetFolder = fso.GetFolder(targetFolderPath)
Dim fileCount As Integer: fileCount = 0
For Each targetFile In targetFolder.Files
‘ 隠しファイルや一時ファイル（~$…）を除外するガード節
If Not targetFile.Name Like “~$” Then
.Attachments.Add targetFile.Path
fileCount = fileCount + 1
End If
Next targetFile
‘ 添付ファイルがゼロだった場合の処理（ビジネスロジックによる）
If fileCount = 0 Then
If MsgBox(“添付ファイルが見つかりません。空のまま作成しますか？”, vbQuestion + vbYesNo) = vbNo Then
.Delete ‘ 作成中のアイテムを破棄
GoTo CleanUp
End If
End If
‘ 表示（送信前に目視確認させるのが「運用の安全」）
.Display
End With
MsgBox fileCount & ” 件のファイルを添付しました。”, vbInformation
CleanUp:
‘ オブジェクトの明示的解放（メモリリーク防止とプロセスの確実な終了）
Set mailItem = Nothing
Set outlookApp = Nothing
Set fso = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
3. チーフアーキテクトが教える「差がつく」ポイント
① 隠しファイル（一時ファイル）の除外
Excelなどを開いたままにしていると、`~$Book1.xlsx` のような一時ファイルが生成される。これをそのまま添付してしまうのは、プロの仕事ではない。コード内で `If Not targetFile.Name Like “~$” Then` というフィルタを入れているのは、そうした「現場のリアリティ」への配慮だ。
② `.Display` と `.Send` の使い分け
初心者はすぐに `.Send` で自動送信したがるが、これは危険だ。
宛先の間違い、添付ファイルの漏れ……。まずは `.Display` でユーザーの目に触れさせ、最後に「送信」ボタンを押させる。あるいは「テスト送信モード」というフラグを設けて制御するのが、一流の設計だ。
③ オブジェクトのライフサイクル管理
`Set … = Nothing` を単なるおまじないだと思っていないか？
Outlook VBAにおいて、オブジェクトの参照を適切に解放しないことは、Outlookのプロセスが背後で残り続けたり、ファイルがロックされて削除できなくなったりする原因になる。特に大量のメールをループで作成する場合、この一行を疎かにする者は必ずパフォーマンスの壁にぶち当たる。
④ セキュリティ・アラートへの対策
本コードは `.Display` を前提としているため問題ないが、`.Send` をループで回すと、Outlookのセキュリティ警告（プログラムが自動でメールを送ろうとしています）が表示されることがある。これを回避するには、信頼済みのアドインとして登録するか、会社のセキュリティポリシーを考慮した別のAPI（CDO.Messageなど）を検討する必要がある。
—
4. まとめ：ツールを作ることは「信頼」を作ること
特定のフォルダからファイルを拾ってメールを作る。この単純な作業を自動化するツール一つをとっても、そこには「例外への想像力」が詰まっている。
- フォルダが空だったら？
- パスが間違っていたら？
- 巨大なファイルが混じっていたら？
これらを一つずつ潰し、誰が使っても同じ結果を出す。それが「業務自動化」の真髄である。
このコードをベースに、次は「Excelのリストから宛先を動的に変える」「送信後にファイルを『処理済み』フォルダへ移動する」といった機能拡張に挑戦してみてほしい。その時、今回紹介した `FileSystemObject` の真価をより深く理解できるはずだ。
君の書くコードが、チームの時間を創出し、ミスを根絶する。 誇りを持ってキーボードを叩いてほしい。
