こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、自分の手でOutlookの心を動かす（自動化する）コードを書く――今日はその最高にエキサイティングな扉を開く日です。
私たちが日々最も頭を悩ませる業務の一つが、「日程調整」ですよね。「来週の空いている時間は……」とカレンダーを目視で確認し、メールを行ったり来たりさせる作業。これを一瞬で終わらせるツールが作れたら、どれほど仕事がスマートになるでしょうか。
今回は、Outlookの予定表（CalendarFolder）から「空き時間」を自動で読み取り、美しく整えてメールの本文に流し込む「日程調整メール自動作成ツール」の作り方を、プロの知見を交えて徹底解説します。
ここをクリアすれば、あなたも立派なOutlook VBAの使い手です。さあ、一緒に極上のコードを書きに行きましょう！
—
1. 予定表をハックする！知っておくべき基本の考え方
まず、頭に入れておくべき大前提があります。Outlook VBAにおいて、「メール（MailItem）」と「予定（AppointmentItem）」は全く別の世界に住んでいます。
日程調整メールを作るということは、この2つの世界を橋渡しする作業です。
1. 予定表（Calendar）のフォルダにアクセスし、指定した期間の予定をごっそり取得する。
2. 詰まっている予定の隙間（空き時間）を計算で導き出す。
3. 新しいメール（MailItem）を作成し、空き時間テキストを本文に流し込む。
これらを流れるようなコードで表現していきます。
—
2. 【実戦】日程調整メール自動作成マクロの全コード
以下のコードを、OutlookのVBAエディタ（`Alt + F11` で起動し、`挿入` ＞ `標準モジュール`）にそのまま貼り付けてみてください。
プロのエンジニアとして、実務でエラーが出ないよう「実用的なコメント」と「堅牢なエラーハンドリング」を仕込んであります。
Option Explicit
‘ =====================================================================
‘ 担当者：チーフアーキテクト
‘ 概要：指定した期間の予定表から空き時間を算出し、新規メールの本文に挿入する
‘ =====================================================================
Sub CreateScheduleProposalMail()
On Error GoTo ErrorHandler
Dim olNs As NameSpace
Dim calFolder As MAPIFolder
Dim restrictedItems As Items
Dim appt As AppointmentItem
‘ 検索期間の設定（例：明日から5日間）
Dim startDate As Date
Dim endDate As Date
startDate = Date + 1 ‘ 明日
endDate = Date + 5 ‘ 5日後
‘ 1. Outlookの名前空間を取得し、デフォルトの予定表フォルダを指定
Set olNs = Application.GetNamespace(“MAPI”)
Set calFolder = olNs.GetDefaultFolder(olFolderCalendar)
‘ 2. パフォーマンス最適化：対象期間の予定だけをフィルタリング（Jetクエリ）
Dim filterStr As String
filterStr = “[Start] >= ‘” & startDate & ” 00:00’ AND [End] <= '" & endDate & " 23:59'"
Set restrictedItems = calFolder.Items.Restrict(filterStr)
restrictedItems.Sort "[Start]"
' 3. 空き時間リストを作成するための文字列ビルダー（簡易的）
Dim scheduleText As String
scheduleText = "お世話になっております。" & vbCrLf & _
"日程調整の件、以下の候補日をご提案いたします。" & vbCrLf & vbCrLf
Dim currentDate As Date
Dim currentSlotStart As Date
Dim currentSlotEnd As Date
' 営業時間の設定（例：9:00 ～ 18:00）
Dim workStartHour As Integer: workStartHour = 9
Dim workEndHour As Integer: workEndHour = 18
' 日付ごとにループを回して空き時間を抽出（シンプル化のため簡易ロジック）
Dim d As Date
For d = startDate To endDate
' 土日はスキップ
If Weekday(d, vbMonday) <= 5 Then
scheduleText = scheduleText & "【" & Format(d, "yyyy年mm月dd日(aaa)") & "】" & vbCrLf
' その日の始業時間から終業時間までのダミー空き枠を提案する例
' ※本格的なアルゴリズムでは既存予定のEndと次のStartの差分を取ります
scheduleText = scheduleText & "・" & workStartHour & ":00 ～ " & (workStartHour + 2) & ":00" & vbCrLf
scheduleText = scheduleText & "・" & (workEndHour - 3) & ":00 ～ " & workEndHour & ":00" & vbCrLf & vbCrLf
End If
Next d
scheduleText = scheduleText & "ご都合の良い時間帯をお知らせください。" & vbCrLf
' 4. 新規メールを作成し、本文を流し込む
Dim mailItem As MailItem
Set mailItem = Application.CreateItem(olMailItem)
With mailItem
.Subject = "【日程調整】お打ち合わせ候補日について"
.Body = scheduleText
' .To = "partner@example.com" ' 必要に応じて宛先を設定
.Display ' 画面に表示してユーザーの最終確認を促す
End With
' クリーンアップ
Set olNs = Nothing
Set calFolder = Nothing
Set restrictedItems = Nothing
Set mailItem = Nothing
Exit Sub
ErrorHandler:
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Sub
---
3. コードの重要ポイントを噛み砕く
初心者のうちは、「なんだこの呪文書は……」と思うかもしれませんが、ポイントを押さえれば怖くありません。
① `Restrict` メソッドによる爆速化
予定表には何百、何千という過去・未来の予定が詰まっています。それを一つずつ `For Each` で回していたら、Outlookがフリーズしかねません。
そこで登場するのが `Restrict` メソッドです。「指定した期間（今回は明日から5日間）の予定だけ抜き出して！」とOutlookにお願いすることで、メモリの消費を抑え、処理速度を劇的に向上させています。これがプロの技です。
② `vbCrLf` でスマートな改行
VBAのコード内で改行を入れたいときは、`vbCrLf`（Visual Basic Carriage Return Line Feed）を使います。メールの本文はただの文字列。人間がEnterキーを押す代わりに、コードで改行を挟み込んで綺麗なフォーマットを作っているわけです。
③ `.Display` で「送信前確認」の余裕を持たせる
自動化ツールで最もやってはいけないのが、「勝手にメールが送信されてしまうこと」です。
今回のコードでは `.Send` ではなく `.Display` を使っています。これにより、作成されたメールが画面にポンと立ち上がり、人間が最後に「よし、送信！」と確認できるようになっています。この「ヒトと機械の協調」が実務では極めて重要です。
—
4. 陥りやすい罠とエラー対策
現場でこのコードを試すとき、初心者がよくハマるポイントがいくつかあります。
- 予定表の言語設定・表示形式エラー
Outlookの予定表で「終日予定」が入っていると、時間の計算ロジック（`[Start]` や `[End]`）で型ミスマッチエラーが起きることがあります。実務で本格的な空き時間計算（既存の予定の隙間を隙間なく埋めるロジック）を組むときは、予定のアイテムが「終日（AllDayEvent = True）」かどうかを `If` 文で除外する優しさを忘れないでください。
- セキュリティ警告
VBAからOutlookのアイテムを操作する際、まれに「プログラムからメールアドレス帳にアクセスしようとしています」というセキュリティ警告が出る場合があります。これはOutlookのセキュリティ設定やウイルス対策ソフトの影響です。社内PCであれば、トラストセンターの設定を確認しておきましょう。
—
5. おわりに：ここから先はあなた次第
お疲れ様でした！ここまで理解できれば、Outlook VBAの基本、そして「フォルダの操作」と「メールの生成」という中核の仕組みは完全にあなたのものです。
今回は「固定の候補枠を提示するサンプル」でしたが、ここからさらに進化させて、「実際の予定の終了時間と次の予定の開始時間を計算して、本当に空いている30分枠を自動抽出する」ようなロジックにアップデートできれば、社内で称賛されること間違いなしです。
「ここをこう変えたらどうなるんだろう？」という好奇心を大切に、ぜひご自身の業務に合わせてカスタマイズしてみてください。あなたの業務自動化の旅を、これからも応援しています！
