通过

Application.AdvancedSearchComplete 事件 (Outlook)

  • 项目

在 AdvancedSearch 方法完成时发生。

语法

表达式。AdvancedSearchComplete (SearchObject)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
SearchObject 必需 Search AdvancedSearch 方法返回的 搜索 对象。

备注

AdvancedSearchComplete 事件用于返回由 AdvancedSearch 方法创建的对象。 以编程方式执行 AdvancedSearch 方法时，只将激发此事件。

示例

以下Visual Basic for Applications (VBA) 示例在收件箱中搜索主题等于“Test”的项目，并显示搜索返回的电子邮件项目的发件人姓名。 搜索完成后， AdvanceSearchComplete事件过程会将布尔型 blnSearchComp设置为 True 。 此布尔变量 TestAdvancedSearchComplete()过程用于确定搜索何时完成。 示例代码必须放在类模块中，如 ThisOutlookSession。 TestAdvancedSearchComplete()必须先调用过程，然后 Microsoft Outlook 才能调用事件过程。

Public blnSearchComp As Boolean 

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired." 
 
 blnSearchComp = True 
 
End Sub 
 
Sub TestAdvancedSearchComplete() 
 
 Dim sch As Outlook.Search 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS As String = "Inbox" 
 
 Set sch = Application.AdvancedSearch(strS, strF) 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = sch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。