返回指定搜索的范围。String 类型,只读。
expression.Scope
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