Propiedad AutoFormatRule.Filter (Outlook)
Devuelve o establece un valor de tipo String que representa el filtro de una regla de formato personalizada. Lectura y escritura.
Sintaxis
expresión. Filter
Expresión Variable que representa un objeto AutoFormatRule .
Comentarios
El valor de esta propiedad es una cadena DASL (DAV Searching and Locating) que representa el filtro actual para la regla de formato personalizada. Para obtener más información sobre el uso de DASL para filtrar elementos a los que ha dado formato la regla de formato, vea Filtrar elementos. Si se establece esta propiedad en una cadena vacía, se aplica la regla de formato personalizada a todos los elementos que se muestran en la vista.
Nota:
Esta propiedad devuelve una cadena vacía para una regla de formato estándar (un objeto AutoFormatRule con un valor de propiedad Standard establecido en True). Se produce un error si se intenta asignar un valor a esta propiedad para una regla de formato estándar.
Ejemplo:
En el siguiente ejemplo de Visual Basic para Aplicaciones (VBA) se obtiene un objeto View mediante la propiedad CurrentView del objeto Explorer y, a continuación, se crea una nueva AutoFormatRule denominada "Mensajes de entrega". La propiedad Filter del objeto AutoFormatRule se establece para que la regla de formato se aplique a cualquier mensaje en el que el valor de la propiedad Subject comience por "HANDOFF". A continuación, el ejemplo establece las propiedades del objeto Font para el objeto AutoFormatRule para que los mensajes a los que se aplica la regla de formato se muestren en texto azul, negrita y 8 puntos Courier New.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.