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

Свойство Search.Results (Outlook)

  • Статья

Возвращает коллекцию Результатов , указывающую результаты поиска. Только для чтения.

Синтаксис

выражение. Results

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

Пример

В следующем примере Visual Basic для приложений (VBA) выполняется поиск в папке "Входящие" элементов с темой, равной "Test", и отображаются имена отправителей элементов электронной почты, возвращенных поиском. После AdvanceSearchComplete завершения поиска процедура события задает логическое blnSearchComp значение True . Эта логическая переменная используется процедурой TestAdvancedSearchComplete() для определения завершения поиска. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession, и TestAdvancedSearchComplete() процедура должна быть вызвана, прежде чем процедура события может быть вызвана 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 и обратная связь.