Scope 属性

返回指定搜索的范围。String 类型，只读。

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

说明

搜索的范围在初始化搜索时定义。有关详细信息，请参阅 AdvancedSearch 方法。

示例

以下子例程创建一个 Search 对象。将用户的“收件箱”指定为搜索范围。搜索完成时发生事件子例程，显示新对象的 Tag 和 Scope 属性，并显示搜索结果。

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. The scope of the search was " & _
        SearchObject.Scope & "."
    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