跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

如何在Outlook中通过文件夹名称查找文件夹(完整文件夹路径)?

Author: Kelly Last Modified: 2025-08-22

例如,在导航窗格中,您不小心将一个文件夹移动并拖放到一个未知的文件夹中。您想恢复这个文件夹,但无法立即找到它。不幸的是,Outlook不像Microsoft Word或Excel那样支持“查找”功能。别担心!您可以使用VBA宏来解决Outlook中的这个问题。


通过VBA按文件夹名称查找文件夹(完整文件夹路径)

请按照以下步骤在Outlook中通过文件夹名称使用VBA搜索文件夹。

1. 同时按下“Alt” + “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. 在弹出的“搜索文件夹”对话框中,请输入要搜索的指定文件夹名称,然后点击“确定”按钮。
doc-search-by-folder-name-1
注意:此VBA支持星号通配符。例如,您可以输入tes*以查找所有名称以tes开头的文件夹。

5. 现在一个对话框弹出并显示找到的文件夹路径。如果您需要打开找到的文件夹,请点击“是”按钮。
doc-search-by-folder-name-2

现在,找到的文件夹已在导航窗格中打开,如下截图所示:
doc-search-by-folder-name-3

注意:如果有多个文件夹使用指定名称命名,则此VBA只能找到并打开其中一个文件夹。

Outlook中的AI邮件助手:更智能的回复,更清晰的沟通(一键搞定!) 免费

使用Kutools for Outlook的AI邮件助手简化您的日常Outlook任务。这一强大工具会从您过去的邮件中学习,提供智能化且精准的回复建议,优化您的邮件内容,并帮助您轻松起草和润色邮件。
doc ai email handle

该功能支持:

  • 智能回复:根据您以往的对话生成量身定制、精准且即用的回复。
  • 增强内容:自动优化您的邮件文本,使其更加清晰且有影响力。
  • 轻松撰写:只需提供关键字,AI即可完成其余工作,并支持多种写作风格。
  • 智能扩展:通过上下文感知的建议扩展您的思路。
  • 总结概括:快速获取长邮件的简洁概述。
  • 全球覆盖:轻松将您的邮件翻译成任何语言。

该功能支持:

  • 智能邮件回复
  • 优化后的内容
  • 基于关键字的草稿
  • 智能内容扩展
  • 邮件总结
  • 多语言翻译

最重要的是,此功能永久完全免费不要再犹豫了——立即下载AI邮件助手并体验吧


通过一个神奇工具按文件夹名称搜索文件夹

如果您已安装“Kutools for Outlook”,则可以应用其“打开文件夹”功能快速按某个文件夹名称找到所有文件夹,并轻松打开任何一个找到的文件夹。

告别Outlook效率低下的问题!Kutools for Outlook让批量邮件处理更轻松——现在还提供免费的AI功能!立即下载Kutools for Outlook!

1. 点击“Kutools Plus” > “打开文件夹”以启用此功能。
doc-search-by-folder-name-4

2. 在“打开文件夹”对话框中,请在“搜索”框中输入指定的文件夹名称,选择搜索结果中的一个文件夹,然后点击“确定”按钮。
doc-search-by-folder-name-5

现在,具有特定文件夹名称的指定文件夹已被找到并立即打开。
doc-search-by-folder-name-6


相关文章:


最佳 Office 办公效率工具

最新消息:Kutools for Outlook 推出免费版!

体验全新 Kutools for Outlook,超过100 种强大功能!立即点击下载!

🤖 Kutools AI 采用先进的 AI 技术,轻松处理邮件,包括答复、总结、优化、扩展、翻译和撰写邮件。

📧 邮箱自动化自动答复(支持 POP 和 IMAP) /计划发送邮件 /发送邮件时按规则自动抄送密送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人的邮件分割为单独邮件 ...

📨 邮件管理撤回邮件 / 按主题及其他条件阻止欺诈邮件 / 删除重复邮件 / 高级搜索 / 整合文件夹 ...

📁 附件增强批量保存 / 批量拆离 / 批量压缩 / 自动保存 / 自动拆离 / 自动压缩 ...

🌟 界面魔法😊更多美观酷炫的表情 /重要邮件到达时提醒 / 最小化 Outlook 而非关闭 ...

👍 一键高效操作带附件全部答复 / 防钓鱼邮件 / 🕘显示发件人时区 ...

👩🏼‍🤝‍👩🏻 联系人与日历批量添加选中邮件中的联系人 / 分割联系人组为单独的组 / 移除生日提醒 ...

可根据您偏好选择 Kutools 使用语言——支持英语、西班牙语、德语、法语、中文及40 多种其他语言!

只需点击一下即可立即激活 Kutools for Outlook。无需等待,立即下载,提升工作效率!

kutools for outlook features1 kutools for outlook features2

🚀 一键下载——获取所有 Office 插件

强烈推荐:Kutools for Office(五合一)

一键下载五个安装包Kutools for Excel、Outlook、Word、PowerPoint以及 Office Tab Pro 立即点击下载!

  • 一键便利操作:一次下载全部五个安装包。
  • 🚀 随时满足 Office任务需求:需要哪个插件随时安装即可。
  • 🧰 包含:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint