我可以在 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