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
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.