Share via

Search.Tag プロパティ (Outlook)

  • [アーティクル]

現在の検索条件の名前を指定する 文字列 を返します。 Tag プロパティを使用して、特定の検索を識別します。 読み取り専用です。

構文

式。タグ

式Search オブジェクトを表す変数。

注釈

Tag プロパティは、 Search オブジェクトを作成するときは、 ここ を使用して設定されています。

例

次のVisual Basic for Applications (VBA) の例では、フラグを持たないすべてのアイテムについて、ユーザーの受信トレイを検索します。 Tag プロパティで指定された "FlagSearch" という名前が検索に与えられます。 イベント プロシージャはAdvanceSearchComplete、検索が完了したときにブール値を True に設定しますblnSearchComp。 このブール変数は、検索が 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 のサポートおよびフィードバックを参照してください。