如何在Outlook中按文件夹名称查找文件夹(完整的文件夹路径)?
例如,在“导航”窗格中,您将某个文件夹错误地移动到Outlook中,然后将其放到一个未知的文件夹中,您想还原此文件夹,但无法立即找到它。 不幸的是,Outlook不支持 找到最适合您的地方 与Microsoft Word或Excel中的功能相同。 别担心! 您可以应用VBA宏来解决Outlook中的此问题。
使用出色的工具按文件夹名称快速搜索和打开文件夹
一般来说,我们可以用VBA代码按文件夹名称搜索文件夹。大多数VBA代码可以搜索当前邮箱中的文件夹,并仅打开第一个找到的文件夹。现在,通过 Kutools for Outlook 的“转到”功能,您可以轻松地按文件夹名称查找文件夹,并根据需要打开找到的任何文件夹。
使用VBA按文件夹名称查找文件夹(完整文件夹路径)
请按照以下步骤在Outlook中使用VBA按文件夹名称搜索文件夹。
1。 按 其他 + F11 键一起打开Microsoft Visual Basic for Applications窗口。
2。 点击 插页 > 模块,然后将以下VBA代码粘贴到新的“模块”窗口中。
VBA:在Outlook中按文件夹名称搜索和打开文件夹
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3。 按 F5 键或单击 运行 按钮以运行此VBA。
4。 在弹出的搜索文件夹对话框中,输入您要搜索的指定文件夹名称,然后单击 OK 按钮。 看截图:
备注:此VBA支持星号通配符。 例如,您可以输入 特斯* 找出所有名称以开头的文件夹 TES.
5。 现在出现一个对话框,显示找到的文件夹的文件夹路径。 如果您需要打开找到的文件夹,请单击 是 按钮。
现在,找到的文件夹正在“导航”窗格中打开,如下图所示:
备注:如果有多个使用指定名称命名的文件夹,则此VBA只能找到并打开一个文件夹。
通过出色的工具按文件夹名称搜索文件夹
如果您安装了 Outlook 的 Kutools,您可以应用其“转到”功能来快速查找某个文件夹名称的所有文件夹,并轻松打开任何找到的文件夹。
Kutools for Outlook:通过 100 多种必备工具增强 Outlook 功能。 60 天免费试驾,无任何附加条件! 阅读更多 立即下载!
1。 点击 Kutools 加 > 转到 启用此功能。
2。 在“转到”对话框中,请在 搜索 框,在搜索结果中选择一个文件夹,然后单击 Ok 按钮。
现在,找到具有特定文件夹名称的指定文件夹并立即打开。
相关文章:
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。