Application.AdvancedSearch 方法 (Outlook)

  • 项目

根据指定的 DAV 搜索和定位 (DASL) 搜索字符串进行搜索。

语法

expression。 AdvancedSearch( _Scope_ , _Filter_ , _SearchSubFolders_ , _Tag_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Scope 必需 String 搜索范围。 例如文件夹路径。 建议将文件夹路径括在单引号内。 否则，如果文件夹路径包含特殊字符（包括 Unicode 字符），搜索可能不会返回正确结果。 若要指定多个文件夹路径，请用单引号引起每个文件夹路径，然后再用逗号隔开这些文件夹路径。
Filter 可选 Variant 定义搜索参数的 DASL 搜索筛选器。
SearchSubFolders 可选 Variant 确定搜索是否包括文件夹的子文件夹。
Tag 可选 Variant 指定作为搜索标识符的名称。

返回值

一个表示搜索结果的 Search 对象。

备注

通过调用 AdvancedSearch 方法在连续行代码中，可以同时运行多个搜索。 但是，应该注意: 以编程方式创建大量的搜索文件夹会导致重大同时搜索活动会影响性能的 Outlook 中，在尤其是 Outlook 进行联机 Exchange 模式搜索。

Outlook 对象模型中的 AdvancedSearch 方法和相关功能不会创建将在 Outlook 用户界面中显示的搜索文件夹。 但是，可以使用返回的 Search 对象的 Save 方法创建一个搜索文件夹，该搜索文件夹将显示在 Outlook 用户界面的“搜索文件夹”列表中。

使用 Scope 参数，可以指定同一存储区中的一个或多个文件夹，但不能在多个存储区中指定多个文件夹。 若要在同一个存储为 Scope参数指定多个文件夹，用逗号隔开每个文件夹路径，将每个文件夹路径括在单引号中。 如收件箱或已发送邮件的默认文件夹，可以使用简单的文件夹名称而不是完整的文件夹路径。 例如，以下两行代码表示有效 Scope参数:

Scope = "'Inbox', 'Sent Items'"

Scope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath _  
    & "','" & Application.Session.GetDefaultFolder(olFolderSentMail).FolderPath & "'"

Filter 参数可以是任何有效的 DASL 查询。 有关 DASL 查询的其他信息，请参阅 按命名空间筛选项 和 引用属性。 请注意，不能对高级搜索的 Filter 参数使用 JET 查询。 如果包含在 Scope参数中指定的文件夹的存储区启用了即时搜索，您可以使用即时搜索关键字提高搜索性能。 如果使用即时搜索关键字并不启用了即时搜索，则 Outlook 会返回错误，搜索将失败。

示例

以下Visual Basic for Applications (VBA) 示例在收件箱中搜索主题为 Test 的项目，并显示搜索返回的电子邮件项目的发件人姓名。 搜索完成后， AdvancedSearchComplete 事件过程会将布尔型 blnSearchComp设置为 True 。 此布尔变量 TestAdvancedSearchComplete()过程用于确定搜索何时完成。 示例代码必须放在 类模块（如 ThisOutlookSession）中，并且必须先调用过程， TestAdvancedSearchComplete() 然后 Outlook 才能调用事件过程。

Public blnSearchComp As Boolean  
  
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)  
    Debug.Print "The AdvancedSearchComplete Event fired"  
    If SearchObject.Tag = "Test" Then  
        m_SearchComplete = True  
    End If  
  
End Sub  
  
Sub TestAdvancedSearchComplete()  
    Dim sch As Outlook.Search  
    Dim rsts As Outlook.Results  
    Dim i As Integer  
    blnSearchComp = False  
    Const strF As String = "urn:schemas:mailheader:subject = 'Test'"  
    Const strS As String = "Inbox"     
    Set sch = Application.AdvancedSearch(strS, strF, "Test")   
    While blnSearchComp = False  
        DoEvents  
    Wend   
    Set rsts = sch.Results  
    For i = 1 To rsts.Count  
        Debug.Print rsts.Item(i).SenderName  
    Next  
End Sub

下面的 Microsoft Visual Basic for Applications 示例使用 AdvancedSearch 方法来创建新的搜索。 由 AdvancedSearch 方法的 Filter 参数指定的搜索参数将返回“收件箱”和“已发送邮件”文件夹中所有主题短语匹配或包含“Office”的项目。 用户的收件箱和已发送的邮件文件夹被指定为搜索的范围，将 SearchSubFolders 属性设置为 True 。 搜索完成后， GetTable 方法调用 搜索 对象性能的搜索结果的枚举。

Public m_SearchComplete As Boolean  
  
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)  
    If SearchObject.Tag = "MySearch" Then  
        m_SearchComplete = True  
    End If  
End Sub  
  
Sub TestSearchForMultipleFolders()  
    Dim Scope As String  
    Dim Filter As String  
    Dim MySearch As Outlook.Search  
    Dim MyTable As Outlook.Table  
    Dim nextRow As Outlook.Row  
    m_SearchComplete = False  
    'Establish scope for multiple folders  
    Scope = "'" & Application.Session.GetDefaultFolder( _  
    olFolderInbox).FolderPath _  
    & "','" & Application.Session.GetDefaultFolder( _  
    olFolderSentMail).FolderPath & "'"  
    'Establish filter  
    If Application.Session.DefaultStore.IsInstantSearchEnabled Then  
        Filter = Chr(34) & "urn:schemas:httpmail:subject" _  
        & Chr(34) & " ci_phrasematch 'Office'"  
    Else  
        Filter = Chr(34) & "urn:schemas:httpmail:subject" _  
        & Chr(34) & " like '%Office%'"  
    End If  
    Set MySearch = Application.AdvancedSearch( _  
    Scope, Filter, True, "MySearch")  
    While m_SearchComplete <> True  
        DoEvents  
    Wend  
    Set MyTable = MySearch.GetTable  
    Do Until MyTable.EndOfTable  
        Set nextRow = MyTable.GetNextRow()  
        Debug.Print nextRow("Subject")  
    Loop  
End Sub

另请参阅

Application 对象

支持和反馈

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