【実務・中級編】【中級者向け】添付ファイルのファイル名に「送信日」と「連番」を自動付与するリネーム処理 – Outlook VBA解析バイブル

【Outlook VBA】添付ファイルのファイル名に「送信日」と「連番」を自動付与する堅牢なリネーム設計

開発現場でよくある要望の一つに、「メールに添付するファイルのファイル名を、送信日や連番を付与した規則正しいものに自動変換したい」というものがある。

手作業で行う場合、担当者は元のファイルをコピーし、リネームし、それをドラッグ＆ドロップでメールに添付する……という退屈でミスを誘発しやすいプロセスを踏むことになる。これをOutlook VBAで完全に自動化できれば、ファイル名の付け忘れや、古いバージョンの添付といったヒューマンエラーを根絶できる。

しかし、単に「ファイルをリネームしてアタッチする」だけのコードを書くと、実務の現場ではすぐに破綻する。
ファイルが別プロセスでロックされている、FileSystemObjectの不適切な扱いでメモリリークや意図しない例外が発生する、あるいはOutlookの送信キャンセル時にテンポラリファイルがゴミとして残る――これらはすべて、オブジェクトのライフサイクルとOSのI/Oを軽視した設計が生むバグだ。

今回は、数々の現場でマクロの乱立による負債を解消してきたチーフアーキテクトの視点から、「実務で絶対に壊れない」堅牢なファイルリネーム・添付自動化の極意を伝授する。

—

1. なぜ「その場しのぎのリネームコード」は現場で破綻するのか？

多くのVBA解説サイトにあるコードは、次のようなアプローチをとっている。
1. 元ファイルを直接リネームする。
2. そのままOutlookに添付する。

このアプローチは最悪だ。なぜなら、以下のリスクを孕んでいるからである。

• 元ファイルの破壊: ユーザーが管理している元のファイル名が勝手に書き換わってしまい、後続の業務に支障をきたす。
• 排他制御（ロック）エラー: ファイルがExcelやAcrobatなどで開かれている場合、VBAからリネームしようとして実行時エラー（権限エラー）で即座にクラッシュする。
• 孤立ファイルの蓄積: 自動化のために一時コピーを作成した場合、エラーハンドリングが不完全だと、PCのテンポラリ領域にゴミファイルが無限に増殖する。

プロフェッショナルな設計アプローチ

実務における正解は、「安全な一時ディレクトリ（Temp）へ元ファイルをコピーし、コピー側に対して『送信日（YYYYMMDD）』と『ゼロパディングされた連番』を付与してリネームし、それを添付する」という一連のライフサイクル管理をトランザクション的に完結させることだ。

—

2. 実装アーキテクチャの全体像

今回提供するプロダクションコードは、以下の仕様を満たすように設計されている。

1. 動的な日付取得: 処理を実行した日、またはメールの送信予定日を `YYYYMMDD` 形式で取得。
2. 連番の採番: 同一メールに複数ファイルを添付する場合を想定し、`_01`, `_02` と二桁のゼロパディング（桁揃え）を行う。
3. 安全な一時コピー: 元ファイルを改変せず、OSのテンポラリフォルダ上で安全に処理。
4. 堅牢なエラーハンドリング: ファイルが存在しない、あるいは使用中の場合に優雅に検知して処理を中断する。

—

3. 【コピペで動く】プロダクションコード

以下のコードを、OutlookのVBAエディタ（`ThisOutlookSession` または標準モジュール）に配置してほしい。

Option Explicit

‘ ==============================================================================
‘ 担当者必携：添付ファイルを「送信日＋連番」でリネームしてメール作成するプロシージャ
‘ ==============================================================================
Sub CreateMailWithRenamedAttachments()
Dim oMail As MailItem
Dim fso As Object
Dim targetFiles As Collection
Dim vFile As Variant
Dim tempFolder As String
Dim originalPath As String
Dim newFileName As String
Dim tempPath As String
Dim fileCount As Long
Dim dateStr As String
Dim i As Long

‘ 1. FileSystemObjectの初期化（レジストリからの遅延バインディングを避けるためNewを使用）
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 2. 添付したいファイルのリストを定義（実務ではファイルダイアログ等で動的取得に拡張可能）
Set targetFiles = New Collection

‘ — 【環境に合わせて書き換えてください】 —
targetFiles.Add “C:\Work\Report_Draft.xlsx”
targetFiles.Add “C:\Work\Specification.pdf”
‘ ——————————————-

‘ 3. 添付ファイルの存在チェック（フェイルファストの原則：処理開始前に弾く）
For Each vFile In targetFiles
If Not fso.FileExists(CStr(vFile)) Then
MsgBox “指定されたファイルが存在しません。” & vbCrLf & CStr(vFile), vbCritical, “処理中断”
Exit Sub
End If
Next vFile

‘ 4. 新規メールアイテムの生成
Set oMail = Application.CreateItem(olMailItem)

‘ 5. 命名規則のパーツ生成（送信日: YYYYMMDD形式）
dateStr = Format(Date, “yyyymmdd”)

‘ 6. Windowsのテンポラリフォルダパスを取得
tempFolder = fso.GetSpecialFolder(2) ‘ 2 = TemporaryFolder

fileCount = 0

‘ 7. トランザクション処理：ファイルのコピー＆リネーム＆添付
On Error GoTo ErrorHandler

For i = 1 To targetFiles.Count
originalPath = targetFiles(i)
fileCount = fileCount + 1

‘ 拡張子の取得
Dim ext As String
ext = fso.GetExtensionName(originalPath)

‘ 命名規則の適用: 「日付_元ファイル名_連番.拡張子」 または 「日付_連番.拡張子」
‘ 今回は 「YYYYMMDD_元ファイル名_01.ext」 のフォーマットを採用
Dim baseName As String
baseName = fso.GetBaseName(originalPath)

newFileName = dateStr & “_” & baseName & “_” & Format(fileCount, “00”) & “.” & ext
tempPath = tempFolder & “\” & newFileName

‘ 元ファイルをテンポラリにコピー（overwrite = True）
fso.CopyFile originalPath, tempPath, True

‘ Outlookメールに添付
oMail.Attachments.Add tempPath
Next i

‘ 8. メールの初期設定（宛名や件名は必要に応じて調整）
With oMail
.Subject = “【提出】” & Format(Date, “yyyy/mm/dd”) & ” 業務報告資料”
.Body = “関係者各位” & vbCrLf & vbCrLf & “お疲れ様です。” & vbCrLf & “本日の資料を添付いたします。”
.Display ‘ 画面上に表示してユーザーの最終確認を促す
End With

‘ クリーンアップ
Set fso = Nothing
Set targetFiles = Nothing
Exit Sub

ErrorHandler:
‘ 異常系処理：ファイルロックや予期せぬエラーの捕捉
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “システムエラー”

If Not fso Is Nothing Then Set fso = Nothing
If Not targetFiles Is Nothing Then Set targetFiles = Nothing
If Not oMail Is Nothing Then
‘ 未送信のまま破棄
oMail.Close olDiscard
End If
End Sub

—

コードを深く読み解けばわかる通り、単なる「便利マクロ」の枠を超えた堅牢性を担保している。

• フェイルファスト（Fail Fast）: ループの最初に `FileExists` を挟むことで、処理の途中で「3番目のファイルだけ存在しないためにメール作成が中途半端に失敗する」という最悪の事態を防ぐ。
• ゼロパディングの徹底: `Format(fileCount, “00”)` により、ファイル数が10件を超えても、OSのファイルソート順が崩れない（`_1`, `_10`, `_2` とならず、`_01`, `_02`, `_10` と綺麗に並ぶ）。
• 一意なテンポラリ領域の活用: OSの標準テンポラリに書き出すため、ネットワークドライブ上のファイルを直接いじってアクセス権エラーを踏むリスクを完全に排除している。

—

4. チーフアーキテクトからの実務運用アドバイス

このコードを実際の業務システムやチーム展開に組み込む際、以下の2点に注意してほしい。

1. ファイルパスの動的化
サンプルコードではファイルパスをハードコーディングしているが、実務では `FileDialog` オブジェクトを使ってユーザーにファイルを選択させるか、特定の監視フォルダ（インボイス受信フォルダなど）から最新ファイルを自動取得するロジックに拡張すべきだ。
2. テンポラリファイルのクリーンアップについて
Outlookに添付されたファイルは、メールが送信されるか破棄されるまでOutlook側がロックを保持する。そのため、マクロ実行直後にテンポラリファイルを削除してはならない。Outlookの仕様上、OS終了時やテンポラリの自動クリーンアップに委ねるか、送信完了イベントをフックして削除する高度な設計が必要となる。上記コードのようにOSの標準テンポラリ(`GetSpecialFolder(2)`)を利用していれば、ディスク肥大化の心配は実質的にゼロに近い。

自動化の本質は「コードを書くこと」ではなく、「人の手による曖昧さ（ヒューマンエラー）をシステム的制約でねじ伏せること」にある。
このリネーム＆添付ロジックをあなたの現場に導入し、ファイル管理のストレスからチームを解放してほしい。