Propriété Search.SearchSubFolders (Outlook)

Article
04/07/2023

Renvoie une valeur de type Boolean indiquant si la portée de la recherche spécifiée inclut les sous-dossiers des dossiers parcourus. En lecture seule.

Syntaxe

expression. SearchSubFolders

Expression Variable qui représente un objet Search .

Remarques

Cette propriété est déterminée par l’argument SearchSubfolders de la méthode AdvancedSearch et est spécifiée lorsque la recherche est lancée. Avec la valeur True, l'objet Search parcourt tous les sous-dossiers situés dans le chemin d'accès spécifié.

Exemple

L’exemple Microsoft Visual Basic pour Applications (VBA) suivant crée un objet Search . La Boîte de réception de l’utilisateur est spécifiée en tant que portée de la recherche et la valeur True est affectée à la propriété SearchSubFolders. La sous-routine événementielle se déclenche lorsque la recherche est terminée et affiche les propriétés Tag et Scope du nouvel objet, ainsi que les résultats de la recherche.

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

Voir aussi

Objet de recherche

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via