こんにちは。今日も自動化の迷宮へようこそ。
私は長年、数多の企業のバックオフィスを「コード」という魔法で変革してきたチーフアーキテクトです。
君は今、「毎日決まったフォルダにある複数のファイルを、一つずつドラッグ＆ドロップでメールに添付する」という、あの魂を削るような単純作業から抜け出そうとしていますね。素晴らしい一歩です。
マクロの記録から一歩踏み出し、自分の手で「オブジェクト」を操る感覚を掴むこと。ここをクリアすれば、Outlook VBAの基本はバッチリですよ。
今回は、初心者の方が最も躓きやすく、かつ最も劇的に効果を実感できる「特定フォルダ内の全ファイルを一括添付するメール作成ツール」を、プロの視点で徹底解説します。
—
1. なぜ「マクロの記録」ではなく「FSO」を使うのか？
OutlookにはExcelのような「マクロの記録」機能がありません。そのため、私たちは「FileSystemObject (FSO)」という、Windowsのファイル操作を司る強力な助っ人を呼び出す必要があります。
「ファイルを数える」「ファイル名を取得する」といった操作は、VBA標準の`Dir`関数でも可能ですが、エンジニアとして長く活躍したいなら、最初からFSOを使いこなすことを強くお勧めします。理由は、フォルダの有無の確認や、複雑なファイル属性の操作に圧倒的に強いからです。
—
2. 下準備：参照設定を忘れずに
コードを書く前に、VBAエディタ（Alt + F11）で一つだけ設定が必要です。これを行わないと、私の教える「最強のFSO」は動きません。
1. VBA画面のメニュー[ツール] → [参照設定]をクリック。
2. 「Microsoft Scripting Runtime」にチェックを入れてOKを押す。
これが、VBAに「ファイル操作の専門知識」をインストールする作業だと思ってください。
—
3. 【実践】全ファイル一括添付メール作成コード
まずは、そのままコピーして使える完成形のコードを紹介します。解説は後ほど詳しく行いますね。
Sub CreateMailWithAllAttachments()
‘ — オブジェクトの宣言 —
Dim outlookApp As Outlook.Application
Dim mailItem As Outlook.MailItem
Dim fso As Scripting.FileSystemObject
Dim targetFolder As Scripting.Folder
Dim fileItem As Scripting.File
‘ — 設定エリア —
Dim folderPath As String
‘ ここに添付ファイルが入っているフォルダのパスを入力してください
folderPath = “C:\Users\YourName\Desktop\SendFiles\”
‘ — 処理開始 —
Set outlookApp = New Outlook.Application
Set fso = New Scripting.FileSystemObject
‘ フォルダが存在するかチェック（プロの作法です）
If Not fso.FolderExists(folderPath) Then
MsgBox “指定されたフォルダが見つかりません: ” & folderPath, vbCritical
Exit Sub
End If
‘ メールアイテムを新規作成
Set mailItem = outlookApp.CreateItem(olMailItem)
On Error GoTo ErrorHandler ‘ 万が一のエラーに備える
With mailItem
.Subject = “【自動送信】本日の報告資料”
.Body = “関係者各位” & vbCrLf & vbCrLf & _
“お疲れ様です。指定フォルダ内のファイルを全件添付いたしました。” & vbCrLf & _
“ご確認のほど、よろしくお願いいたします。”
.To = “example@test.com”
.CC = “manager@test.com”
‘ FSOを使ってフォルダ内の全ファイルをループ処理
Set targetFolder = fso.GetFolder(folderPath)
For Each fileItem In targetFolder.Files
‘ Attachments.Add メソッドでファイルを1つずつ追加
‘ fileItem.Path はファイルのフルパス（住所）を指します
.Attachments.Add fileItem.Path
Next fileItem
‘ 最後にメールを表示（いきなりSendせず、まずはDisplayで確認するのが初心者の鉄則）
.Display
End With
‘ — 後片付け（メモリの解放） —
Set mailItem = Nothing
Set fso = Nothing
Set outlookApp = Nothing
MsgBox “メールの作成が完了しました！”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbExclamation
End Sub
—
4. プロが教える「ここがポイント！」
このコードの中には、初心者が中級者へステップアップするためのエッセンスが詰まっています。
① MailItem.Attachments.Add の仕組み
メールにファイルを付ける際、VBAは「そのファイルがどこにあるか（フルパス）」を知りたがります。
`targetFolder.Files` というコレクション（集まり）から、`For Each`文で1つずつ`fileItem`を取り出し、その`Path`（住所）を`Add`メソッドに渡しています。
② なぜ `.Display` なのか？
いきなり `.Send` と書けば送信まで自動化できますが、最初は絶対に `.Display` にしてください。
万が一、間違えて巨大なファイルや機密ファイルを添付してしまったとき、送信前に止めることができる「最後の砦」だからです。慣れてきても、この確認工程を大切にするのが一流のエンジニアです。
③ オブジェクトの解放 (`Set … = Nothing`)
コードの最後にあるこの処理。一見地味ですが、非常に重要です。
Outlook VBAは、処理が終わってもメモリ上に「残像」が残りやすく、それが原因でOutlookが重くなったり、2回目以降の実行でエラーが出たりします。「使った道具は綺麗に片付ける」――これが業務効率化の基本です。
—
5. 陥りやすいエラーと対策
1. 「ユーザー定義型が定義されていません」
- 原因：手順2の「参照設定（Microsoft Scripting Runtime）」を忘れています。
2. 「パスが見つかりません」
- 原因：`folderPath` の最後に `\`（バックスラッシュ）が抜けているか、パス自体が間違っています。
3. ファイルが使用中で添付できない
- 対策：添付したいExcelやPDFが開いたままだとエラーになることがあります。ファイルを閉じてから実行しましょう。
—
終わりに
いかがでしたか？
特定のフォルダにファイルを放り込み、ボタンをポチッと押すだけで、完璧に整えられたメールが立ち上がる。この快感を一度味わえば、もう手作業には戻れないはずです。
「次はこの宛先をExcelから読み込ませてみたいな」
「ファイル名に『重要』と入っているものだけを添付したいな」
そんな欲求が出てきたら、君はもう立派な自動化エンジニアの卵です。
一つ一つのコードの意味を噛み締めながら、ぜひ自分色にカスタマイズしてみてください。
君の業務が劇的にスマートになることを、心から応援していますよ。
また次のレッスンでお会いしましょう！
