Project VBAを掌握する極限の知見：Deadline一括監査とOutlook自動連携のアーキテクチャ
MS ProjectのVBA開発において、アマチュアとシニアエンジニアの決定的な違いは、「オブジェクトモデルのライフサイクルを支配しているか否か」にある。
特に`Task`オブジェクトの`Deadline`（期限）管理や、外部アプリケーションであるOutlookとのプロセス連携において、場当たり的なコードを書く者は、メモリリーク、COMコンポーネントの解放漏れ、そしてマルチインスタンス暴走という地雷原を歩むことになる。
今回は、実務の現場で即座に機能し、かつ大規模プロジェクト（数千タスク規模）の重い負荷に耐えうる「期限超過・切迫タスクの自動メール通知システム」の全貌を解説する。
—
1. アーキテクチャ設計の要諦
本システムの中核要件は以下の3点である。
1. 高速なオブジェクト走査: 巨大なWBS構造を持つProjectファイルにおいて、非効率なループは致命的なパフォーマンス低下を招く。
2. 堅牢なメモリ管理: MS ProjectのCOMオブジェクトとOutlookのCOMオブジェクトを同時に操作するため、適切なインスタンス破棄が不可欠である。
3. 安全なプロセス連携: Outlookが起動していない環境や、セキュリティポリシーが厳しいエンタープライズ環境への配慮。
オブジェクトモデルの罠
Project VBAにおける`Tasks`コレクションの走査は、`.Count`プロパティへの依存や不必要なプロパティアクセスによって劇的に遅延する。とりわけサマリータスクやマイルストーンを除外せず全件走査するような実装は論外だ。実務では「有効な実タスクのみ」をターゲットに絞り込む必要がある。
—
2. 実装コード：Task Deadline Auditor & Notifier
以下に、現場の即戦力となるプロダクションクオリティのコードを示す。エラーハンドリング、オブジェクトの明示的解放、そしてOutlook連携のベストプラクティスをすべて網羅している。
Option Explicit
‘ ==============================================================================
‘ 処理名: 期限切迫・超過タスクの自動検出とOutlookメール通知
‘ ターゲット: MS Project 2013 / 2016 / 2019 / 365
‘ アーキテクト特記事項: COMオブジェクトの確実な解放とスレッドセーフな実装
‘ ==============================================================================
Sub AuditAndNotifyTaskDeadlines()
‘ 宣言セクション（変数はスコープを最小限にし、メモリ肥大化を防ぐ）
Dim prjCurrent As Project
Dim tskCurrent As Task
Dim olApp As Object ‘ 早期バインディング（New Outlook等への移行を考慮し遅延バインディングを採用）
Dim olMail As Object
Dim lngWarningDays As Long
Dim dtTargetDate As Date
Dim lngOverdueCount As Long
Dim strBody As String
Dim isOutlookCreated As Boolean
‘ — 1. 定数・閾値の設定 —
lngWarningDays = 3 // 期限の何日前から警告対象とするか
dtTargetDate = Date + lngWarningDays
lngOverdueCount = 0
strBody = “以下のタスクにおいて、期限（Deadline）が超過しているか、または切迫しています。” & vbCrLf & vbCrLf
‘ アクティブプロジェクトの特定
On Error GoTo ErrorHandler
Set prjCurrent = ActiveProject
If prjCurrent.Tasks.Count = 0 Then
MsgBox “対象プロジェクトにタスクが存在しません。”, vbExclamation, “システム通知”
Exit Sub
End If
‘ — 2. タスクコレクションの高速走査 —
‘ サマリータスク、マイルストーン、完了済みタスクを除外し、実質的な稼働タスクのみを対象とする
For Each tskCurrent In prjCurrent.Tasks
If Not tskCurrent Is Nothing Then
‘ 削除済みタスクや空行の除外
If Not tskCurrent.Summary And tskCurrent.PercentComplete < 100 Then
' Deadlineプロパティが設定されているか確認 (NA値は除外)
If tskCurrent.Deadline <> “NA” Then
‘ 期限超過または指定日数以内に切迫している場合
If tskCurrent.Deadline <= dtTargetDate Then
lngOverdueCount = lngOverdueCount + 1
' メール本文の構築
strBody = strBody & "・タスク名: " & tskCurrent.Name & vbCrLf & _
" 担当者: " & IIf(tskCurIsAssigned(tskCurrent), tskCurrent.ResourceNames, "未割当") & vbCrLf & _
" 期限(Deadline): " & Format(tskCurrent.Deadline, "yyyy/mm/dd") & vbCrLf & _
" 進捗率: " & tskCurrent.PercentComplete & "%" & vbCrLf & _
"----------------------------------------" & vbCrLf
End If
End If
End If
End If
Next tskCurrent
' --- 3. アクション判定とOutlook連携 ---
If lngOverdueCount > 0 Then
‘ Outlookプロセスの安全な取得（起動していなければ新規作成）
On Error Resume Next
Set olApp = GetObject(, “Outlook.Application”)
If olApp Is Nothing Then
Set olApp = CreateObject(“Outlook.Application”)
isOutlookCreated = True
End If
On Error GoTo ErrorHandler
If olApp Is Nothing Then
Err.Raise vbObjectError + 1000, “AuditAndNotify”, “Outlookのインスタンスを生成できませんでした。”
End If
‘ メールアイテムの生成
Set olMail = olApp.CreateItem(0) ‘ olMailItem = 0
With olMail
.Subject = “【要対応】MS Project 期限切迫・超過タスク通知 (” & Format(Date, “yyyy/mm/dd”) & “)”
.Body = strBody
‘ 宛先は環境に応じて動的に変更、またはプロジェクトマネージャーのリストを指定
.To = “pm-office@example.com”
‘ 自動送信する場合は .Send、下書き保存する場合は .Display
.Display
End With
MsgBox “期限超過・切迫タスクが ” & lngOverdueCount & ” 件検出されました。Outlookを下書き表示しました。”, vbInformation, “監査完了”
Else
MsgBox “期限超過・切迫しているタスクはありませんでした。”, vbInformation, “監査完了”
End If
CleanUp:
‘ — 4. メモリとCOMオブジェクトの明示的解放 —
‘ VBAにおけるCOM参照の解放は、メモリリークおよびプロセス残留を防ぐための絶対的義務
Set olMail = Nothing
Set olApp = Nothing
Set tskCurrent = Nothing
Set prjCurrent = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ 補助関数: リソースが割り当てられているか判定
Private Function tskCurIsAssigned(ByVal tsk As Task) As Boolean
On Error Resume Next
If tsk.ResourceNames <> “” And tsk.ResourceNames <> “予約済み” Then
tskCurIsAssigned = True
Else
tskCurIsAssigned = False
End If
On Error GoTo 0
End Function
—
3. シニアエンジニアが押さえるべき実装の急所
上記のコードには、単なる「動くスクリプト」を超えた、エンタープライズ環境を生き抜くための設計思想が組み込まれている。
① 遅延バインディング（Late Binding）の採用
コード内では `CreateObject(“Outlook.Application”)` を採用している。これは、開発環境と実行環境のOfficeバージョン差異（32bit/64bitの混在や、Click-to-Run版とMSI版の差異）によるコンパイルエラーを完全に回避するための定石だ。早期バインディング（`Dim olApp As Outlook.Application`）は、バージョンアップのたびに参照設定が破損するリスクを孕んでおり、配布型ツールには向かない。
② COMオブジェクトの「無慈悲な」解放
VBAのガベージコレクションは頼りにならない。特にProjectとOutlookという重量級のCOMコンポーネントを跨ぐ処理では、`Set obj = Nothing` を怠ると、バックグラウンドで `OUTLOOK.EXE` や `WINPROJ.EXE` のプロセスがゾンビ化し、メモリを食い潰す。必ず `CleanUp` ラベルを設け、エラー発生時であっても確実に参照を切断する構造にしなければならない。
③ `.Display` と `.Send` の政治的判断
コード内ではあえて `.Display`（下書き表示）を採用している。完全自動化して `.Send` を叩くことは技術的には容易だが、誤送信や宛先ミスが発生した際のビジネスインパクトを考慮すると、「人間が最終確認するトリガー」を挟む半自動化（Human-in-the-loop）こそが、実務における真の最適解である。
—
4. ささらなる高みへ：Windows APIとの融合（発展系）
もし、このシステムをさらに高度化させ、「Windowsがロックされている状態や、深夜のバッチ処理として無人で実行し、ログをWindowsイベントビューアに記録する」必要があるならば、VBAの枠を超えたアプローチが必要となる。
- ウィンドウメッセージのフック: `FindWindow` および `SendMessage` APIを駆使し、Project起動時のダイアログポップアップ（リンクファイルの更新確認やセキュリティ警告）を強制的に沈黙させる。
- タスクスケジューラとの統合: Projectファイルをコマンドライン引数付きでサイレント起動し、本マクロを自動実行するVBScriptラッパーを外側に構築する。
VBAはレガシーな言語と揶揄されることもあるが、オブジェクトモデルの本質を理解したアーキテクトが書いたコードは、企業の基幹プロセスを裏から支える極めて強力なインフラとなる。甘えを排した堅牢なコードで、プロジェクトの遅延リスクを機械的にねじ伏せろ。
