こんにちは！エンジニアリングの世界へようこそ。
今日は、多くのプロジェクトマネージャーが頭を悩ませる「リソースの休暇管理」を、OutlookとMicrosoft Projectの連携（VBA）によって完全に自動化する極意をお伝えします。
「マクロの記録」ボタンを押すだけの世界から一歩進み、外部アプリケーション（Outlook）の息吹を感じながらProjectの心を動かす――。ここをクリアすれば、あなたのVBAスキルは間違いなく中級者の域に達します。
優しく、そして本質的なアプローチで一緒に紐解いていきましょう。
—
なぜ、OutlookとProjectの連携が必要なのか？
プロジェクト管理で最も恐ろしいもの、それは「リソースの隠れ不在」です。「あいつ、今週ずっと有給だったの!?」というスケジュール遅延の悲劇は、たいていOutlookの予定表とProjectのカレンダーが同期されていないことから起こります。
しかし、人の手でOutlookの予定を見ながら、Projectのリソース稼働カレンダーに一筆書きで例外日（Exception）を登録していく作業は、苦行でしかありません。
これをVBAの力で一網打尽にします。
今回のゴールは、「Outlookの予定表から『休暇』や『有給』というタイトルの予定を自動で拾い上げ、Microsoft Projectのリソースカレンダーに例外休日としてブチ込む」という夢のような自動化ツールの完成です。
—
押さえておくべき3つの壁（Project VBAの特殊性）
Excel VBAと違い、Project VBAには独特の「クセ」があります。ここを理解していないと、「オブジェクトが見つかりません」というエラーの海に溺れることになります。
1. ActiveCellの幻想を捨てよ
Excelのように「今選んでいるセル」を操作する発想は捨ててください。Projectは「タスク（Task）」「リソース（Resource）」「カレンダー（Calendar）」という厳格なオブジェクト階層を持っています。
2. 参照設定の魔法
Outlookを操作するためには、VBAの裏側で「Outlookを動かすための部品（ライブラリ）」と握手をする必要があります。
3. カレンダーのスコープ
Projectのカレンダーには「基盤カレンダー（Base Calendar）」と、個人の「リソースカレンダー（Resource Calendar）」があります。今回は個人の例外登録なので、リソースに紐づくカレンダーを直撃します。
—
実装のステップ：事前準備（参照設定）
コードを書く前に、VBAエディタ（`Alt + F11`）で魔法の呪文をかけます。
1. VBAエディタのメニューから [ツール] ＞ [参照設定] を開く。
2. 「Microsoft Outlook 16.0 Object Library」（数字はExcel/Officeのバージョンによって異なります）にチェックを入れる。
これを行うことで、`Dim olApp As Outlook.Application` のようなリッチな記述がノーエラーで通るようになります。
—
完全版：Outlook×Project 連携自動化コード
さあ、現場でそのままコピペして使える実用コードを公開します。
プロジェクトファイルを開いた状態で、標準モジュールに貼り付けて実行してください。
‘ ==============================================================================
‘ テーマ：Outlookの休暇予定をMicrosoft Projectのリソースカレンダーへ自動反映
‘ 執筆者：チーフアーキテクトからの伝言
‘ ==============================================================================
Sub SyncOutlookVacationsToProject()
Dim olApp As Object
Dim olNs As Object
Dim olFolder As Object
Dim olItem As Object
Dim olAppointments As Object
Dim res As Resource
Dim cal As Calendar
Dim targetResourceName As String
Dim foundMatch As Boolean
‘ — 1. 連携対象とするリソース名の指定（今回は例として「山田 太郎」） —
targetResourceName = “山田 太郎”
‘ — 2. 該当するリソースがProject内に存在するかチェック —
foundMatch = False
For Each res In ActiveProject.Resources
If Not res Is Nothing Then
If res.Name = targetResourceName Then
Set cal = res.Calendar
foundMatch = True
Exit For
End If
End If
Next res
If Not foundMatch {
MsgBox “指定されたリソース「” & targetResourceName & “」がプロジェクトに見つかりません。”, vbCritical, “エラー”
Exit Sub
End If
‘ — 3. Outlookの予定表（カレンダー）に接続 —
On Error Resume Next
Set olApp = CreateObject(“Outlook.Application”)
Set olNs = olApp.GetNamespace(“MAPI”)
‘ 自分の予定表フォルダ（olFolderCalendar = 9）を取得
Set olFolder = olNs.GetDefaultFolder(9)
On Error GoTo 0
If olFolder Is Nothing {
MsgBox “Outlookの予定表にアクセスできませんでした。Outlookが起動しているか確認してください。”, vbCritical, “連携エラー”
Exit Sub
End If
‘ — 4. 予定の抽出とカレンダー例外への登録 —
Set olAppointments = olFolder.Items
olAppointments.IncludeRecurrences = True ‘ 繰り返し予定も展開する
olAppointments.Sort “[Start]”
Dim countRegistered As Long
countRegistered = 0
For Each olItem In olAppointments
‘ 予定の件名に「休暇」または「有給」が含まれているものをターゲットにする
If InStr(1, olItem.Subject, “休暇”, vbTextCompare) > 0 Or _
InStr(1, olItem.Subject, “有給”, vbTextCompare) > 0 Then
‘ 過去の予定は無視し、今日以降の予定だけを同期対象にする
If olItem.Start >= Date Then
‘ Projectのリソースカレンダーに例外日として追加
‘ ※ すでに同日登録されている場合のエラーを回避するため On Error を使用
On Error Resume Next
cal.Exceptions.Add Type:=pjExceptionByName, _
Name:=olItem.Subject, _
Start:=olItem.Start, _
Finish:=olItem.End
If Err.Number = 0 Then
countRegistered = countRegistered + 1
End If
On Error GoTo 0
End If
End If
Next olItem
‘ — 5. 完了報告 —
MsgBox “Outlookとの同期が完了しました！” & vbCrLf & _
“新たに登録された休暇例外の数: ” & countRegistered & “件”, vbInformation, “同期成功”
‘ クリーンアップ
Set olItem = Nothing
Set olAppointments = Nothing
Set olFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub
—
コードの核心：ここがプロの技術
初心者から脱却するために、上記のコードで絶対に押さえておいてほしい「本質的なポイント」を2つ解説します。
① `cal.Exceptions.Add` の爆発力を知る
Projectのカレンダーオブジェクトには、`Exceptions`コレクションが存在します。ここに `Start` と `Finish` を渡すことで、プロジェクトの稼働日計算からその期間を綺麗に除外（非稼働日に）できます。
さらに `Type:=pjExceptionByName` を指定することで、何の理由で休んでいるのか（「夏季休暇」「私用休」など）をカレンダー上にラベルとして残せます。これが後々のスケジュール監査で非常に効いてきます。
② エラーハンドリングの妙（防衛的プログラミング）
Outlookの予定には「終日予定」や「数日間にわたる長期休暇」など、時間の持ち方が様々です。また、すでに登録済みの例外日を重複して登録しようとするとProjectは怒り出し（実行時エラー）、マクロが途中で止まってしまいます。
そのため、あえて `On Error Resume Next` を挟み、「すでに登録されている例外は無視して、新しいものだけを黙々と流し込む」というタフな構造にしています。これが実務で使えるVBAの条件です。
—
陥りやすい罠とトラブルシューティング
- Q: 「コンパイルエラー: ユーザー定義型は定義されていません」と言われます。
- A: 前述の「参照設定（Microsoft Outlook xx.0 Object Library）」のチェックが抜けています。ここを確認してください。
- Q: マクロを実行しても、Projectのカレンダーに反映されません。
- A: Outlook側のセキュリティソフトやプロファイル設定でアクセスがブロックされている可能性があります。また、コード内の `targetResourceName = “山田 太郎”` が、あなたのProjectの「リソース名」と一言一句一致しているか（全角半角、スペースの有無）を確認してください。
—
おわりに
ここをクリアすれば、あなたは単なる「マクロの記録びと」ではありません。「複数アプリの生態系をコードで調停するシステムエンジニア」です。
Outlookという個人のスケジュール管理の海から、Microsoft Projectという全体最適の宇宙へとデータをブリッジする。この快感を一度覚えると、手作業でのスケジュール調整には二度と戻れなくなります。
日々の煩雑なルーティンワークをコードで駆逐し、本当にクリエイティブなプロジェクトマネジメントに集中しましょう。応援しています！
