顯示高級搜索的項目，而不保存在文件夾展望vba

Question

我想通過excel vba在Outlook中運行高級搜索，以便找到一些電子郵件並創建一個自動回覆其中之一。

我的問題是，我不知道如何處理作爲一組項目的搜索結果，按日期排序，並回復最近的一個沒有保存在任何搜索文件夾。

到目前爲止，我只能夠運行高級搜索和搜索結果保存到一個文件夾：

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 

注：我必須使用後期綁定和高級搜索，而不是查找/限制/ InStr

謝謝！

Answer 1

您不需要保存搜索。高級搜索完成後，Outlook.Application對象正在引發一個事件： https://msdn.microsoft.com/VBA/Outlook-VBA/articles/application-advancedsearch-method-outlook