通过

Outlook) (Search.Filter 属性

  • 项目

返回一个 字符串 值，表示用来将搜索限制到指定的数据子集的 DASL 语句。 只读

语法

expression。 Filter

表达 一个代表 Search 对象的变量。

备注

此属性设置为 Application 对象的 AdvancedSearch 方法中的 Filter 参数。

搜索 文本 字段时，可以使用单引号 (') 或双引号 ("") 来分隔作为筛选器一部分的值。 例如，当字段为字符串类型时，下列所有行均可正常使用：

sFilter = "[CompanyName] = 'Microsoft'"

sFilter = "[CompanyName] = ""Microsoft"""

sFilter = "[CompanyName] = " & Chr(34) & "Microsoft" & Chr(34)

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例创建一个新的 搜索 对象。 搜索已经完成并显示 标记 和 筛选器 属性以及搜索结果的 搜索 对象之后，将触发事件的子例程。

Sub SearchInboxFolder() 
 
 'Searches the Inbox folder 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = _ 
 
 "urn:schemas:mailheader:subject = 'Office Holiday Party'" 
 
 Const strS As String = "Inbox" 
 
 Const strTag As String = "SubjectSearch" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS, Filter:=strF, Tag:=strTag) 
 
End Sub

使用 AdvancedSearchComplete 事件子例程确保 搜索 对象中存储的数据的完整性。

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 Dim objRsts As Outlook.Results 
 
 Dim Item as Outlook.MailItem 
 
 MsgBox "The search " & SearchObject.Tag & "has finished. The filter used was " & _ 
 
 SearchObject.Filter & "." 
 
 Set objRsts = SearchObject.Results 
 
 'Print out number in results collection 
 
 MsgBox objRsts.Count 
 
 'Print out each member of results collection 
 
 For Each Item In objRsts 
 
 MsgBox Item 
 
 Next 
 
 
 
End Sub

另请参阅

搜索对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。