返回当前搜索的名称。String 类型。Tag 属性用于标识特定的搜索。
expression.Tag
expression 必选。该表达式返回 Search 对象。
Tag 属性在创建 Search 对象时由 AdvancedSearch 方法设置。
以下示例在用户“收件箱”搜索所有没有标记的项目。由 Tag 属性为搜索指定名称“FlagSearch”。
Sub SearchForFlags()
'List all items in the Inbox that do NOT have a flag:
Dim objSch As Search
Const strF As String = "urn:schemas:httpmail:messageflag = 0" & _
" OR urn:schemas:httpmail:messageflag IS NULL"
Const strS As String = "Inbox"
Set objSch = _
Application.AdvancedSearch(Scope:=strS, Filter:=strF, Tag:="FlagSearch")
End Sub
以下示例使用 AdvancedSearchComplete 事件获取搜索结果。显示搜索的 Tag 属性来通知用户完成了的搜索。
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