【上級者向け】Outlookの「UI Automation」を利用した、VBAから送信ダイアログを自動操作するハック
こんにちは。チーフアーキテクトの私だ。
日々、数千通のメール自動化や基幹システム連携のアーキテクチャ設計に向き合っていると、避けて通れない「Outlookの壁」にぶつかる。
業務システムから`MailItem`を生成し、`.Send`メソッドを叩く。ここまでは初級・中級のエンジニアでも書けるだろう。しかし、本番環境の現場ではこう要求される。
- 「アドインのセキュリティポリシーで、プログラムからの送信時に必ず警告ダイアログが出る。これを無人稼働させたい」
- 「組織の共通署名や機密保持フッターを、送信直前の最終DOM（HTML構造）上で確実にプレビュー・確定させてから飛ばしたい」
- 「特定の宛先が含まれている場合のみ、送信ボタンを押す直前にダイアログをインターセプトして二次確認したい」
標準のOutlookオブジェクトモデル（`MailItem.Send`）は、セキュリティ上の理由からブラックボックス化されており、ポップアップする警告ウィンドウや送信直前のダイアログを制御するフックを持たない。
ここで諦める素人は多い。だが、プロのエンジニアはOSのネイティブ層をハックする。
今回は、Windowsの「UI Automation API」をVBAから直接駆動し、Outlookの送信ダイアログをプログラムの意のままに操る極限のテクニックを授けよう。
—
1. なぜ「SendKeys」や標準機能ではダメなのか？
初学者が真っ先に思いつくのが、`SendKeys “{ENTER}”` や `AppActivate` による力技だ。
ハッキリ言おう。実務において`SendKeys`の使用は「バグの爆弾を抱えること」と同義である。
- フォーカス泥棒: バックグラウンドで別のウィンドウがアクティブになった瞬間、キーストロークは全く関係ないアプリに吸い込まれる。
- タイミングの非決定性: ダイアログの描画速度はマシンの負荷に依存するため、`Application.Wait`や`DoEvents`での待ち時間は常に破綻のリスクを孕む。
これに対し、UI Automation (UIA) は、OSレベルでコントロールのツリー構造（UI Tree）を走査し、明確な「名前」「クラス名」「プロセスID」を指定してプログラムから直接クリック等のアクションを強制実行する。非同期・堅牢・確実。これがプロの選択だ。
—
2. アーキテクチャの全体像
今回のハックのフローはこうだ。
1. VBAから通常通り`MailItem`を生成し、`Display`メソッドで画面上にインスペクター（ウィンドウ）を表示する。
2. ユーザー（またはVBA）が送信ボタンを押す。
3. セキュリティ警告やモーダルダイアログ、あるいは送信処理そのものが走る。
4. VBA（または並行稼働する監視ロジック）からUI Automationを呼び出し、該当ダイアログの「許可」「送信」ボタンをミリ秒単位で特定してクリックする。
今回は、VBAからCOMオブジェクトとして直接UIAを叩くのは記述量が膨大になるため、VBAからWindows標準のスクリプト、あるいはAPIをスマートにブリッジする堅牢な実装を提示する。
—
3. プロダクションコード：UI Automationを活用した送信自動化モジュール
以下のコードを、標準モジュールにそのまま貼り付けてみてほしい。
※実行には、Outlookが起動しており、対象のメールアイテムがインスペクター表示されている状態を想定している。
Option Explicit
‘ ==============================================================================
‘ módulo名: 頂点アーキテクト直伝_UIAtoOutlook制御
‘ 概要: UI Automationを活用し、Outlookの送信時セキュリティ警告やダイアログを制御する
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ ——————————————————————————
‘ @Target: アクティブなインスペクターの送信ボタンを押下し、
‘ 派生するセキュリティダイアログをUIAで自動承認するメインプロシージャ
‘ ——————————————————————————
Public Sub ExecuteSecureSendWithUIA()
Dim olApp As Object
Dim olInsp As Object
Dim olMail As Object
On Error GoTo ErrorHandler
Set olApp = Application
Set olInsp = olApp.ActiveInspector
If olInsp Is Nothing Then
MsgBox “アクティブなメールウィンドウがありません。”, vbCritical, “UIA制御エラー”
Exit Sub
End If
Set olMail = olInsp.CurrentItem
‘ 1. 宛先や件名の最終バリデーション（業務ロジック）
If Not ValidateBeforeSend(olMail) Then Exit Sub
‘ 2. メールの送信実行（ここで標準の警告ダイアログが挟まる可能性がある）
‘ ※注意: .Sendを使うとUIが即座に消えるため、Inspector自体のCommandBars経由、
‘ あるいはUI Automation経由で送信ボタンを押させるアプローチが最も確実。
‘ ここではインスペクター上の「送信」ボタン（RibbonのSendCommand）を
‘ UI Automation経由で確実に押下するスマートな手法をとる。
If ClickOutlookSendButton(olInsp) Then
Debug.Print “送信ボタンのUIA押下成功”
‘ 3. 送信時に発生する可能性のあるセキュリティダイアログを監視・自動処理
Call HandleSecurityDialogs
Else
‘ フォールバックとして通常のSend
olMail.Send
End If
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ 内部関数: バリデーション
‘ ——————————————————————————
Private Function ValidateBeforeSend(ByVal mail As Object) As Boolean
If Trim(mail.To) = “” Then
MsgBox “宛先が設定されていません。”, vbExclamation, “送信中止”
ValidateBeforeSend = False
Exit Function
End If
ValidateBeforeSend = True
End Function
‘ ——————————————————————————
‘ コアロジック: UI Automationを用いてOutlookのリボン/ウィンドウから「送信」ボタンを探して押す
‘ ——————————————————————————
Private Function ClickOutlookSendButton(ByVal insp As Object) As Boolean
Dim uiAutomation As Object
Dim rootElement As Object
Dim condition As Object
Dim sendButton As Object
On Error GoTo CleanUp
‘ UI AutomationのUIAutomationClient (UIAutomationCore.dll) を遅延バインディングで生成
‘ ※実行環境に依存するため、WSH(PowerShell)経由またはVBAネイティブAPIを使うのが安全だが、
‘ 今回はVBAから最も安定するPowerShell経由のUIAドライバ実行パターンを採用する。
ClickOutlookSendButton = InvokePowerShellUIA_Send(insp.Caption)
Exit Function
CleanUp:
ClickOutlookSendButton = False
End Function
‘ ——————————————————————————
‘ ブリッジ関数: PowerShellとUI Automationを組み合わせた堅牢なウィンドウ操作
‘ ——————————————————————————
Private Function InvokePowerShellUIA_Send(ByVal windowTitle As String) As Boolean
Dim wsh As Object
Dim psScript As String
Dim cmd As String
Dim exitCode As Long
Set wsh = CreateObject(“WScript.Shell”)
‘ PowerShellスクリプトの動的生成
‘ UI Automation (System.Windows.Automation) を用いて指定タイトルのウィンドウから
‘ 「送信」または「Send」というAutomationId/Nameを持つボタンを検索してInvokeする
psScript = “Add-Type -AssemblyName UIAutomationClient; ” & _
“$root = [System.Windows.Automation.AutomationElement]::RootElement; ” & _
“$condition = New-Object System.Windows.Automation.PropertyCondition([System.Windows.Automation.AutomationElement]::NameProperty, ‘送信’); ” & _
“$window = $root.FindFirst([System.Windows.Automation.TreeScope]::Children, (New-Object System.Windows.Automation.PropertyCondition([System.Windows.Automation.AutomationElement]::NameProperty, ‘” & windowTitle & “‘))); ” & _
“if ($window) { ” & _
” $btn = $window.FindFirst([System.Windows.Automation.TreeScope]::Descendants, $condition); ” & _
” if ($btn) { ” & _
” $pattern = $btn.GetCurrentPattern([System.Windows.Automation.InvokePattern]::Pattern); ” & _
” $pattern.Invoke(); ” & _
” exit 0; ” & _
” } ” & _
“} ” & _
“exit 1;”
cmd = “powershell -NoProfile -ExecutionPolicy Bypass -Command “”” & psScript & “”””
exitCode = wsh.Run(cmd, 0, True)
InvokePowerShellUIA_Send = (exitCode = 0)
End Function
‘ ——————————————————————————
‘ セキュリティダイアログ監視・自動承認ハンドラー
‘ ——————————————————————————
Private Sub HandleSecurityDialogs()
Dim wsh As Object
Dim psScript As String
Dim cmd As String
Set wsh = CreateObject(“WScript.Shell”)
‘ Outlookがプログラムから送信を試みた際の「プログラムからメール送信されようとしています」警告をハンドリング
psScript = “Add-Type -AssemblyName UIAutomationClient; ” & _
“$root = [System.Windows.Automation.AutomationElement]::RootElement; ” & _
“$cond = New-Object System.Windows.Automation.PropertyCondition([System.Windows.Automation.AutomationElement]::NameProperty, ‘Microsoft Outlook’); ” & _
“for ($i=0; $i -lt 10; $i++) { ” & _
” $dialog = $root.FindFirst([System.Windows.Automation.TreeScope]::Children, $cond); ” & _
” if ($dialog) { ” & _
” $yesBtn = $dialog.FindFirst([System.Windows.Automation.TreeScope]::Descendants, (New-Object System.Windows.Automation.PropertyCondition([System.Windows.Automation.AutomationElement]::NameProperty, ‘許可(&A)’))); ” & _
” if (-not $yesBtn) { $yesBtn = $dialog.FindFirst([System.Windows.Automation.TreeScope]::Descendants, (New-Object System.Windows.Automation.PropertyCondition([System.Windows.Automation.AutomationElement]::NameProperty, ‘はい(&Y)’))); } ” & _
” if ($yesBtn) { ” & _
” $pattern = $yesBtn.GetCurrentPattern([System.Windows.Automation.InvokePattern]::Pattern); ” & _
” $pattern.Invoke(); ” & _
” exit 0; ” & _
” } ” & _
” } ” & _
” Start-Sleep -Milliseconds 200; ” & _
“}” & _
“exit 1;”
cmd = “powershell -NoProfile -ExecutionPolicy Bypass -Command “”” & psScript & “”””
wsh.Run cmd, 0, True
End Sub
—
4. 実務での運用における注意点（アーキテクトからの忠告）
このコードをそのまま本番環境に投入する前に、以下の設計上のリスクを必ず踏まえておいてほしい。
① 実行権限とセキュリティポリシー
PowerShellをVBAからキックするため、組織のグループポリシー（GPO）でPowerShellの実行が完全に禁止されている環境では動作しない。その場合は、VBAネイティブのWindows API（`FindWindowEx` と `SendMessage`）によるダイアログ制御に切り替える必要がある（ただし、モダンなWPF/UIAベースのダイアログにはUIAの方が確実である）。
② ユーザーインターフェース言語（Lcid）の依存性
上記のPowerShellスクリプトは、ボタンの名前が日本語（`送信`, `許可(&A)`）であることを前提としている。多言語対応（英語環境など）が混在するグローバル企業等では、AutomationID（コントロール固有の識別子）や、ワイルドカードを用いた条件分岐に書き換えるアーキテクチャ設計が必須となる。
③ デバッグと例外処理
UI Automationは対象ウィンドウがフォーカスを失ったり、最小化されたりすると要素を見失う（`ElementNotAvailableException`）ことがある。必ずリトライ機構（上記スクリプト内の `for ($i=0; $i -lt 10; $i++)` のようなポーリング処理）を組み込み、無限ループに陥らないためのタイムアウト設計を徹底すること。
—
総括
オブジェクトモデルの限界を嘆くのは、今日で終わりにしよう。
プロの自動化エンジニアであれば、OSのネイティブAPIやUI Automationという強力な武器をVBAからブリッジし、どんな堅牢なセキュリティや制限をもスマートに突破するシステムを構築できなければならない。
この知見をあなたの現場の自動化パイプラインに組み込み、真の「完全無人化」を達成してほしい。健闘を祈る。
