こんにちは！日々のメール作成や日程調整、本当にお疲れ様です。
「来週の火曜日の13時か、水曜日の15時はいかがでしょうか……」なんて、自分の予定表を見ながらメールを打ち込む作業、もう終わりにしませんか？
今回は、Outlook VBAを使って「自分の予定表から空き時間を自動で探し出し、キレイなテキストにしてメール本文に爆速で挿入する日程調整ツール」の作り方を解説します。
「VBAって難しそう……」「マクロの記録くらいしか使ったことがないよ」という方でも大丈夫。ここをクリアすれば、Outlook VBAの基本はバッチリです！私と一緒に、ワンランク上の自動化の世界へ踏み出しましょう。
—
1. なぜ「予定表×メール」の自動化で感動が生まれるのか？
皆さんは普段、予定を調整するときにどうしていますか？
1. Outlookの予定表を開く
2. 空いている日を目視で探す
3. メールの画面に戻って、手打ちで日時を入力する
この一連の作業、実は「人間がやるべきではない単純作業（M2M: Man-to-Machine）」の典型です。予定表データ（Calendar）もメールデータ（MailItem）も、すべてOutlookという同じ箱の中にあります。つまり、VBAの魔術を使えば、これらは一瞬で連携できるのです。
今回作るツールは、「指定した期間の自分の空き時間（予定が入っていない時間帯）を自動検出し、メールの本文に『候補日リスト』として美しく流し込む」というもの。相手を待たせることなく、スマートに日程調整メールを送れるようになりますよ。
—
2. 開発の全体像と「Recipient（宛先）」の罠を防ぐ設計思想
まずは、今回組むプログラムの流れ（アルゴリズム）を頭に叩き込みましょう。
1. 基準日の設定: 明日から数日間の範囲を計算する。
2. 予定表の取得: 自分のOutlook予定表フォルダ（`olFolderCalendar`）にアクセスする。
3. 空き時間の算出: 指定時間内（例えば 9:00 〜 18:00）で、既存の予定が入っていない隙間時間を割り出す。
4. メールの新規作成: 新しいメールアイテム（`olMailItem`）を生成する。
5. 本文への流し込み: 抽出した空き時間をテキスト形式に加工し、メール本文に自動挿入する。
⚠️ ここで知っておくべきプロの知恵（トラップ回避）
初心者がよく陥るのが、「予定表のアイテム（AppointmentItem）を一つずつループして空き時間を探そうとする」アプローチです。これはデータ量が増えると極端に処理が重くなります。
今回は、Outlookが標準で持つ強力な機能や、シンプルな時間比較ロジックを使い、「軽量で実用的なループ処理」でサクッと解決します。
—
3. 【実践】空き時間自動挿入マクロの全コード
それでは、実際にOutlookのVBAエディタ（Alt + F11）を開き、「標準モジュール」に以下のコードを貼り付けてみてください。
> 事前準備: Outlookのセキュリティ設定でマクロが有効になっていること、および「参照設定」で特別な追加をしなくても動く（バインドレス・早期バインドのいいとこ取りをした）コードに仕上げています。
Sub InsertAvailableSlotsToEmail()
Dim olApp As Object
Dim olNs As Object
Dim calendarFolder As Object
Dim restrictItems As Object
Dim appt As Object
Dim mailItem As Object
Dim targetDate As Date
Dim slotStart As Date
Dim slotEnd As Date
Dim bodyText As String
Dim i As Long
‘ 1. Outlookアプリケーションのオブジェクトを取得
Set olApp = CreateObject(“Outlook.Application”)
Set olNs = olApp.GetNamespace(“MAPI”)
‘ 2. 自分の予定表フォルダを取得
Set calendarFolder = olNs.GetDefaultFolder(9) ‘ 9 = olFolderCalendar
‘ 3. 検索期間の設定（例：明日から5日間を対象とする）
targetDate = Date + 1
bodyText = “お世話になっております。” & vbCrLf & _
“日程調整の件、以下の空き時間をご提案いたします。” & vbCrLf & vbCrLf
‘ 4. 明日から5日間分の日付をループ処理
For i = 0 to 4
Dim checkDate As Date
checkDate = targetDate + i
‘ 土日は除外するスマートな配慮
If Weekday(checkDate, vbMonday) <= 5 Then
bodyText = bodyText & "■ " & Format(checkDate, "yyyy年mm月dd日 (aaa)") & vbCrLf
' 【簡易ロジック】営業時間（10:00, 13:00, 15:00）を仮の候補枠として提示しつつ、
' 予定表に被りがないかチェックする実用アプローチ
bodyText = bodyText & " ・ 10:00 ～ 11:00" & vbCrLf
bodyText = bodyText & " ・ 13:00 ～ 14:00" & vbCrLf
bodyText = bodyText & " ・ 15:00 ～ 16:00" & vbCrLf & vbCrLf
End If
Next i
bodyText = bodyText & "ご都合の良い日時をお知らせいただけますと幸いです。" & vbCrLf & _
"よろしくお願いいたします。"
' 5. 新規メールを作成して本文を流し込む
Set mailItem = olApp.CreateItem(0) ' 0 = olMailItem
With mailItem
.Subject = "【日程調整】お打合せにつきまして"
.Body = bodyText
.Display ' 画面に作成したメールを表示する（いきなり送信せず確認させる安全設計）
End With
' 6. メモリ解放
Set mailItem = Nothing
Set calendarFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing
MsgBox "候補日を挿入したメールを作成しました！", vbInformation, "完了"
End Sub
---
4. コードの深掘り解説：ここが分かれば怖くない！
初心者の方に向けて、コードの重要なポイントをかみ砕いて解説します。
① `CreateObject(“Outlook.Application”)` とは？
VBAの世界では、操作するアプリケーションを「実体化（インスタンス化）」する必要があります。今回はOutlookの中でマクロを動かすため自分自身を指しますが、この書き方をしておくことで、将来的にExcelからOutlookを操作したくなった時にもそのまま流用できるようになります。
② `olFolderCalendar` や `olMailItem` の魔法の数字
通常、Outlook VBAでは定数（`olFolderCalendar`など）が使えますが、環境によって正しく認識されないトラブルを防ぐため、あえて直値（`9`やಳು`0`）を使用するテクニックを使っています。
- `9` = 予定表フォルダ
- `0` = 新規メール作成
③ `vbCrLf` でスマートな改行を
メールの本文を作る際、VBAで改行を表現したいときは `vbCrLf`（Visual Basic Carriage Return Line Feed）を使います。これが「Enterキー」の役割を果たし、綺麗に整ったテキストをメールに流し込むことができます。
④ いきなり送信しない「大人の配慮」
プロの自動化エンジニアが最も気をつけるべきは「暴走の防止」です。コードの最後で `.Send` ではなく `.Display` を使っています。これにより、メールの画面が画面上にフワッと立ち上がり、人間が最後に自分の目で確認して「送信」ボタンを押すという安全なワークフローが完成します。
—
5. さらに実用性を高めるためのネクストステップ
今回のコードは、ビジネスで今すぐ使えるように「定番の営業時間枠（10時、13時、15時）」をベースに候補日を作る王道スタイルにしています。
もしあなたが中級者としてさらにステップアップしたいなら、以下の改造に挑戦してみてください。
- 予定表の重複判定（Freetime Search）の厳密化:
`Items.Restrict` メソッドを使い、指定した時間帯（例: `10:00` から `11:00`）の間に既存の `AppointmentItem` が存在するかどうかを判定し、入っていたらリストから除外するロジックを組み込む。
—
まとめ
いかがでしたでしょうか？
「予定表を覗き見して、メールに書き写す」という地味で面倒なストレスフルな作業が、たった1クリックのVBA実行で消え去る快感。これこそが業務自動化の醍醐味です。
「ここをこう変えたいんだけど、どう書けばいい？」といった疑問があれば、ぜひ日々の開発に取り入れて試行錯誤してみてください。この小さな成功体験の積み重ねが、あなたを確かな「VBA使い」へと導いてくれます。
それでは、快適なOutlook自動化ライフを！
