【実務・中級編】【初心者向け】添付ファイル名に日付を自動付与して保存するファイル名重複防止策 – Outlook VBA解析バイブル

【Outlook VBA】添付ファイルの重複上書きを防ぐ：日付付与による堅牢な自動保存設計

「とりあえず動くコード」を書くのは簡単だ。しかし、実務の現場で「動かなくなるコード」を量産するのは、設計思想を持たない開発者だ。

Outlookの自動化において、最も初歩的でありながら、最も多くの実務担当者が陥る罠がある。それが「添付ファイルの保存時におけるファイル名重複」だ。

同じ件名のメールが複数届いたとき、あるいは同じファイル名を持つ添付ファイルが異なる送信者から送られてきたとき、君の書いたコードは既存のファイルを無慈悲に上書きしていないか？ もしそうだとしたら、それは自動化ツールではなく、「データを破壊するスクリプト」である。

本記事では、単なる「日付の付け方」の解説はしない。実務に耐えうる、堅牢で、保守性の高い「添付ファイル保存ロジック」の設計思想を伝授する。

1. なぜ「単純な保存」ではいけないのか

初心者が最初に書くコードは、おそらくこうだ。

' ⚠️ 危険なコードの典型例
attachment.SaveAsFile "C:\Temp\" & attachment.FileName

このコードには、プロフェッショナルとして見過ごせない致命的な欠陥が3つある。

1. 上書きリスク: 同名のファイルが既に存在する場合、警告なしに既存ファイルが消滅する。
2. 命名規則の脆弱性: `Date` 関数をそのまま使うと、`2023/10/27` のようなスラッシュを含む文字列が生成され、ファイル名として不正となりエラーを吐く。
3. 衝突の回避不能: 日付（Date）だけでは、同じ日に同じファイル名が届いた瞬間に、再び上書き問題が発生する。

これらを解決するには、「タイムスタンプの精密化」と「ファイル存在チェック」の組み合わせが必須となる。

2. 堅牢な設計：タイムスタンプの戦略的活用

ファイル名に付与する日付は、単なる「日付」であってはならない。それは「一意性（ユニークネス）を担保するための識別子」であるべきだ。

推奨するフォーマットは `yyyymmdd_hhmmss` だ。
秒単位まで含めることで、同一日に複数のメールを受信しても衝突する確率を極限まで下げることができる。

実装のポイント

• `Format` 関数を使い、OSが許容する文字のみで構成する。
• ファイル名とタイムスタンプの間にアンダースコア `_` を挟み、可読性を確保する。
• 拡張子（.pdf, .xlsx等）を分離して管理する。

3. プロダクション・クオリティのコード例

以下に、私が現場に導入するレベルの、エラーハンドリングとロジック分離を徹底したコードを示す。

このコードは、単に「保存する」だけでなく、「保存先のパスが妥当か」「ファイル名が不正でないか」を考慮した設計になっている。

Option Explicit

' =================================================================
' モジュール構成: 添付ファイル自動保存エンジン
' 設計思想: 
'   1. 責務の分離 (保存ロジックをメイン処理から切り離す)
'   2. 堅牢性 (エラーハンドリングと存在チェックの徹底)
'   3. 保守性 (定数管理による設定変更の容易化)
' =================================================================

' 保存先ディレクトリ（環境に合わせて変更すること）
Private Const SAVE_DIR As String = "C:\Users\Public\Documents\OutlookAttachments\"

''' <summary>
''' Outlookの受信イベントから呼び出されるメインルーチン
''' </summary>
Public Sub ProcessIncomingMail(ByVal Item As Outlook.MailItem)
    Dim att As Outlook.Attachment
    
    On Error GoTo ErrorHandler
    
    ' 保存先フォルダの存在確認（なければ作成する等の処理を検討すべき）
    If Dir(SAVE_DIR, vbDirectory) = "" Then
        MsgBox "保存先ディレクトリが存在しません: " & SAVE_DIR, vbCritical
        Exit Sub
    End If

    ' 添付ファイルのループ処理
    For Each att In Item.Attachments
        ' 個別の保存処理を呼び出す（疎結合な設計）
        SaveAttachmentWithTimestamp att
    Next att

    Exit Sub

ErrorHandler:
    Debug.Print "Critical Error in ProcessIncomingMail: " & Err.Description
End Sub

''' <summary>
''' 添付ファイルにタイムスタンプを付与して保存するコアロジック
''' </summary>
''' <param name="att">保存対象の添付ファイルオブジェクト</param>
Private Sub SaveAttachmentWithTimestamp(ByVal att As Outlook.Attachment)
    Dim fileNameOnly As String
    Dim fileExt As String
    Dim timestamp As String
    Dim newFileName As String
    Dim fullPath As String
    Dim dotPos As Integer
    
    On Error GoTo SaveErrorHandler

    ' 1. ファイル名と拡張子の分離
    dotPos = InStrRev(att.FileName, ".")
    If dotPos > 0 Then
        fileNameOnly = Left(att.FileName, dotPos - 1)
        fileExt = Mid(att.FileName, dotPos) ' .pdf 等
    Else
        fileNameOnly = att.FileName
        fileExt = ""
    End If

    ' 2. タイムスタンプの生成 (秒単位まで確保)
    ' Format関数により、ファイル名として不正な文字（/ や :）を排除
    timestamp = Format(Now, "yyyymmdd_hhmmss")

    ' 3. 新しいファイル名の構築
    ' 命名規則: [元ファイル名]_[タイムスタンプ][拡張子]
    newFileName = fileNameOnly & "_" & timestamp & fileExt
    fullPath = SAVE_DIR & newFileName

    ' 4. 重複チェック (万が一の秒単位の重複への備え)
    ' 既存ファイルが存在する場合、末尾に連番を付与する堅牢な設計
    Dim counter As Integer
    counter = 1
    Do While Dir(fullPath) <> ""
        fullPath = SAVE_DIR & fileNameOnly & "_" & timestamp & "_" & counter & fileExt
        counter = counter + 1
    Loop

    ' 5. 保存実行
    att.SaveAsFile fullPath
    Debug.Print "Successfully saved: " & fullPath

    Exit Sub

SaveErrorHandler:
    ' 個別のファイル保存失敗が、メール全体の処理を止めないように隔離する
    Debug.Print "Failed to save attachment: " & att.FileName & " | Error: " & Err.Description
End Sub

4. アーキテクトの視点：実務実装における注意点

コードが書けただけでは不十分だ。運用フェーズでシステムを崩壊させないために、以下の3点を肝に銘じておけ。

① ファイルパスの「境界条件」

ネットワークドライブ（`\\Server\Share\…`）を保存先に指定する場合、ネットワークの瞬断や権限エラーによってVBAが停止するリスクがある。実務では、ローカルの作業ディレクトリに一度保存し、その後バックグラウンドでサーバーへ転送する「二段構え」の設計が最も安全だ。

② 拡張子のバリデーション

もし、このツールを「特定のファイル（例：PDFのみ）」に限定したい場合は、`SaveAttachmentWithTimestamp` の冒頭で拡張子をチェックするガード句を入れろ。何でもかんでも保存するツールは、ストレージを圧迫し、セキュリティリスク（実行ファイル `.exe` の混入など）を招く。

③ ログ出力の重要性

`MsgBox` でユーザーに通知するのは、対話型ツールの場合のみだ。バックグラウンドで動作する自動化ツールにおいて、エラー時にダイアログが出ることは「処理の停止」を意味する。エラーは `Debug.Print` や、テキストファイルへのログ出力、あるいはデータベースへのエラー記録として、「静かに、しかし確実に」記録する設計にせよ。

結論

「ファイル名が重複しないようにする」という単純な要求に対し、`Format` 関数によるタイムスタンプ付与、`Do While` による重複回避、そして `On Error` によるエラー隔離。これらを組み合わせることで、初めて「業務で使えるツール」へと昇華する。

次にコードを書くときは、自分に問いかけてほしい。
「このコードは、1,000個のファイルが同時に流れてきても、壊れずに動き続けるか？」と。