通过

Outlook) (Search.Tag 属性

  • 项目

返回一个 字符串 ，指定当前搜索的名称。 Tag 属性用于标识特定的搜索。 此为只读属性。

语法

表达式。标记

表达 一个代表 Search 对象的变量。

备注

Tag 属性设置 搜索 对象创建时使用 AdvancedSearch 方法。

示例

以下Visual Basic for Applications (VBA) 示例在用户的收件箱中搜索没有标志的所有项目。 Tag 属性中，指定的名称"FlagSearch"，是给搜索。 搜索完成后， AdvanceSearchComplete事件过程会将布尔型 blnSearchComp设置为 True 。 此布尔变量 TestAdvancedSearchComplete()过程用于确定搜索何时完成。 示例代码必须放置在类模块（如 ThisOutlookSession）中，并且 TestAdvancedSearchComplete() 必须先调用子例程，然后 Outlook 才能调用事件过程。 AdvanceSearchComplete事件过程向用户显示标记，以便用户可以标识已完成搜索，因为搜索通常是异步的 (使用 IsSynchronous 属性，以确定是否搜索是同步还是异步)，并可同时执行多个搜索。

Public blnSearchComp As Boolean 
 
 
 
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired for " & _ 
 
 SearchObject.Tag & " and the scope was " & SearchObject.Scope 
 
 blnSearchComp = True 
 
End Sub 
 
 
 
Sub TestAdvancedSearch111Complete() 
 
 'List all items in the Inbox that do NOT have a flag: 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = "urn:schemas:httpmail:messageflag IS NULL" 
 
 Const strS As String = "Inbox" 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF1 As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS1 As String = "Inbox" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS1, Filter:=strF1, _ 
 
 Tag:="FlagSearch") 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = objSch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

另请参阅

搜索对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。