Outlook) (AutoFormatRule.Filter 属性
返回或设置一个 String 值，代表自定义格式设置规则的筛选器。 读/写。
语法
expression。 Filter
表达 一个代表 AutoFormatRule 对象的变量。
备注
此属性的值是 DAV 搜索和定位 (DASL) 字符串，该字符串代表自定义格式规则的当前筛选器。 有关使用 DASL 筛选通过格式规则设置格式的项目的详细信息，请参阅筛选项目。 如果将此属性设置为空字符串，则自定义格式规则将应用于视图中显示的所有项目。
注意
此属性返回标准格式规则的空字符串 (AutoFormatRule 对象， 标准属性值设置为True) 。 如果尝试针对标准格式规则为此属性赋值，则会发生错误。
示例
以下Visual Basic for Applications (VBA) 示例使用 Explorer 对象的 CurrentView 属性获取 View 对象，然后创建名为“Handoff Messages”的新 AutoFormatRule。设置 AutoFormatRule 对象的 Filter 属性，以便格式规则应用于主题属性值以“HANDOFF”开头的任何邮件。 然后，该示例设置 AutoFormatRule 对象的 Font 对象的属性，以便应用格式规则的邮件以蓝色、粗体、8 磅 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。