показуючи елементи розширеного пошуку без збереження в папці outlook vba - excel, vba, outlook, advanced-search

Я хочу запустити попередній пошук у перспективі через excel vba, щоб знайти деякі електронні листи та створити автоматичну відповідь на один із них.

Моя проблема полягає в тому, що я не знаю, як поводитися з результатами пошуку як групи елементів, упорядковуючи їх за датою та відповідаючи на останній БЕЗ збереження їх у будь-якій папці пошуку.

Поки мені вдалося запустити лише розширений пошук і зберегти результати пошуку у папці:

    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

Примітки. Мені доводиться використовувати позначення LATE та розширений пошук, а не Find / Restrict / InStr

Дякую!

Відповіді:

Вам не потрібно зберігати пошук. Коли розширений пошук виконується, об’єкт Outlook.Application викликає подію: https://msdn.microsoft.com/VBA/Outlook-VBA/articles/application-advancedsearch-method-outlook