excel - 遅延バインディングを使用してイベントをサブスクライブする

Question

myOlApp が事前バインディングを使用する「クラス モジュール」で次を使用して、Outlook イベントをサブスクライブできます。

'**Class Module - clsOutlookHandler **
Public WithEvents myOlApp As Outlook.Application

Private Sub Class_Initialize()
    On Error Resume Next
    Set myOlApp = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then
        Set myOlApp = CreateObject("Outlook.Application")
        Err.Clear
    End If
    On Error GoTo 0
End Sub

これを機能させるには、Microsoft Outlook XX.X オブジェクト ライブラリの参照がチェックされていることを確認する必要があります。

遅延バインディングを使用して Outlook (または任意のアプリケーション) のイベントをサブスクライブすることはできますか?

私は次のことがうまくいかないことを知っています。VBAで回避策はありますか？

Public WithEvents myOlApp As Object