在 Outlook 中，您可以通过搜索功能根据特定文本查找邮件。但如果您在所有 Outlook 项目中进行搜索，往往难以及时定位到搜索结果所在的具体文件夹。针对这一情况，这里为您分享几种能够帮助您快速定位并打开搜索结果所在文件夹的实用技巧。

使用 VBA 快速定位并打开搜索结果所在文件夹

通过右键菜单快速定位并打开搜索结果所在文件夹

使用 VBA 快速定位并打开搜索结果所在文件夹

在 Outlook 中，除 VBA 代码外，没有内置功能可实现此操作。

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

1. 单击视图 > 添加多列。

2. 在显示列对话框中，先在选择可用列来源下拉列表中选择所有邮件字段，然后在可用列列表中选择所在文件夹。

3. 单击添加，即可将所在文件夹添加到按此顺序显示这些列列表中。然后，单击上移按钮，将所在文件夹移动到顶部。

4. 单击确定关闭对话框。现在，搜索邮件时，文件夹名称即可在搜索结果中显示。

5. 现在请按下 Alt + F11 键，打开 Microsoft Visual Basic for Applications 窗口，单击插入 > 模块，即可创建新模块。

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

VBA：按名称打开指定 Outlook 文件夹

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 键运行代码，在弹出的对话框中输入您要定位的文件夹名称。

8. 单击确定后，将弹出对话框提示文件夹位置，单击是即可直接定位到该文件夹，点击否则取消操作。

通过右键菜单快速定位并打开搜索结果所在文件夹

如果您已安装 Kutools for Outlook，打开文件夹工具将自动集成到右键菜单中，即使在搜索结果列表中，也能快速定位所选邮件所在的文件夹。

免费安装 Kutools for Outlook，然后按照以下步骤操作：

在搜索后，右键点击需要打开文件夹的搜索结果，在快捷菜单中选择 打开所在文件夹（KUTOOLS）。