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

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

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

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

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

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

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

1。 点击 查看 > 添加列.

2.在 显示列 对话框中 从中选择可用的列 下拉列表，选择 所有邮件字段，然后选择 在资料夹中 ，在 可用列 名单。

3。 点击 地址 添加 在文件夹中 至 按此顺序显示这些列 列表，然后单击 提升 按钮移动 在文件夹中 顶端。

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

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 键以启用代码，现在在对话框中输入您要转到的文件夹名称。

8。 点击 OK，会弹出一个对话框，提醒您文件夹的位置，单击 USB MIDI（XNUMX通道） 直接转到文件夹，或单击 没有 取消。

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

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

免费安装 Kutools for Outlook，然后执行以下步骤：

搜索后，右键单击要打开其文件夹的结果，选择 打开文件夹 从上下文菜单。

---

最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件！ ...

📧 电子邮件自动化: 外出（适用于 POP 和 IMAP）  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发（高级规则）   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版: 批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

超过 100特点 等待您的探索！ 单击此处了解更多。

了解更多       免费下载      购买