展望VBA:将两个文件夹对象连接在一起以进行排序/限制过滤器



我在Outlook中有两个任务文件夹。我想从它们创建一个集合,我可以对它们使用排序和限制。我该怎么做?

例如

Set FolderTasks1 = Application.Session.GetDefaultFolder(olFolderToDo).Items
Set FolderTasks2 = Application.Session.Accounts("xx@outlook.com").DeliveryStore.GetDefaultFolder(olFolderToDo).Items
[insert magic joining thing here. Call the new collection joinedTasks]
strFilter = Format(Now, "ddddd")
strFilter = "[Start Date] <= " & Chr(34) & strFilter & Chr(34) & " And Not [status] = ""Completed"" And Not [Categories] = ""Project"""
joinedTasks.Sort "[Start Date]"
Set ListOfTasks = joinedTasks.Restrict(strFilter)

我尝试遍历两个文件夹并创建一个集合,但随后我失去了对集合进行排序和限制的能力。

我正在构建一个工具,该工具将允许我在 Outlook 中查看所有任务。我可以让它分别适用于每个文件夹,但我想为所有文件夹(两个不同的帐户)中的所有任务执行此操作。

通常,只能对单个文件夹项目执行Items.Sort/Restrict。无法执行联接。

但是,您可以使用 Application.AdvancedSearch 创建搜索文件夹。您可以在 Scope 参数中指定多个文件夹。请记住,高级搜索是异步的,因此您需要订阅 Application.AdvancedSearchComplete 事件。

相关内容

  • 没有找到相关文章

最新更新