英語で読む

次の方法で共有


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 のサポートおよびフィードバックを参照してください。