跳到主要内容

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

作者:孙 最后修改时间:2018-11-14

在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 for Outlook,会有一个 打开文件夹 实用程序嵌入在右键单击菜单中,可以快速转到所选电子邮件的文件夹。

Kutools for Outlook , 包括 100+ Microsoft Outlook 2016、2013、2010和Office 365的强大功能和工具。

免费安装 Kutools for Outlook,然后执行以下步骤:

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


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

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

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

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

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

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

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

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

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

 

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations