Scope 属性

       

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

expression.Scope

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

说明

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

示例

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

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