現場で泣かないための「Outlook自動保存」：FSOを使いこなす堅牢な設計論
現場の業務自動化において、Outlook VBAは「諸刃の剣」だ。正しく扱えば最強の武器になるが、甘い設計は即座にランタイムエラーやファイル破壊を招く。
多くのエンジニアが「動けばいい」という発想でコードを書くが、真のアーキテクトは「なぜエラーが起きないのか」「なぜ保守性が高いのか」を説明できるコードを書く。今日は、実務で絶対に壊れない、添付ファイル自動保存の極意を伝授しよう。
—
1. なぜ「雑なコード」は死ぬのか？
初心者が陥る罠は、大きく分けて3つある。
1. パスの結合ミス: `\` の付け忘れや、OS依存のパス区切り文字を直書きする。
2. ファイル名重複の未考慮: 同じファイル名が来た瞬間にスクリプトが停止する。
3. オブジェクトの解放忘れ: `FileSystemObject` や `NameSpace` をメモリに放置し、Outlookを重くする。
これらを解決するための「堅牢な設計」とは、「異常系を先回りして潰すこと」に他ならない。
—
2. 堅牢な自動保存スクリプト：プロダクションコード
以下のコードは、単にファイルを保存するだけでなく、同名ファイルの重複回避、フォルダ生成の自動化、そしてメモリ管理までを考慮した実戦仕様だ。
Option Explicit
‘ 必要なライブラリ：Microsoft Scripting Runtime を参照設定すること
‘ 参照設定できない場合は Late Binding (CreateObject) を使用
Public Sub SaveAttachmentsToFolder(objMail As Outlook.MailItem)
Dim fso As Object
Dim folderPath As String
Dim attachment As Outlook.Attachment
Dim fileName As String
Dim baseName As String, ext As String
Dim savePath As String
Dim counter As Integer
‘ 1. 保存先ルート設定（環境に合わせて変更）
folderPath = “C:\AutomatedExports\” & Format(Date, “yyyy-mm-dd”) & “\”
‘ 2. FSOでフォルダ存在チェックと自動生成
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(folderPath) Then
On Error Resume Next ‘ 階層作成時の権限エラー対策
fso.CreateFolder folderPath
On Error GoTo 0
End If
‘ 3. 添付ファイル処理
For Each attachment In objMail.Attachments
fileName = attachment.DisplayName
‘ ファイル名と拡張子を分離（重複回避のため）
baseName = fso.GetBaseName(fileName)
ext = “.” & fso.GetExtensionName(fileName)
savePath = folderPath & fileName
‘ 同名ファイルが存在する場合、連番を振る（堅牢性の核心）
counter = 1
Do While fso.FileExists(savePath)
savePath = folderPath & baseName & “_” & counter & ext
counter = counter + 1
Loop
‘ 保存実行
attachment.SaveAsFile savePath
Next attachment
‘ 4. 明示的なクリーンアップ
Set fso = Nothing
End Sub
—
3. このコードが「プロ仕様」である理由
① FSO（FileSystemObject）の活用
`MkDir` コマンドではなく、あえて `FSO` を使う理由は、階層構造の管理が圧倒的に楽だからだ。`FolderExists` で事前チェックを行うことで、プログラムが途中で落ちる確率を限りなくゼロに近づけている。
② Do Whileによる重複回避
現場で最も多いトラブルが「同名ファイルによる上書きエラー」だ。このスクリプトでは、`Do While` ループを用いてファイル名の末尾に連番を付与する。これにより、どんなに同じ名前のファイルが送られてきても、決してデータが消失することはない。
③ オブジェクトライフサイクルの管理
`Set fso = Nothing` を忘れるエンジニアが多いが、これはメモリリークの温床だ。Outlookは常駐アプリであるため、わずかなメモリリークも数ヶ月単位で見れば動作を極端に重くする。常に「使い終わったら捨てる」習慣を徹底すること。
—
4. 運用上の注意点と次のステップ
このスクリプトは、単体で動かすのではなく、「Outlookの仕分けルール（スクリプトを実行）」と組み合わせて運用するのが定石だ。
- 権限の問題: 保存先がネットワークドライブ（共有フォルダ）の場合、スクリプト実行ユーザーに書き込み権限があるか、事前に必ず確認すること。
- 例外処理: `On Error Resume Next` はあくまで「フォルダ作成時」など、意図した場所のみに限定すべきだ。広範囲に設定すると、重大なバグが隠蔽されてしまう。
アーキテクトからのアドバイス
自動化は、「自動で動くこと」がゴールではない。「何年稼働させても、一切のメンテナンスなしで動き続けること」がゴールだ。
今回紹介したコードは、そのための土台となる。まずは自身の環境で試し、この「壊れない設計」の感覚を指先に染み込ませてほしい。君が書くコードが、誰かの時間を年間数百時間も節約することになるのだから。
