如何在Outlook中快速转到并打开搜索结果文件夹?
在Outlook中,您可以使用“搜索”功能根据特定的文本搜索电子邮件。 但是,如果要搜索所有Outlook项目,则无法快速找到搜索结果的文件夹。 在这种情况下,这里有一些技巧可以帮助您快速转到并打开搜索结果的文件夹。
转到并使用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 , 包括 100+ Microsoft Outlook 2016、2013、2010和Office 365的强大功能和工具。 |
||
免费安装 Kutools for Outlook,然后执行以下步骤:
搜索后,右键单击要打开其文件夹的结果,选择 打开文件夹 从上下文菜单。
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。