如何在Outlook中快速转到并打开搜索结果文件夹？

在Outlook中，您可以使用“搜索”功能根据特定的文本搜索电子邮件。但是，如果要搜索所有Outlook项目，则无法快速找到搜索结果的文件夹。在这种情况下，这里有一些技巧可以帮助您快速转到并打开搜索结果的文件夹。

转到并使用VBA打开搜索结果文件夹

转到并通过右键单击打开搜索结果文件夹

转到并使用VBA打开搜索结果文件夹

在Outlook中，除了VBA代码外，没有内置函数可以处理此作业。

在使用VBA代码之前，您需要在搜索结果中显示文件夹名称。

1。点击查看 > 添加列.
doc转到打开搜索结果1的文件夹

2。在里面 显示列 对话框中 从中选择可用的列 下拉列表，选择 所有邮件字段，然后选择 在资料夹中 在 可用列 名单。
doc转到打开搜索结果2的文件夹

3。点击加入添加 在文件夹中 至 按此顺序显示这些列 列表，然后单击提升按钮移动 在文件夹中 顶端。
doc转到打开搜索结果3的文件夹

4。点击 OK 关闭对话框。现在，当您搜索电子邮件时，文件夹名称将显示在搜索结果中。
doc转到打开搜索结果4的文件夹

5.现在按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块创建一个新的模块。

6.复制以下代码并将其粘贴到模块中。

VBA：按名称转到文件夹

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7。按 F5 键以启用代码，现在在对话框中输入您要转到的文件夹名称。
doc转到打开搜索结果5的文件夹

8。点击 OK，会弹出一个对话框，提醒您文件夹的位置，单击有直接转到文件夹，或单击没有取消。
doc转到打开搜索结果6的文件夹

转到并通过右键单击打开搜索结果文件夹

如果你有 Kutools 展望，会有一个 打开文件夹 实用程序嵌入在右键单击菜单中，可以快速转到所选电子邮件的文件夹。

Kutools for Outlook , 包括超过100个 Microsoft Outlook 2016、2013、2010和Office 365的强大功能和工具。
前往下载 45天免费试用