Объект поиска (Outlook)
Содержит сведения об отдельных поисковых запросах, выполненных по элементам Outlook.
Объект Search содержит свойства, определяющие тип поиска и параметры самого поиска.
Используйте метод AdvancedSearch объекта Application, чтобы вернуть объект Search.
Используйте событие AdvancedSearchComplete , чтобы определить, когда выполнен заданный поиск.
В следующем примере Microsoft Visual Basic для приложений (VBA) возвращается объект поиска SubjectSearch и отображаются значения свойств Tag и Filter объекта. Свойство Tag используется для идентификации определенного поиска после его завершения.
Sub SearchInboxFolder()
'Searches the Inbox
Dim objSch As Search
Const strF As String = _
"urn:schemas:mailheader:subject = 'Office Christmas Party'"
Const strS As String = "Inbox"
Const strTag As String = "SubjectSearch"
Set objSch = Application.AdvancedSearch(Scope:=strS, _
Filter:=strF, SearchSubFolders:=True, Tag:=strTag)
End Sub
В следующем примере VBA отображаются сведения о поиске и результатах поиска.
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
Dim objRsts As Results
MsgBox "The search " & SearchObject.Tag & "has completed.
Set objRsts = SearchObject.Results
'Print out number in Results collection
Debug.Print objRsts.Count
'Print out each member of Results collection
For Each Item In objRsts
Debug.Print Item
Next
End Sub
Справочник по объектной модели Outlookдля поиска элементов объекта
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.