Propriedade Search.SearchSubFolders (Outlook)

Retorna um Boolean indicando se o escopo da pesquisa especificada incluído nas subpastas de qualquer pasta é pesquisada. Somente leitura.

Sintaxe

expression. SearchSubFolders

Expressão Uma variável que representa um objeto Search .

Comentários

Essa propriedade é determinada pelo argumento SearchSubfolders do método AdvancedSearch e é especificada quando a pesquisa é iniciada. Se True, a pesquisa de objeto pesquisas por meio de todas as subpastas no caminho filtro especificado.

Exemplo

Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) cria um objeto de pesquisa. Do usuário caixa de entrada é especificada como o escopo da pesquisa e a propriedade SearchSubFolders é definida como True. A sub-rotina do evento é acionado quando a pesquisa foi concluída e exibe as propriedades de marca e o escopo para o novo objeto, bem como os resultados da pesquisa.

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

Confira também

Objeto Search

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.