(Outlook) 的 Application.AdvancedSearchComplete 事件

發生于 AdvancedSearch 方法完成時。

語法

運算式。AdvancedSearchComplete (SearchObject)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
SearchObject	必要	搜尋	AdvancedSearch方法傳回的Search物件。

註解

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 支援與意見反應。