Die “AdvancedSearch”-Methode der Application-Klasse von Outlook erlaubt das Suchen von Elementen nach bestimmten Kriterien in dem vorgegebenen Ordner – gegebenenfalls sogar mit Unterordnern. An ihr hängen zwei Ereignisse namens “AdvancedSearchComplete” und “AdvancedSearchStopped”, die je nach dem Ausgang der Suche ausgelöst werden. Dieser Artikel zeigt, wie wir eine Suche in Outlook-Elementen per VBA durchführen und wie wir die damit zusammenhängenden Ereignisse verwenden müssen, damit die Suche wie gewünscht funktioniert. Außerdem erfährst Du, wie Du Suchbegriff und Suchbereich definieren musst.<\/b><\/p>\n
Im Artikel Outlook: Die Application-Klasse <\/b>(www.vbentwickler.de<\/b>) haben wir die AdvancedSearch-Methode <\/b>und die beiden Ereignisse AdvancedSearchComplete <\/b>und AdvancedSearchStopped <\/b>zusammen mit den anderen Elementen der Application<\/b>-Klasse von Outlook vorgestellt. Im vorliegenden Artikel nun gehen wir ins Detail und zeigen, wie Du in Outlook mit diesen Techniken suchen kannst.<\/p>\nAsynchrone Suche<\/h2>\n
Als Erstes wollen wir uns dabei ansehen, warum die Suche neben der Methode AdvancedSearch <\/b>überhaupt ein weiteres Ereignis namens AdvancedSearchComplete <\/b>benötigt.<\/p>\n
Der Grund ist einfach: Die Methode AdvancedSearch <\/b>ist nämlich eine asynchrone Methode, das heißt, sie wird, einmal aufgerufen, unabhängig vom aufrufenden Code ausgeführt. Das heißt, dass der aufrufende Code einfach weiterläuft. Das ist insofern ungünstig, als dass wir nach dem Aufruf von AdvancedSearch <\/b>nicht einfach abwarten können, bis die Suche abgeschlossen ist und dann das Suchergebnis auswerten können.<\/p>\n
Stattdessen haben wir zwei Möglichkeiten:<\/p>\n
Wir schauen uns im Anschluss beide Varianten an.<\/p>\n
Die nächste Frage ist, wo wir die Suchfunktion ausführen wollen. In einer späteren Stufe würden wir diese beispielsweise als Teil einer Anwendung wie einer reinen VB-Anwendung oder auch einer Datenbankanwendung verwenden.<\/p>\n
Oder wir rufen die Suchfunktion über einen benutzerdefinierten Ribboneintrag auf. Da das für die reine Vorstellung der AdvancedSearch<\/b>-Methode etwas zu aufwendig ist, wollen wir diese zunächst gesondert betrachten, indem wir sie einfach aus einem Modul aus dem VBA-Editor von Outlook heraus aufrufen.<\/p>\n
Als Erstes benötigen wir eine Boolean<\/b>-Variable zum Speichern der Information, ob die Suche bereits beendet ist. Diese deklarieren wir wie folgt:<\/p>\n Außerdem können wir das Ereignis nicht einfach für die Application<\/b>-Klasse implementieren, sondern wir müssen dafür eine eigene Objektvariable des Typs Outlook.Application <\/b>deklarieren:<\/p>\n Damit können wir nun eine Suche wie in der Prozedur SucheNachMailsMitBestimmtemBetreff<\/b> programmieren (siehe Listing 1). <\/p>\n Listing 1: Beispiel für den Aufruf von AdvancedSearch<\/span><\/b><\/p>\n Die Prozedur deklariert einige wichtige Variablen:<\/p>\n Die Prozedur referenziert zunächst das Application<\/b>-Objekt der aktuellen Outlook-Instanz mit objApplication<\/b>. Dann stellt es bolSearchComplete <\/b>zunächst auf False <\/b>ein, falls dieses durch eine vorherige Suche noch den Wert True <\/b>enthielt.<\/p>\n Dann schreibt es das Filterkriterium, dazu später mehr, in die Variable strFilter <\/b>und den zu durchsuchenden Bereich in strScope<\/b>. Schließlich startet die Prozedur mit der Methode AdvancedSearch <\/b>den Suchvorgang.<\/p>\n Neben strScope <\/b>und strFilter <\/b>wird für den dritten Parameter SearchSubFolders <\/b>noch der Wert False <\/b>übergeben, weil wir keine Unterordner durchsuchen wollen. Und für den vierten Parameter übergeben wir einen Tag, anhand dessen wir später in der Ereignisprozedur AdvancedSearchComplete <\/b>herausfinden können, ob das Ereignis auch durch diese Suche ausgelöst wurde – in diesem Fall schlicht Test<\/b>.<\/p>\n Nun geschieht Folgendes: Die Suche wird gestartet und die Prozedur läuft direkt weiter, da der Aufruf der Suchfunktion wie oben beschrieben asynchron erfolgt. <\/p>\n Damit die aufrufende Prozedur dennoch nach Abschluss der Suche das Suchergebnis untersuchen kann, startet dort nun eine Do While<\/b>-Schleife, die solange wiederholt wird, bis die Variable bolSearchComplete <\/b>den Wert True <\/b>erhält. Und das ist genau dann der Fall, wenn das Ereignis AdvancedSearchComplete <\/b>ausgelöst wird und wir die folgende Ereignisprozedur dafür implementiert haben:<\/p>\n Damit wir sehen, wann das Ereignis ausgelöst wird, geben wir per Debug.Print <\/b>eine Meldung im Direktbereich aus. Danach prüfen wir, ob der Aufruf von AdvancedSearch <\/b>mit dem Wert Test <\/b>als vierten Parameter das Ereignis ausgelöst hat. Ist das der Fall, stellt die Prozedur bolSearchComplete <\/b>auf True <\/b>ein.<\/p>\n Danach kann die aufrufende Prozedur die Do While<\/b>-Schleife verlassen und das Suchergebnis aus der Eigenschaft Results <\/b>von objSearch <\/b>mit der Variablen objResults <\/b>referenzieren. Dieses durchlaufen wir in einer For…Next<\/b>-Schleife über die Werte 1 <\/b>bis zu der mit objResults.Count <\/b>ermittelten Anzahl der Suchergebnisse.<\/p>\n Für das jeweils mit objResults.Item(i) <\/b>ermittelte Element der Liste mit den Suchergebnissen geben wir nun den Inhalt der Eigenschaft Subject <\/b>im Direktbereich aus.<\/p>\n Die zweite Variante soll, wie weiter oben vorgegeben, das Suchergebnis direkt in der durch das Ereignis AdvancedSearchComplete ausgelösten Prozedur analysieren. Die auslösende Prozedur sieht viel schlanker aus und endet bereits mit dem Aufruf von AdvancedSearch<\/b>:<\/p>\n Auch die Variable bolSearchComplete <\/b>benötigen wir nicht mehr. Die Ereignisprozedur objApplication_AdvancedSearchComplete <\/b>erhält dafür einige neue Zeilen. Sie deklariert nun die Variable des Typs Outlook.Results <\/b>und füllt diese mit der Eigenschaft Results <\/b>des mit dem Parameter SearchObject <\/b>gelieferten Suchobjekts.<\/p>\n Dieser entspricht dem Rückgabewert der Methode AdvancedSearch <\/b>aus dem vorherigen Beispiel. Danach prüft die Ereignisprozedur wieder anhand des Tags, ob es sich um das Ereignis der zuvor aufgerufenen Suche handelt. Ist das der Fall, durchläuft die Prozedur die Elemente des Suchergebnisses in einer For…Next<\/b>-Schleife und gibt den Wert der Eigenschaft Subject <\/b>der gefundenen Elemente aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public <\/span>bolSearchComplete As Boolean<\/span><\/pre>\nPublic <\/span>WithEvents objApplication As <\/span>Outlook.Application<\/pre>\nSub <\/span>SucheNachMailsMitBestimmtemBetreff()\r\n Dim <\/span>objSearch As <\/span>Outlook.Search\r\n Dim <\/span>objResults As <\/span>Outlook.Results\r\n Dim <\/span>strScope As String<\/span>\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> objApplication = Outlook.Application\r\n bolSearchComplete = False<\/span>\r\n strFilter = \"urn:schemas:httpmail:subject = ''Test A''\"\r\n strScope = \"Posteingang\"\r\n Set<\/span> objSearch = objApplication.AdvancedSearch(strScope, strFilter, False, \"Test\")\r\n Do While<\/span> Not<\/span> bolSearchComplete = True<\/span>\r\n DoEvents\r\n Loop<\/span>\r\n Set<\/span> objResults = objSearch.Results\r\n For i = 1 To objResults.count\r\n Debug.Print<\/span> objResults.Item(i).Subject\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n\n
Private Sub <\/span>objApplication_AdvancedSearchComplete(_\r\n ByVal SearchObject As <\/span>Search)\r\n Debug.Print<\/span> \"The AdvancedSearchComplete Event fired\"\r\n If <\/span>SearchObject.Tag = \"Test\" Then<\/span>\r\n bolSearchComplete = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSuchfunktion mit Auswertung in AdvancedSearchComplete<\/h2>\n
Sub <\/span>SucheImPosteingangErgebnisImEreignis()\r\n Dim <\/span>objSearch As <\/span>Outlook.Search\r\n Dim <\/span>strScope As String<\/span>\r\n Dim <\/span>strFilter As String<\/span>\r\n Set<\/span> objApplication = Outlook.Application\r\n strFilter = \"urn:schemas:httpmail:subject = ''Test A''\"\r\n strScope = \"Posteingang\"\r\n Set<\/span> objSearch = objApplication.AdvancedSearch(_\r\n strScope, strFilter, False, \"Test\")\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objApplication_AdvancedSearchComplete(_\r\n ByVal SearchObject As <\/span>Search)\r\n Dim <\/span>objResults As <\/span>Outlook.Results\r\n Dim <\/span>i As Integer<\/span>\r\n If <\/span>SearchObject.Tag = \"Test\" Then<\/span>\r\n Set<\/span> objResults = SearchObject.Results\r\n For i = 1 To objResults.count\r\n Debug.Print<\/span> objResults.Item(i).Subject\r\n Next<\/span> i\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAnpassen des zu durchsuchenden Bereichs<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t