Search.Filter, propriété (Outlook)

Retourne une valeur string qui représente l’instruction DASL utilisée pour restreindre la recherche à un sous-ensemble de données spécifié. Lecture seule

Syntaxe

expression. Filter

Expression Variable qui représente un objet Search .

Remarques

Cette propriété est définie en tant qu’argument Filter dans la méthode AdvancedSearch de l’objet Application.

Lorsqu'il s'agit d'effectuer une recherche dans les champs Text, vous pouvez utiliser une apostrophe (') ou des guillemets doubles ("") pour délimiter les valeurs faisant partie du filtre. Par exemple, toutes les lignes suivantes fonctionnent correctement lorsque le champ est de type String :

sFilter = "[CompanyName] = 'Microsoft'"

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

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

Exemple

L’exemple Microsoft Visual Basic pour Applications (VBA) suivant crée un objet Search . La sous-routine d’événement se déclenche une fois la recherche terminée et affiche les propriétés Tag et Filter de l’objet Search en plus des résultats de la recherche.

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

Utilisez une sous-routine d’événement AdvancedSearchComplete pour garantir l’intégrité des données stockées dans l’objet 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

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.