AdvancedSearch

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: AdvancedSearch

AdvancedSearch

Beitrag von Fennek » 21. Aug 2021, 10:20

Hallo,

bei einem Test für "AdvancedSearch" habe ich den Beipielcode von MS kopiert. Aber das Event für die Prüfung, ob die Suche abgeschlossen ist, wird nicht gestartet, damit bleibt der Code in einer Endlosschleife.

Wo ist der Fehler?

Code: Alles auswählen
'https://docs.microsoft.com/en-us/office/vba/api/outlook.application.advancedsearch

Public blnSearchComp As Boolean
Public m_SearchComplete As Boolean

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
    Debug.Print "The AdvancedSearchComplete Event fired"
    If SearchObject.Tag = "Test" Then m_SearchComplete = True: blnSearchComp = True
   
    If SearchObject.Tag = "MySearch" Then m_SearchComplete = True

End Sub
 
Sub AdvancedSearchComplete()
    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', 'Posteingang'"
    Set sch = Application.AdvancedSearch(strS, strF, False, "Test")
    While blnSearchComp = False
        DoEvents
    Wend
    Set rsts = sch.Results
    For i = 1 To rsts.Count
        Debug.Print rsts.Item(i).SenderName
    Next
End Sub


Vielen Dank

mfg

Nach oben