AutoFormatRule.Filter, propriété (Outlook)
Renvoie ou définit une valeur de type String qui représente le filtre d'une règle de mise en forme personnalisée. Lecture-écriture.
Syntaxe
expression. Filter
Expression Variable qui représente un objet AutoFormatRule .
Remarques
La valeur de cette propriété est une chaîne DASL (DAV Searching and Locating) qui représente le filtre actif de la règle de mise en forme personnalisée. Pour plus d’informations sur l’utilisation de DASL pour filtrer les éléments mis en forme par la règle de mise en forme, voir Filtrage des éléments. La définition de cette propriété sur une chaîne vide applique la règle de mise en forme personnalisée à tous les éléments de l’affichage.
Remarque
Cette propriété renvoie une chaîne vide pour une règle de mise en forme standard (objet AutoFormatRule avec une valeur de propriété Standard définie sur True). Une erreur se produit si vous tentez d’affecter une valeur à cette propriété pour une règle de mise en forme standard.
Exemple
L’exemple Visual Basic pour Applications (VBA) suivant obtient un objet View à l’aide de la propriété CurrentView de l’objet Explorer , puis crée un nouvel autoFormatRule nommé « Handoff Messages ». La propriété Filter de l’objet AutoFormatRule est définie de sorte que la règle de mise en forme s’applique à tout message dans lequel la valeur de la propriété Subject commence par « HANDOFF ». L’exemple définit ensuite les propriétés de l’objet Font pour l’objet AutoFormatRule afin que les messages auxquels la règle de mise en forme s’applique s’affichent en bleu, gras, texte Courier New à 8 points.
Private Sub FormatHandoffMessages()
Dim objView As TableView
Dim objRule As AutoFormatRule
' Check if the current view is a table view.
If Application.ActiveExplorer.CurrentView.ViewType = olTableView Then
' Obtain a TableView object reference to the current view.
Set objView = Application.ActiveExplorer.CurrentView
' Create a new rule that displays any message with a
' subject line that starts with "HANDOFF" in
' blue, bold, 8 point Courier New text.
Set objRule = objView.AutoFormatRules.Add("Handoff Messages")
With objRule
.Filter = """http://schemas.microsoft.com/mapi/proptag/0x0037001f""" & _
" CI_STARTSWITH 'HANDOFF'"
With .Font
.Name = "Courier New"
.Size = "8"
.Bold = True
.Color = olColorBlue
End With
End With
' Save and apply the table view.
objView.Save
objView.Apply
End If
End Sub
Voir aussi
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.