如何在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,会弹出一个对话框,提醒您文件夹的位置,单击 有 直接转到文件夹,或单击 没有 取消。
转到并通过右键单击打开搜索结果文件夹
如果你有 Kutools 展望,会有一个 打开文件夹 实用程序嵌入在右键单击菜单中,可以快速转到所选电子邮件的文件夹。
Kutools for Outlook , 包括 超过100个 Microsoft Outlook 2016、2013、2010和Office 365的强大功能和工具。 |
||
免费安装 Kutools for Outlook,然后执行以下步骤:
搜索后,右键单击要打开其文件夹的结果,选择 打开文件夹 从上下文菜单。
Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!
- 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
- BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
- 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
- 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
- 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。

