exibindo os itens da pesquisa avançada sem salvar na pasta outlook vba - excel, vba, outlook, pesquisa avançada

Eu quero executar uma pesquisa avançada no Outlook através do Excel VBA, a fim de encontrar alguns e-mails e criar uma resposta automática para um deles.

Meu problema é que eu não sei como lidar com os resultados da pesquisa como um grupo de itens, ordenando-os por data e respondendo ao mais recente, sem salvá-los em qualquer pasta de pesquisa.

Até agora, só consegui executar a pesquisa avançada e salvar os resultados da pesquisa em uma pasta:

    Sub test()
Dim Outl As Object
Dim TESTEfolder As Object
Dim Search As Object

Set Outl = CreateObject("Outlook.Application")
Set TESTEfolder = Outl.GetNamespace("MAPI").GetDefaultFolder(6).Folders("TESTE")
Set Search = Outl.AdvancedSearch(""" & TESTEfolder.FolderPath & """)
Search.Save ("TESTEcopy") "I want to skip this and handle the Items inside Search directly

End Sub

Notas: Tenho que usar a vinculação LATE e a Pesquisa Avançada em vez de Localizar / Restringir / InStr

Obrigado!

Respostas:

Você não precisa salvar a pesquisa. Quando a pesquisa avançada é feita, o objeto Outlook.Application está gerando um evento: https://msdn.microsoft.com/VBA/Outlook-VBA/articles/application-advancedsearch-method-outlook