Search.Tag property (Outlook)

Gibt eine Zeichenfolge zur Angabe der Name der aktuellen Suche zurück. Die Tag -Eigenschaft wird verwendet, um eine bestimmte Suche zu identifizieren. Schreibgeschützt.

Syntax

Ausdruck. Etikett

Ausdruck Eine Variable, die ein Search-Objekt darstellt.

Hinweise

Die Tag -Eigenschaft wird festgelegt, mithilfe der AdvancedSearch -Methode, wenn das Search -Objekt erstellt wird.

Beispiel

Im folgenden beispiel für Visual Basic for Applications (VBA) wird der Posteingang des Benutzers nach allen Elementen ohne Flag durchsucht. Die Suche erhält der Namen "FlagSearch", durch die Tag -Eigenschaft angegeben ist. Die Ereignisprozedur AdvanceSearchComplete wird der boolesche blnSearchComp auf True festgelegt, wenn die Suche abgeschlossen ist. Boolean-Variable wird von der TestAdvancedSearchComplete() -Prozedur verwendet, um zu bestimmen, wann die Suche abgeschlossen ist. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSession platziert werden, und die TestAdvancedSearchComplete() Unterroutine muss aufgerufen werden, bevor die Ereignisprozedur von Outlook aufgerufen werden kann. Die Ereignisprozedur AdvanceSearchComplete zeigt das Tag für den Benutzer, so dass der Benutzer erkennen kann, welche Suche abgeschlossen wurde, da die Suche in der Regel asynchronen (verwenden Sie die IsSynchronous -Eigenschaft ist, um festzustellen, ob die Suche synchron oder asynchron durchgeführt wird).

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

Siehe auch

Search-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.