フォルダビューに保存せずに高度な検索項目を表示するvba

Question

Outlookで事前検索を実行して、いくつかの電子メールを見つけてそのうちの1つに自動的に返信したいと考えています。

私の問題は、アイテムのグループとして検索結果を処理し、日付順に並べ替えて、検索フォルダに保存せずに最新のものに返信する方法がわかりません。

はこれまでのところ、私は、高度な検索を実行すると、フォルダの中に、検索の結果を保存することができました：

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 

注：私は/遅延バインディングを使用しており、高度な検索ではなく、検索しますRestrict/InStr

ありがとうございます！

Answer 1

検索を保存する必要はありません。高度な検索が行われると、Outlook.Applicationオブジェクトはイベントを発生させます。 https://msdn.microsoft.com/VBA/Outlook-VBA/articles/application-advancedsearch-method-outlook