Tag 属性

返回当前搜索的名称。String 类型。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