AdvancedSearch

Moderator: ModerationP

AdvancedSearch

Beitragvon 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
Benutzeravatar
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 827
Registriert: 12. Feb 2016, 18:56

Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste