Search 对象

Application Search 多个对象

包含针对 Microsoft Outlook 项目的单个搜索的信息。Search 对象包含的属性定义了搜索类型和搜索本身的参数。

使用 Search 对象

使用 Application 对象的 AdvancedSearch 方法返回一个 Search 对象。以下示例返回一个名为“SubjectSearch”的搜索对象，并显示该对象的 Tag 和 Filter 属性值。Tag 属性用于在特定搜索完成后标识搜索。

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, SearchSubFolders:=True, Tag:=strTag)

End Sub

使用 AdvancedSearchComplete 事件确定指定搜索完成的时间。以下示例显示有关搜索的信息以及搜索的结果。

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)

    Dim objRsts As Results
    MsgBox "The search " & SearchObject.Tag & "has completed.
    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