こんにちは。業務自動化の深淵へようこそ。
「マクロの記録」という安全圏から一歩踏み出し、自らの手でOutlookを操ろうとするあなたの挑戦を心から歓迎します。
今日は、多くの人が「業務効率化の入り口」でつまずく「フォルダ内の全ファイルをメールに一括添付する」というタスクを攻略します。単なるコードのコピペではなく、なぜそう書くのか、どこに落とし穴があるのかを、エンジニアの視点で紐解いていきましょう。
—
1. なぜ「Dir関数」を使うのか？
フォルダ内のファイルを自動取得する際、私たちは`Dir`関数という魔法の道具を使います。これは、指定したフォルダの扉を叩き、中にあるファイルを一つずつ呼び出すための司令塔です。
初心者がやりがちなのは「ファイル名を決め打ちする」ことですが、これではファイルが増減するたびにコードを書き直さなければなりません。`Dir`を使えば、「フォルダに何があろうと、あるだけ全部拾い上げる」という柔軟な設計が可能になります。
—
2. 魂を込めた実装コード
まずは、何も恐れずにこのコードを眺めてみてください。ポイントは、`MailItem`という「メールの器」に対して、どうやって`Attachments`（添付ファイル群）を流し込むかです。
Sub AttachFilesFromFolder()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim targetFolder As String
Dim fileName As String
‘ 1. 添付元フォルダのパス（最後に \ を忘れずに！）
targetFolder = “C:\Users\YourName\Documents\Reports\”
‘ 2. Outlookの新しいメールアイテムを作成
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
‘ 3. Dir関数で最初のファイルを取得
fileName = Dir(targetFolder & “.”) ‘ すべてのファイルを対象
‘ 4. ファイルが見つからなくなるまでループ
Do While fileName <> “”
‘ 添付ファイルとして追加
olMail.Attachments.Add targetFolder & fileName
‘ 次のファイルを取得
fileName = Dir()
Loop
‘ 5. メールの表示（送信前に確認できるように）
olMail.Display
MsgBox “添付完了！”
End Sub
—
3. このコードを「掌握」するための3つの教え
このコードをただコピペするだけでなく、以下の3点だけは心に刻んでください。これが「自動化エンジニア」としての第一歩です。
① パスの終端にある「\」の呪い
`targetFolder & fileName` という結合部分を見てください。もし`targetFolder`の最後に `\` がないと、パスは `C:\ReportsFile01.xlsx` となり、ファイルが見つからずにエラーになります。「パスの末尾には必ずバックスラッシュ」。これは自動化の鉄則です。
② Dir関数の「記憶力」
`Dir`関数は、一度呼び出された場所をメモリに記憶しています。ループの最後で引数なしの `Dir()` を呼ぶことで、「次のファイルは？」と聞き続けることができます。この仕組みを理解すると、ファイル検索の自由度が格段に上がります。
③ 巨大ファイルへの警戒心
今回は基本ということで省略しましたが、実務では「ファイルサイズが大きすぎてメールが送れない」という壁にぶつかります。必要に応じて `FileLen(targetFolder & fileName)` を使い、サイズチェックを入れるのがプロの作法です。
—
4. 陥りやすいエラーとその処方箋
初心者が必ず通る道が「ファイルが見つからない」というエラーです。
- パスの指定ミス: パスは正しいですか？隠しフォルダやネットワークドライブの場合、アクセス権限で弾かれることがあります。
- ファイルが使用中: 別のアプリで開いていると、Outlookがロックして添付できない場合があります。
- MailItemの破棄: もし途中でエラーが出てマクロが止まると、生成された`olMail`がメモリに残ることがあります。`Set olMail = Nothing` をコードの最後に添える癖をつけると、メモリリークを防ぐスマートなエンジニアになれますよ。
—
さあ、次の一歩へ
ここまでくれば、あなたはもう「マクロの記録」に頼るだけのユーザーではありません。「フォルダの中身を自動で検知し、メールに組み込む」という、業務自動化の骨格を手に入れました。
次は、「特定の名前を含むファイルだけを添付する」といった条件分岐や、「宛先をExcelから読み込む」といった応用に進んでみてください。
Outlook VBAは、あなたの退屈な事務作業を「一瞬の魔法」に変えるための最高の武器です。迷ったらまたここへ戻ってきてください。いつでもあなたの挑戦を応援しています。
