こんにちは！シニアアーキテクトの私です。
これまで数々のOutlook自動化案件をくぐり抜けてきた君なら、`MailItem`オブジェクトを使ったメールの作成や送信はもう朝飯前でしょう。`Display`メソッドで画面を表示し、`.Send`でサイレントに送信する……うん、美しいコードだ。
しかし、現場からはこんな無茶ぶりが飛んでくる。
「メール作成画面が開いたあと、ユーザーが特定のセキュリティ警告を確認してボタンを押すまでの間に、別の処理を割り込ませたい」
あるいは、「アドインや組織のポリシーによって強制的に表示されるダイアログボックスの『はい』を、VBAから自動でクリックさせたい」
……おや？ 標準のOutlookオブジェクトモデルには、画面上のポップアップダイアログを直接制御するメソッドなんて用意されていない。`MailItem`の仕事は画面を表示した時点で終わってしまうからだ。
ここで多くの開発者は絶望し、「人間がポチポチ手動で押すしかないですね」と諦めてしまう。しかし、私たちの辞書に「諦め」の二文字はない。今回は、Windowsの深淵なる機能「UI Automation (UIA)」をVBAから召喚し、Outlookの送信ダイアログの喉元に突きつける、最高にエキサイティングなハックを授けよう。
ここをクリアすれば、君はもう「ただのVBA使い」ではない。WindowsのGUIを意のままに操る、真の自動化エンジニアの扉を開くことになる。心してついてきたまえ！
—
なぜ標準のオブジェクトモデルではダメなのか？
Outlook VBAの基本は、`Application` や `MailItem` といったオブジェクトを操作することだ。例えば、メールを送るコードはこう書くよね。
Sub SendSimpleMail()
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = “target@example.com”
mail.Subject = “テストメール”
mail.Body = “こんにちは”
mail.Send ‘ 一発送信
End Sub
非常にシンプルで美しい。だが、この `.Send` や `.Display` の裏側で、組織のセキュリティアドインが割り込み、「外部宛てのメールですが本当に送信しますか？」といった独自の確認ダイアログ（MessageBoxや専用のウィンドウ）がポップアップしたらどうなるか？
VBAの実行はそこで完全にフリーズ（ブロック）する。ユーザーが「はい」ボタンを肉体労働でクリックするまで、コードは次の行に進めない。完全自動化の夢が、たった一つのポップアップによって打ち砕かれる瞬間だ。
この「プログラムから触れない邪魔な窓」をねじ伏せるために、Windows OSレベルでUI要素を検索・操作できる UI Automation API をVBAから直接叩く必要がある。
—
UI Automation (UIA) とは何か？
UI Automationは、アクセシビリティ技術（画面読み上げソフトなど）のためにMicrosoftが提供している強力なCOMインターフェースだ。
これを使うと、画面上に存在するすべてのウィンドウ、ボタン、テキストボックスを「ツリー構造」として走査し、プログラムから強制的に「クリック」させることができる。
しかし、ここで一つの壁にぶ当たる。「VBAから直接、高度なCOMインターフェース（ポインタやIUIAutomationのCOMオブジェクト）を扱うのは、構造上かなり面倒」なのだ。
そこで今回は、VBAからでもスッキリとUIAを扱えるように、Windows Script Host (WSH) や PowerShell、あるいはVBA単体で動かせるスマートなアプローチを取り入れよう。今回はVBAのLate Binding（遅延バインディング）の極みとして、VBAからVBScriptのエンジンを借りるか、あるいはUIAのCOMオブジェクトを直接生成するハックを使う。
……いや、もっと実用的なアプローチを教えよう。「SendKeys」を使う原始的な方法？ 駄目だ、あれはウィンドウのアクティブ状態に依存する不安定なバグの温床だ。 私たちはプロなのだから、ウィンドウの「名前」と「コントロール型」を正確に特定して狙い撃ちする。
—
実装編：VBAからダイアログを自動でハントするコード
以下のコードは、Outlookでメールを作成・表示（Display）した後に発生する特定のダイアログ、あるいはバックグラウンドで待ち受けて「特定のタイトルを持つウィンドウ」が現れた瞬間に、指定のボタン（例：「はい」や「OK」）を自動クリックする監視ルーチンのサンプルだ。
まずは標準モジュールに以下のコードを貼り付けてほしい。
‘ ==============================================================================
‘ 【上級者向け】UI Automationを用いたOutlookダイアログ自動操作ハック
‘ ==============================================================================
Option Explicit
‘ Windows APIの宣言（ウィンドウの検出とアクティブ化に使用）
If VBA7 Then
Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
Else
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
End If
Const WM_COMMAND = &H111
Const IDOK = 1
Const IDYES = 6
Sub CreateMailWithDialogHandler()
Dim objMail As MailItem
Set objMail = Application.CreateItem(olMailItem)
With objMail
.To = “secure-boss@example.com”
.Subject = “【要確認】自動送信テスト”
.Body = “UI Automationによる自動ハンドリングテストです。”
.Display ‘ あえて画面を表示させ、セキュリティダイアログを誘発する
End With
‘ — ここからがUIA思想を応用したバックグラウンド監視ハック —
‘ ダイアログが出現するのを最大10秒間（100ms × 100回）監視・迎撃する
Dim i As Long
Dim targetHwnd As LongPtr
Dim windowTitle As String
windowTitle = “Microsoft Outlook” ‘ 監視するダイアログのタイトル（環境に合わせて変更）
Debug.Print “ダイアログの監視を開始します…”
For i = 1 to 100
‘ ウィンドウのハンドルをキャッチ
targetHwnd = FindWindow(vbNullString, windowTitle)
If targetHwnd <> 0 Then
Debug.Print “ターゲットウィンドウを捕捉しました！ (Hwnd: ” & targetHwnd & “)”
‘ 方法A: API経由で「はい (IDYES)」または「OK (IDOK)」のシグナルを送り込む
‘ ※ダイアログの仕様によっては、UI Automationでボタン要素を直接Invokeする必要がある
SendMessage targetHwnd, WM_COMMAND, IDYES, 0
Debug.Print “自動クリックシグナルを送信しました。”
Exit For
End If
‘ 0.1秒待機（CPUを焼き尽くさないための配慮。これがプロの仕事）
Sleep 100
DoEvents
Next i
If targetHwnd = 0 Then
Debug.Print “タイムアウト: 該当するダイアログは検出されませんでした。”
End If
End Sub
—
コードの解説：なぜこの設計なのか？
1. `FindWindow` によるウィンドウの非同期スキャン
VBAはシングルスレッドで動作するため、ダイアログが出てフリーズした瞬間にコード自体が止まってしまう……と思われがちだが、「ダイアログが出る直前」あるいは「別プロセスからのアプローチ」、あるいは今回のように短時間のポーリングをループさせることで、画面の出現を待ち受けることができる。
2. `Sleep 100` と `DoEvents` の黄金律
ループ処理の中で `Sleep` を入れずに回すと、CPU使用率が100%に張り付いてPCが爆音を立て始める。さらに `DoEvents` を挟むことで、Outlook側のUIスレッドが固まるのを防ぎつつ、OSからのメッセージを適切に処理させることができる。
3. `SendMessage` によるダイアログの調教
UI AutomationのフルスクリプトをVBAの記述量だけで書くと数千行のCOMラッパーが必要になるが、標準的なWindowsダイアログ（MessageBox等）であれば、ウィンドウハンドル(`hwnd`)を掴んで `WM_COMMAND` メッセージを送りつけることで、ボタンをプログラムから直接押したことと同等の効果を得られる。これが極限まで無駄を削ぎ落とした実務的ハックだ。
—
陥りやすいエラーとトラブルシューティング
このレベルの自動化に挑むと、必ずいくつかの壁にぶつかる。先輩として、あらかじめ罠の場所を教えておこう。
- 罠1: ウィンドウタイトルが一致しない
- 原因: Outlookの言語設定やバージョン（Microsoft 365 / 2019 / 2021など）によって、ダイアログのタイトルバーの文字列が「Microsoft Outlook」だったり「セキュリティの警告」だったり微妙に異なる。
- 対策: まずは `Debug.Print` やSpy++等のツールを使って、正確なウィンドウタイトルを特定すること。
- 罠2: `FindWindow` が 0 を返し続ける
- 原因: ダイアログが「モーダルウィンドウ」としてOutlookのメインプロセスとは別のスレッド、あるいはUACの保護領域で立ち上がっている場合、通常のAPIでは捕捉できないことがある。
- 対策: その場合は、VBA単体ではなく、PowerShellスクリプトを `WScript.Shell` 経由でバックグラウンド非同期実行し、そちらにUIA（UIAutomation.AutomationElement）の捜索を委譲するのが現代の正しいアーキテクチャだ。
—
さらに先へ進む君へ：アーキテクトからのメッセージ
どうだろう？ 「VBAではここまでしかできない」という固定観念が、少し崩れたのではないか。
UI AutomationやWin32 APIの知識をVBAに掛け合わせることで、Outlookは単なる「メールクライアント」から「君の意のままに動く自動化の要塞」へと姿を変える。
もちろん、セキュリティポリシーが非常に厳しい企業環境では、このようなハックが検知されることもある。現場のルールとモラルを守った上で、「どうやったらこの壁を突破できるか」を技術的探求心を持って楽しんでほしい。
ここをクリアした君なら、もうどんなOutlookの自動化案件が来ても怖気づくことはないはずだ。
さあ、エディタを開き、自分の手でこのコードを走らせてみたまえ。素晴らしい成果を期待しているよ！
