Событие Application.AdvancedSearchComplete (Outlook)

Статья
04/07/2023

Происходит по завершении выполнения метода AdvancedSearch .

Синтаксис

expression. AdvancedSearchComplete (SearchObject)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SearchObject	Обязательный	Поиск	Объект Search , возвращаемый методом AdvancedSearch .

Замечания

Событие AdvancedSearchComplete используется для возврата объекта, созданного методом AdvancedSearch . Это событие возникает только при программном выполнении метода AdvancedSearch .

Пример

В следующем примере Visual Basic для приложений (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 и обратная связь.

Поделиться через