Propriedade AutoFormatRule.Filter (Outlook)

Retorna ou define um valor String que representa o filtro para uma regra de formatação personalizada. Leitura/gravação.

Sintaxe

expression. Filter

Expressão Uma variável que representa um objeto AutoFormatRule .

Comentários

O valor dessa propriedade é uma cadeia de caracteres DASL (Pesquisa e Localização de DAV) que representa o filtro atual para a regra de formatação personalizada. Para obter mais informações sobre como usar o DASL para filtrar itens formatados pela regra de formatação, consulte Filtragem de Itens. Definir essa propriedade como uma cadeia de caracteres vazia aplica a regra de formatação personalizada a todos os itens exibidos pelo modo de exibição.

Observação

Essa propriedade retorna uma cadeia de caracteres vazia para uma regra de formatação padrão (um objeto AutoFormatRule com um valor de propriedade Standard definido como True). Ocorrerá um erro se você tentar atribuir um valor a essa propriedade para uma regra de formatação padrão.

Exemplo

O exemplo de VBA (Visual Basic for Applications) a seguir obtém um objeto View usando a propriedade CurrentView do objeto Explorer e cria um novo AutoFormatRule chamado "Mensagens de Entrega". A propriedade Filter do objeto AutoFormatRule é definida para que a regra de formatação se aplique a qualquer mensagem na qual o valor da propriedade Subject comece com "HANDOFF". Em seguida, o exemplo define as propriedades do objeto Font para o objeto AutoFormatRule para que as mensagens às quais a regra de formatação se aplique sejam exibidas em texto azul, negrito e 8 pontos 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

Confira também

Objeto AutoFormatRule

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.