VBA 后未触发高级搜索完成事件

Question

如标题所示，我无法触发高级搜索完成事件。我在运行 VBA 到 Excel 2013 年。我在工作表 1 中有一个子运行，它创建一个测试对象，然后运行高级搜索。这一切都工作正常，搜索对象有 return 个结果。但是，高级搜索完成事件永远不会触发。有什么想法吗？

谢谢！

主要代码：

Sub testing()

Dim test As Class1
Set test = New Class1

Call test.TestAdvancedSearchComplete

End Sub

Class 1:

Dim myOlApp As New Outlook.Application
Public blnSearchComp As Boolean
Dim sch As Outlook.search
Dim rsts As Outlook.Results



Private Sub myOlApp_AdvancedSearchComplete(ByVal SearchObject As search)
    MsgBox "The AdvancedSearchComplete Event fired."
    blnSearchComp = True
End Sub



Sub TestAdvancedSearchComplete()
Dim i As Integer

blnSearchComp = False
Const strF As String = "urn:schemas:mailheader:subject = 'Test'"
Const strS As String = "Inbox"

Set sch = myOlApp.AdvancedSearch(strS, strF, False, “Test”)

While blnSearchComp = False
    DoEvents
Wend

Set rsts = sch.Results
For i = 1 To rsts.Count
    Debug.Print rsts.Item(i).SenderName
Next
End Sub

Answer 1

AdvancedSearchComplete 事件 有一个特殊的过程名称，编译器需要查看该名称以便将您的代码与事件联系起来。将过程名称更改为：

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)

Answer 2

要允许引发事件，您需要使用 WithEvents

声明您的对象

Dim WithEvents myOlApp As New Outlook.Application

VBA 后未触发高级搜索完成事件

Advanced search complete event not firing in VBA

vba

excel

events

advanced-search