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