Filter 属性

DASL 语句用来将搜索限制到指定的数据子集。该属性由 Application 对象的 AdvancedSearch 方法设置。String 类型，只读。

expression  必选。该表达式返回 Search 对象。

说明

当初次创建 Search 对象时，Filter 属性由 Filter 参数设置。

示例

以下示例新建 Search 对象。搜索完成后触发事件子例程，显示 Search 对象的 Tag 和 Filter 属性以及搜索结果。

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

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

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

End Sub