Outlook VBA教程:Tag属性

返回当前搜索的名称。String 类型。Tag属性用于标识特定的搜索。

expression.Tag

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

说明

Tag属性在创建Search对象时由AdvancedSearch方法设置。

VBA示例

以下示例在用户“收件箱”搜索所有没有标记的项目。由 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

上页:Outlook VBA教程:SyncObjects属性 下页:Outlook VBA教程:Target属性

Outlook VBA教程:Tag属性:相关链接

Outlook VBA教程:Target属性 Outlook VBA教程:TeamTask属性
Outlook VBA教程:TelexNumber属性 Outlook VBA教程:Template属性
Outlook VBA教程:Title属性 Outlook VBA教程:To属性
Outlook VBA教程:Top属性 Outlook VBA教程:TotalWork属性
Outlook VBA教程:TrackingStatus属性 Outlook VBA教程:TrackingStatusTime属性
Outlook VBA教程:TransferSize属性 Outlook VBA教程:TransferTime属性
Outlook VBA教程:TTYTDDTelephoneNumber属性 Outlook VBA教程:Type属性
Outlook VBA教程:UnRead属性 Outlook VBA教程:UnReadItemCount属性
Outlook VBA教程:User1属性 Outlook VBA教程:User2属性
Outlook VBA教程:User3属性 Outlook VBA教程:User4属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号