如何调出“高级查找”使用 VBA 在 Outlook 中进行对话框

Question

我知道如何使用 Outlook.AdvancedSearch() 方法进行搜索。我想要的是基于我的搜索参数，用 VBA 代码填充高级查找对话框中的构建，如下所示。

我想要的是最终用户在搜索结束时有选择地从结果中进行选择和移动。

编辑 如果这是不可能的（正如我的搜索所示），那么如何将结果保存到搜索文件夹中？当我使用 Search.Save() 方法并且该文件夹已存在时，我收到错误。至少我希望在搜索完成后使搜索文件夹处于活动状态。

Answer 1

您可以使用以下代码在命名空间 ns 中解析文件夹：

ns.Folders("Personal Folders").Folders("Inbox")

在此线程中找到：访问 Outlook 默认文件夹

因此，您可以在创建搜索文件夹之前检查它是否已存在。

您还可以防止错误或处理它，例如：

On Error Resume Next
'Create folder (won't raise error if already exists)
On Error GoTo 0

最终，要激活搜索文件夹，您可以使用CurrentFolder属性：

Sub ChangeCurrentFolder()
    Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myolApp.ActiveExplorer.CurrentFolder = _
    myNamespace.GetDefaultFolder(olFolderCalendar)
End Sub

请参阅MSDN 了解更多信息。