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

Статья
04/07/2023

Возвращает значение String , представляющее инструкцию DASL, используемую для ограничения поиска указанным подмножеством данных. Только для чтения

Синтаксис

выражение. Filter

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

Замечания

Это свойство задается в качестве аргумента Filter в методе AdvancedSearch объекта Приложения.

При поиске в текстовых полях можно использовать апостроф (') или двойные кавычки ("") для разделения значений, входящих в фильтр. Например, все следующие строки работают правильно, если поле имеет тип String :

sFilter = "[CompanyName] = 'Microsoft'"

sFilter = "[CompanyName] = ""Microsoft"""

sFilter = "[CompanyName] = " & Chr(34) & "Microsoft" & Chr(34)

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) создается новый объект Search. Подпрограмма события срабатывает после завершения поиска и отображает свойства Tag и Filter объекта Search в дополнение к результатам поиска.

Sub SearchInboxFolder() 
 
 'Searches the Inbox folder 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = _ 
 
 "urn:schemas:mailheader:subject = 'Office Holiday Party'" 
 
 Const strS As String = "Inbox" 
 
 Const strTag As String = "SubjectSearch" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS, Filter:=strF, Tag:=strTag) 
 
End Sub

Используйте подпрограмму события AdvancedSearchComplete , чтобы обеспечить целостность данных, хранящихся в объекте Search .

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 Dim objRsts As Outlook.Results 
 
 Dim Item as Outlook.MailItem 
 
 MsgBox "The search " & SearchObject.Tag & "has finished. The filter used was " & _ 
 
 SearchObject.Filter & "." 
 
 Set objRsts = SearchObject.Results 
 
 'Print out number in results collection 
 
 MsgBox objRsts.Count 
 
 'Print out each member of results collection 
 
 For Each Item In objRsts 
 
 MsgBox Item 
 
 Next 
 
 
 
End Sub

См. также

Объект поиска

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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