【Project VBA】Deadline一括監視とOutlook自動通知：現場を救う堅牢なタスク管理自動化の極意
開発現場において、スケジュール管理の崩壊はプロジェクトの死を意味する。
Microsoft Project（以下、MS Project）を導入している現場なら誰もが知っている通り、タスクの「期限（Deadline）」管理は極めて重要だ。しかし、ガントチャートの森を毎日しらみつぶしにチェックして回るヒューマンリソースほど、無駄でバグの温床となるものはない。
「期限を過ぎているのに誰も気づいていない」
「進捗率が止まっているのに、次のマイルストーンが迫っている」
こうした現場のサイレントキラーを駆逐するため、今回はMS ProjectのVBAを用いて全タスクのDeadlineをスキャンし、期限超過（あるいは直近）のタスクを検知してOutlook経由で担当者に自動通知する仕組みを構築する。
ネット上のコピペコードをそのまま貼り付けて「動かない」「Outlookがフリーズした」と頭を抱えた経験はないだろうか？
オブジェクトのライフサイクルや、MS Project特有のマルチバリュードフィールドの罠を知り尽くしたチーフアーキテクトの視点から、実務の荒波に耐えうる堅牢なプロダクションコードを伝授しよう。
—
1. なぜ一般的なVBAコードは実務で破綻するのか？
多くの解説記事にあるVBAコードは、お遊戯会レベルのモックだ。実務の巨大なプロジェクトファイル（数千タスク、複数リソース割当）にそれを適用すると、以下の問題で必ず破綻する。
1. リソースアサインの複雑性（マルチリソース）
MS Projectでは、1つのタスクに複数のリソース（人）がアサインされることがある。「担当者」といっても誰にメールを送ればいいのか？ 主担当（ResourceNames）のパース処理を誤ると、メールが送信エラーになるか、無関係な人に飛ぶ。
2. Outlookオブジェクトのゾンビ化
`CreateObject(“Outlook.Application”)` を安易に呼び出し、セッションの解放（`Set olApp = Nothing`）を怠ると、裏でプロセスが残り続け、PCのメモリを食いつぶすか次回の起動でクラッシュする。
3. 不要なタスクの走査コスト
サマリータスク（親タスク）や完了済みタスク（% Complete = 100%）に対してまでDeadlineアラートを飛ばすのは、現場のメンバーに「スパムメール」を送るのと同じだ。ノイズを排除するフィルタリングロジックが不可欠となる。
これらを完全にクリアした、プロフェッショナルな設計を見ていこう。
—
2. アーキテクチャ設計と実装のポイント
今回作成するツールの全体像は以下の通り。
- 対象タスクの条件:
- 完了していない（`PercentComplete < 100`）
- サマリータスクではない（`Summary = False`）
- マイルストーンではない、または期限が設定されている
- Deadlineが設定されており、かつ本日から指定日以内、または超過している
- 通知フロー:
- 該当タスクを検知したら、アサインされているリソース（担当者）のメールアドレスを特定。
- Outlookを起動し、HTML形式でリッチなアラートメールを下書き作成（あるいは自動送信）。
—
3. 【プロダクションコード】Deadline一括監視・Outlook通知マクロ
以下のコードを、MS ProjectのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けてほしい。
実務ですぐに使えるよう、エラーハンドリングと詳細なコメントを網羅している。
Option Explicit
‘===============================================================================
‘ プロシージャ名: CheckTaskDeadlinesAndNotify
‘ 概要: アクティブプロジェクトのタスクDeadlineを走査し、期限超過・間近のタスクを
‘ 担当者へOutlook経由で通知する。
‘===============================================================================
Public Sub CheckTaskDeadlinesAndNotify()
‘ 早期リターン：アクティブプロジェクトの存在確認
If ActiveProject Is Nothing Then
MsgBox “有効なプロジェクトが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Dim t As Task
Dim olApp As Object
Dim olMail As Object
Dim resourceEmail As String
Dim alertDaysBefore As Long
Dim targetDate As Date
Dim warningCount As Long
‘ アラート対象とする期限までの日数（例: 本日を含めて3日以内を警告）
alertDaysBefore = 3
targetDate = DateAdd(“d”, alertDaysBefore, Date)
warningCount = 0
‘ Outlookオブジェクトの事前生成（遅延バインディング）
‘ プロセスリークを防ぐため、エラーハンドリングとセットで厳格に管理する
On Error Resume Next
Set olApp = CreateObject(“Outlook.Application”)
On Error GoTo 0
If olApp Is Nothing Then
MsgBox “Outlookの起動に失敗しました。Outlookがインストールされているか確認してください。”, vbCritical, “連携エラー”
Exit Sub
End If
‘ ステータスバーに進捗を表示
Application.StatusBar = “タスクのDeadlineをスキャン中…”
‘ プロジェクト内の全タスクを走査
For Each t In ActiveProject.Tasks
‘ 1. 無効なタスク（Nothing）のスキップ
If Not t Is Nothing Then
‘ 2. フィルタリング条件:
‘ – サマリータスク（親）ではない
‘ – 完了していない（% Complete < 100）
' - Deadlineが設定されている（NAではない）
If Not t.Summary And t.PercentComplete < 100 Then
If t.Deadline <> “NA” Then
‘ 3. 判定ロジック: 期限が「設定ターゲット日以前」または「すでに超過」しているか
If t.Deadline <= targetDate Then
' 4. 担当者（Resource Names）の取得
' ※ここでは簡易的にResourceNamesプロパティを使用。
' 本格的な運用ではAssignmentオブジェクトを走査してEmailアドレスを取得することを推奨。
resourceEmail = GetPrimaryResourceEmail(t)
If resourceEmail <> “” Then
‘ Outlookメールの作成
Set olMail = olApp.CreateItem(0) ‘ 0 = olMailItem
With olMail
.To = resourceEmail
.Subject = “【要対応】タスク期限アラート: ” & t.Name
.HTMLBody = “
“
” & resourceEmail & ” さん
” & _
“
以下のタスクの期限（Deadline）が迫っているか、または超過しています。
” & _
“
| 項目 | 詳細 |
|---|---|
| タスク名 | ” & t.Name & “ |
| 期限 (Deadline) | ” & Format(t.Deadline, “yyyy/mm/dd”) & “ |
| 現在の進捗率 | ” & t.PercentComplete & “% |
| 開始予定 | ” & Format(t.Start, “yyyy/mm/dd”) & “ |
| 終了予定 | ” & Format(t.Finish, “yyyy/mm/dd”) & “ |
” & _
“
速やかに進捗状況の更新またはスケジュール調整を行ってください。
” & _
“
※このメールはMicrosoft Projectからの自動送信です。
” & _
“”
‘ 【運用上の注意】
‘ 自動送信する場合は .Send を使用。
‘ ドラフト（下書き）として確認させたい場合は .Display を使用する。
.Display ‘ まずは安全のため下書き表示にする
End With
warningCount = warningCount + 1
Set olMail = Nothing
End If
End If
End If
End If
End If
Next t
‘ 後処理
Application.StatusBar = “”
Set olApp = Nothing
MsgBox warningCount & “件の期限アラートを検出しました。”, vbInformation, “処理完了”
End Sub
‘===============================================================================
‘ 関数名: GetPrimaryResourceEmail
‘ 概要: タスクに割り当てられたリソース名から、メールアドレスを解決するヘルパー関数
‘ ※エンタープライズ環境（Project Server / Online）やリソースプールに合わせ適宜改修要
‘===============================================================================
Private Function GetPrimaryResourceEmail(ByVal t As Task) As String
Dim assn As Assignment
Dim email As String
email = “”
‘ MS Projectではタスクに複数のリソースが絡むため、Assignmentsコレクションを走査する
For Each assn In t.Assignments
If Not assn.Resource Is Nothing Then
‘ リソースのEMailAddressプロパティを取得
‘ 注意: リソースシートにメールアドレスが登録されていることが前提
If assn.Resource.EmailAddress <> “” Then
email = assn.Resource.EmailAddress
Exit For ‘ 最初の有効なリソースを主担当とする
End If
End If
Next assn
‘ デバッグ用フォールバック（リソースにメールがない場合等のテスト用）
‘ 実運用では適切な例外処理やダミーアドレスへのフォールバックを実装すること
GetPrimaryResourceEmail = email
End Function
—
4. チーフアーキテクトが教える「現場でハマる罠」と対策
このコードを実務導入するにあたり、以下のポイントを押さえておかないと運用で痛い目をみる。
① リソースの「EmailAddress」プロパティの前提
`assn.Resource.EmailAddress` を取得している部分に注目してほしい。
MS Projectの「リソースシート」において、「電子メール アドレス」の列が空欄である場合、このコードはメールアドレスを取得できず、通知がスキップされる。
ツールを展開する前に、プロジェクトのリソースプール側でメンバーのメールアドレスが正しくマスタ登録されていることを必ず確認させよ。
② セキュリティと自動送信のジレンマ
コード内では安全のために `.Display`（下書き表示）を使用している。
もしこれを完全にバックグラウンドで自動送信（`.Send`）に書き換える場合、Outlookのセキュリティ警告ダイアログ（プログラムからメール送信しようとしています）が大量発生し、PCの操作がロックされる事態になりかねない。
完全自動化を狙う場合は、組織のセキュリティポリシーを確認の上、管理者権限やOutlookの信頼済みアドイン設定をクリアしておく必要がある。
③ メンテナンス性と拡張性
今回は標準モジュールに手続き型で記述したが、もし今後「TeamsへのWebhook連携」や「Excelレポート出力」といった要件が追加される場合を見据え、データ抽出ロジック（タスク走査）と通知ロジック（Outlook）をクラスモジュールに分離（レイヤード設計）しておくと、保守性が劇的に向上する。
—
5. まとめ
自動化の本質は、「人間がやるべきでない単調な監視作業をコードに代行させ、人間はクリティカルパスの調整やリスクヘッジに集中すること」にある。
今回紹介したDeadline一括監視の仕組みは、地味ながらプロジェクトの炎上を未然に防ぐ強力な防壁となる。
ぜひ自身のプロジェクトに組み込み、チームの生産性を次のステージへと引き上げてほしい。
