如何通过VBA/DASL在Outlook中搜索约会并解决FindNext遍历失败问题

代码的核心错误是未持久化存储日历项集合对象：每次调用oFolder.Items都会生成全新的Items集合实例，第一次调用Find是在第一个集合上执行，后续调用FindNext是在新生成的集合上执行，自然无法承接上一次的查询结果，只能拿到第一个匹配项。
另外日历场景下默认不会匹配重复周期约会的当日实例，也会导致匹配结果不全。

Sub GetAppointments()
     Dim sFilter As String
     Dim oExplorer As Outlook.Explorer
     Dim oFolder As Outlook.Folder
     Dim colItems As Outlook.Items ' 新增持久化存储Items集合的变量
     Dim oAppointment As Outlook.AppointmentItem

     sFilter = "@SQL=" & _
                 "%today(""urn:schemas:calendar:dtstart"")% AND " & _
                 "%today(""urn:schemas:calendar:dtend"")% AND " & _
                 """urn:schemas-microsoft-com:office:office#Keywords"" LIKE '%Meeting%'"

     Set oExplorer = Application.ActiveExplorer
     Set oFolder = oExplorer.CurrentFolder
     ' 先把Items集合赋值给变量，后续所有查询都操作这个变量
     Set colItems = oFolder.Items
     ' 日历查询必加配置：先按开始时间排序，再开启重复周期约会匹配，避免遗漏周期约会的当日实例
     colItems.Sort "[Start]"
     colItems.IncludeRecurrences = True

     Set oAppointment = colItems.Find(sFilter)
     ' 简化循环终止判断，不需要用TypeName判断
     Do While Not oAppointment Is Nothing
         MsgBox oAppointment.Subject & vbCr & _
                oAppointment.Start & vbCr & _
                oAppointment.End
         Set oAppointment = colItems.FindNext
     Loop
End Sub

• 新增Items集合变量：所有Find、FindNext操作都在同一个集合实例上执行，保证查询上下文连贯，可正常遍历所有匹配项
• 新增周期约会适配：开启IncludeRecurrences前必须先按开始时间排序，配置后可正常匹配到当日触发的重复约会，和Outlook内置过滤的效果完全一致
• 优化循环逻辑：用Not oAppointment Is Nothing做终止判断，执行效率更高，逻辑更直观

内容的提问来源于stack exchange，提问作者Lars Grünheid