Как искать по результатам мгновенного поиска Outlook

Question

У меня есть следующий код, который выполняет мгновенный поиск в Outlook, но я не уверен, как теперь пройтись по этим результатам для дальнейших проверок.

Любые указатели будут с благодарностью приняты!

Sub SearchByAddress()

    Dim myOlApp As New Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim strFilter As String
    Dim oMail  As Outlook.MailItem

    Set ns = myOlApp.GetNamespace("MAPI")

          strFilter = "joebloggs@hotmail.com"

    Set myOlApp.ActiveExplorer.CurrentFolder = ns.GetDefaultFolder(olFolderInbox)
         txtSearch = "from:(" & Chr(34) & strFilter & Chr(34) & ") AND " & Chr(34) & "Check" & Chr(34)
         myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

    Set myOlApp = Nothing



End Sub

Answer 1

Вместо этого используйте Application.AdvancedSearch - он возвращает экземпляр объекта Поиск .