【脱・マクロ記録】添付ファイルの「上書き地獄」を救う、タイムスタンプ付与の極意
こんにちは。自動化の深淵へようこそ。
「マクロの記録」ボタンを押して、記録されたコードを眺めては、「もっとこうしたいのに……」と壁にぶつかっている。そんな経験はありませんか？
もしあなたが、メールで届く添付ファイルを自動保存する仕組みを作ろうとして、「同じ名前のファイルが届くと、古い方が消えてしまう（上書きされる）」という問題に直面しているなら、おめでとうございます。あなたは今、プログラミングにおける「データの整合性とライフサイクル」という、極めて重要な概念の入り口に立っています。
今日は、初心者の方が最初の一歩として必ずマスターすべき、「ファイル名に受信日時（秒単位）を刻印し、上書きを完全に防ぐ」というテクニックを伝授します。ここをクリアすれば、Outlook VBAの基本はバッチリですよ。
なぜ「ただ保存するだけ」では失敗するのか？
想像してみてください。毎日同じ名前の「日報.xlsx」が届く業務フローを。
単純なマクロで「添付ファイルを指定フォルダに保存する」という命令を書くと、コンピュータは忠実にその指示に従います。しかし、コンピュータにとって「同じ名前のファイル」は「同じ存在」です。新しいファイルが来たとき、以前のファイルを消して、新しいものに置き換えてしまう。これが「上書きの罠」です。
これを防ぐには、ファイル名に「そのファイルがいつ生成されたか」という唯一無二の証（タイムスタンプ）を刻む必要があります。
魔法の杖：`Format` 関数を使いこなす
今回、私たちが使う最強の武器は `Format` 関数です。
VBAにおいて `Format` 関数は、日付や数値を、私たちが読みやすい「特定の形式」の文字列に変換する役割を持っています。
例えば、現在時刻を取得する `Now` 関数と組み合わせると、以下のような魔法が使えます。
| コード | 結果のイメージ (例) | 解説 |
|---|---|---|
| `Format(Now, “yyyy/mm/dd”)` | `2023/10/27` | 年/月/日 |
| `Format(Now, “hhmmss”)` | `143005` | 時分秒（24時間制） |
| `Format(Now, “yyyyMMdd_HHmmss”)` | `20231027_143005` | これこそが我々の正解！ |
【エンジニアの知恵】
ファイル名に `/`（スラッシュ）などの記号を使うことはできません（Windowsのファイル名のルールで禁止されています）。そのため、区切りには `_`（アンダースコア）などを使うのがプロの作法です。
実戦：添付ファイルをタイムスタンプ付きで保存するコード
それでは、実際に動くコードを見ていきましょう。このコードは、現在選択しているメールの添付ファイルを、指定したフォルダへ「秒単位のタイムスタンプ」を付けて保存するものです。
Sub SaveAttachmentsWithTimestamp()
' --- 設定エリア ---
Dim savePath As String
' 保存先フォルダを必ず最後に "\" を付けて指定してください
savePath = "C:\Users\YourName\Desktop\SavedAttachments\"
' ------------------
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim strFileName As String
Dim strBaseName As String
Dim strExtension As String
Dim strTimestamp As String
Dim strNewFileName As String
Dim dotPosition As Integer
' 1. 選択しているアイテムが「メール」かどうかをチェック
On Error Resume Next
Set objMail = Application.ActiveExplorer.Selection.Item(1)
On Error GoTo 0
If objMail Is Nothing Then
MsgBox "メールを選択してから実行してください。", vbExclamation
Exit Sub
End If
' 2. 保存先フォルダが存在するか確認（簡易チェック）
If Dir(savePath, vbDirectory) = "" Then
MsgBox "保存先フォルダが見つかりません: " & savePath, vbCritical
Exit Sub
End If
' 3. 添付ファイルを一つずつ処理
For Each objAttachment In objMail.Attachments
' 元のファイル名を取得 (例: "report.pdf")
strFileName = objAttachment.FileName
' --- ここが重要：ファイル名と拡張子を分離するロジック ---
' InStrRevは、後ろから探して「.」が何文字目にあるかを教えてくれます
dotPosition = InStrRev(strFileName, ".")
If dotPosition > 0 Then
' ドットより前を「ベース名」、後ろを「拡張子」とする
strBaseName = Left(strFileName, dotPosition - 1)
strExtension = Mid(strFileName, dotPosition) ' ".pdf" など
Else
' 拡張子がない特殊なファイルの場合
strBaseName = strFileName
strExtension = ""
End If
' 4. タイムスタンプの生成 (年・月・日_時・分・秒)
strTimestamp = Format(Now, "yyyyMMdd_HHmmss")
' 5. 新しいファイル名の組み立て (例: "report_20231027_143005.pdf")
strNewFileName = strBaseName & "_" & strTimestamp & strExtension
' 6. 保存実行
objAttachment.SaveAsFile savePath & strNewFileName
Debug.Print "保存完了: " & strNewFileName
Next objAttachment
MsgBox "添付ファイルの保存が完了しました！", vbInformation
End Subコードの「心臓部」を解剖する
初心者の方が最も躓きやすいのは、「ファイル名にタイムスタンプを付けるとき、拡張子（.pdfなど）をどこに置くか」という点です。
もし、単純に `strFileName & “_” & strTimestamp` と書いてしまうと、ファイル名はこうなります：
❌ `report.pdf_20231027_143005`
これでは、Windowsが「これはPDFファイルだ」と認識できず、開けなくなってしまいます。正解は：
⭕ `report_20231027_143005.pdf`
このコードでは、`InStrRev` という関数を使って、ファイル名の最後にある「.」の位置を特定しています。
1. `Left` 関数で、ドットより前の部分（名前）を切り出す。
2. `Mid` 関数で、ドット以降の部分（拡張子）を切り出す。
3. その間にタイムスタンプを挟み込む。
この「分解して、再構築する」という考え方は、あらゆる業務自動化において必須のスキルです。
陥りやすいエラーと回避策
プロの現場では、コードを書く時間よりも「エラーが起きないか確認する時間」の方が長いです。以下の3点には常に注意してください。
1. フォルダパスの末尾の “\” (バックスラッシュ/円記号)
`savePath = “C:\Temp”` と書いてしまうと、保存時に `C:\Tempreport.pdf` という、Tempフォルダの中にreportというファイルを作るのではなく、Cドライブ直下に変な名前のファイルを作ろうとしてエラーになります。必ず最後に `\` を入れましょう。
2. ファイル名に使えない禁止文字
もしメールの添付ファイル名自体に `*` や `?` 、 `:` などの記号が含まれていると、`SaveAsFile` は失敗します。実務では、ファイル名から記号を除去する処理を追加することもあります。
3. 同秒内の重複
今回は「秒」単位ですが、もし1秒間に複数のファイルが届くような超高速なシステムを組む場合は、さらにミリ秒まで含めるか、ファイル名が重複した場合に番号を増やす（`_1`, `_2`…）といった高度なロジックが必要になります。まずは「秒」で十分でしょう。
おわりに
いかがでしたか？
単に「保存する」という命令に、「分解・加工・再構築」というステップを加えるだけで、システムは劇的に賢く、実用的なものに変わります。
「マクロの記録」から一歩踏み出し、こうした「データの構造」を意識したコードが書けるようになれば、あなたはもう単なるユーザーではなく、立派な「自動化エンジニア」の仲間入りです。
一歩ずつ、着実に。次の自動化へ向けて、楽しんでコードを書いていきましょう！
