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 desta propriedade é uma cadeia DAV Search and Locating (DASL) que representa o filtro atual da regra de formatação personalizada. Para obter mais informações sobre como utilizar o DASL para filtrar itens formatados pela regra de formatação, veja Filtrar Itens. Definir esta propriedade para uma cadeia vazia aplica a regra de formatação personalizada a todos os itens apresentados pela vista.

Exemplo

O exemplo de Visual Basic for Applications (VBA) seguinte obtém um objeto Ver com a propriedade CurrentView do objeto Explorer e, em seguida, cria uma nova Fórmula Automática com o nome "Mensagens Handoff". A propriedade Filter do objeto AutoFormatRule é definida para que a regra de formatação se aplique a qualquer mensagem em que o valor da propriedade Assunto comece por "HANDOFF". Em seguida, o exemplo define as propriedades do objeto Tipo de Letra para o objeto AutoFormatRule , de modo a que as mensagens às quais a regra de formatação se aplica sejam apresentadas a azul, negrito, texto Courier New de 8 pontos.

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.