Outlook) (Search.Tag 屬性

會傳回 String，此字串指定目前搜尋的名稱。 Tag 屬性可用來識別特定的搜尋。 唯讀。

語法

運算式。標記

表達 代表 Search 物件的變數。

註解

Tag屬性是在建立Search物件時，使用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

另請參閱

Search 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。