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

Статья
04/07/2023

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

Синтаксис

выражение. SearchSubFolders

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

Замечания

Это свойство определяется аргументом SearchSubfolders метода AdvancedSearch и указывается при инициации поиска. Если задано значение True, объект Search выполняет поиск по всем вложенным папкам по указанному пути фильтра.

Пример

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

Public blnSearchComp As Boolean 
 
 
 
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired for " & SearchObject.Tag & _ 
 
 " and the scope was " & SearchObject.Scope 
 
 blnSearchComp = True 
 
End Sub 
 
 
 
Sub TestAdvancedSearchComplete() 
 
 'List all items in the Inbox that do NOT have a flag: 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = "urn:schemas:httpmail:messageflag IS NULL" 
 
 Const strS As String = "Inbox" 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF1 As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS1 As String = "Inbox" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS1, Filter:=strF1, _ 
 
 SearchSubFolders:=True, Tag:="FlagSearch") 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = objSch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

См. также

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

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

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

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