Application.AdvancedSearchComplete-Ereignis (Outlook)

Artikel
10/16/2024

Tritt auf, wenn die AdvancedSearch -Methode ausgeführt wurde.

Syntax

Ausdruck. AdvancedSearchComplete (SearchObject)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SearchObject	Erforderlich	Search	Die Search -Objekt, das von der AdvancedSearch -Methode zurückgegeben.

Hinweise

Das AdvancedSearchComplete -Ereignis wird verwendet, um das Objekt zurückzugeben, das von der AdvancedSearch -Methode erstellt wurde. Dieses Ereignis wird nur ausgelöst, wenn die AdvancedSearch -Methode programmgesteuert ausgeführt wird.

Beispiel

Im folgenden beispiel für Visual Basic for Applications (VBA) wird der Posteingang nach Elementen durchsucht, bei denen der Betreff gleich "Test" ist, und zeigt die Namen der Absender der von der Suche zurückgegebenen E-Mail-Elemente an. 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 ThisOutlookSessionplatziert werden. Die TestAdvancedSearchComplete() Prozedur muss aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.

Public blnSearchComp As Boolean 

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired." 
 
 blnSearchComp = True 
 
End Sub 
 
Sub TestAdvancedSearchComplete() 
 
 Dim sch As Outlook.Search 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS As String = "Inbox" 
 
 Set sch = Application.AdvancedSearch(strS, strF) 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = sch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

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.

Freigeben über