プロジェクトマネジメントの聖杯：OutlookとProjectをVBAで同期させ「見えない損失」を可視化する
こんにちは。現場で泥臭い自動化を積み重ね、プロジェクトの「死角」を消し去ることに情熱を燃やすエンジニアです。
皆さんは、プロジェクトの進捗管理をしていてこんな経験はありませんか？
「担当者が休暇中であることを考慮しておらず、タスクが止まってしまった」「リソースの稼働率を計算していたのに、実は休みが反映されていなくて納期がズレた」。
これらは「Outlookの予定表」と「Projectのリソースカレンダー」が分断されていることによる、プロジェクトマネジメントの典型的な悲劇です。
今日は、この「見えない損失」をVBAで根絶する、実戦的な技術を伝授します。「マクロの記録」から一歩踏み出し、Projectの深淵に触れてみましょう。
—
1. なぜ「同期」が必要なのか？
Projectにおける「リソースカレンダー」は、その人の稼働の心臓部です。ここを適切に管理しないと、Projectは「その人はいつでも働ける」と誤認し、非現実的なスケジュールを算出します。
今回目指すのは、「Outlookの特定の予定（例：『休暇』という件名）」を読み取り、対応するリソースの「例外的な休日」としてProjectに反映させるという仕組みです。
—
2. 実装の設計図
この自動化は、以下の3ステップで行います。
1. Outlook APIへの接続: Outlookの予定表からデータを引き抜く。
2. Projectリソースの特定: Outlookのユーザー名とProjectのリソース名を照合する。
3. カレンダーの書き換え: `Resource.Calendar.Exceptions` オブジェクトを操作する。
注意：参照設定を忘れずに
VBAエディタ（Alt + F11）の「ツール」→「参照設定」から以下にチェックを入れてください。
- Microsoft Outlook 16.0 Object Library
—
3. 実践コード：OutlookからProjectへ
このコードは、指定した期間の「休暇」予定を拾い上げ、Projectのリソースカレンダーに反映させる雛形です。
Sub SyncOutlookVacationToProject()
‘ Outlook用オブジェクト
Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olAppt As Outlook.AppointmentItem
‘ Project用オブジェクト
Dim res As Resource
Dim ex As Exception
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace(“MAPI”)
Set olFolder = olNs.GetDefaultFolder(olFolderCalendar)
Set olItems = olFolder.Items
‘ 1. 期間内の予定をフィルタリング (例: 今月分)
Dim filter As String
filter = “[Start] >= ‘2023/10/01’ AND [End] <= '2023/10/31'"
Set olItems = olItems.Restrict(filter)
' 2. 予定をループ処理
For Each olAppt In olItems
If InStr(olAppt.Subject, "休暇") > 0 Then
‘ プロジェクト内のリソースを探す（名前が一致するもの）
For Each res In ActiveProject.Resources
If InStr(olAppt.Organizer, res.Name) > 0 Then
‘ 3. リソースカレンダーに例外（休日）を追加
‘ ここが重要なポイント：既存の例外と重複しないよう注意が必要
Set ex = res.Calendar.Exceptions.Add(Type:=pjDaily, _
Start:=olAppt.Start, _
Finish:=olAppt.End)
ex.Name = “Outlook連携:休暇”
Debug.Print res.Name & ” の休暇を設定しました: ” & olAppt.Start
End If
Next res
End If
Next olAppt
MsgBox “同期完了！リソースの空き時間が最適化されました。”
End Sub
—
4. 伝説のエンジニアからの「極限の知見」
このコードを書く上で、初学者が陥りやすい落とし穴を3つだけ共有します。
① 「例外の重複」という罠
`res.Calendar.Exceptions.Add` を不用意に繰り返すと、同じ日に複数の例外が重なり、Projectが混乱します。実運用では、`res.Calendar.Exceptions` の中身をループして、「既に同じ日付の例外が存在しないか」を確認するロジックを前段に入れるのがプロの作法です。
② ユーザー名の不一致
Outlookの「予定者名」とProjectの「リソース名」が完全一致することは稀です。名簿（マッピングテーブル）をExcel等で管理し、それを参照してリソースを特定する「辞書オブジェクト（Scripting.Dictionary）」の活用をお勧めします。
③ 稼働率再計算のトリガー
VBAでカレンダーを書き換えても、Projectのスケジュールが即座に再計算されないことがあります。必要に応じて `Application.CalculateAll` を最後に実行し、プロジェクト全体に同期を強制させてください。
—
最後に：自動化は「対話」である
Project VBAは、単に命令を下すだけのツールではありません。リソースという「生身の人間」の都合と、プロジェクトという「冷徹な納期」の架け橋となるものです。
今回ご紹介したコードは、あくまで「入り口」です。ここから、「半休の扱いをどうするか？」「祝日と重なった場合はどうするか？」といったビジネスルールを肉付けしていくことで、あなただけの強力な管理システムが出来上がります。
まずはこのコードを動かし、自分のProjectカレンダーに休暇が刻まれる瞬間を体感してください。その「一歩」が、あなたのプロジェクトを確実に強くします。
応援していますよ。迷ったら、またいつでも聞いてくださいね。
