如何在 Outlook 中通过名称查找文件夹？

例如，当您在 Outlook 中创建了众多邮件文件夹后，每当需要打开某个特定的个人文件夹时，往往需要逐级展开多个文件夹，直到找到目标文件夹。仅仅为了打开一个指定的个人文件夹而反复展开，确实非常繁琐。其实，只要您记得文件夹名称，操作就会变得轻松许多。本教程将为您介绍一种通过输入文件夹名称即可查找并快速定位目标文件夹的方法，无需逐层展开，助您高效管理邮件。

使用 VBA 代码按名称查找 Outlook 文件夹

通过 Kutools for Outlook 实现在 Outlook 中跨账户按名称搜索文件夹

---

使用 VBA 代码按名称查找 Outlook 文件夹

通过以下 VBA 代码，您可以轻松根据文件夹名称查找目标文件夹。

注意：请务必记住文件夹名称，才能使用此 VBA 代码。

1. 请按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 然后双击 Project 1 > Microsoft Outlook Object > ThisOutlookSession，即可打开 Project 1 – ThisOutlookSession 窗口。见下图：

3. 请将以下 VBA 代码复制并粘贴到 Project 1 – ThisOutlookSession 窗口中。

VBA：按名称查找文件夹

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. 随后按下 F5 键即可运行 VBA 代码。

5. 在宏对话框中，点击运行按钮即可。

6. 在弹出的搜索文件夹对话框中，在文本框内输入文件夹名称，然后点击确定按钮。见下图：

7. 弹出 Microsoft Outlook 对话框后，将显示目标文件夹的路径，然后点击是按钮。

8. 随后，所选的邮件文件夹将会立即打开。

注意：此 VBA 代码适用于 Outlook 2007、2010 和 2013.

---

通过 Kutools for Outlook 实现在 Outlook 中跨账户按名称搜索文件夹

如果您不熟悉 VBA，也可以尝试 Kutools for Outlook 的定位到工具，可以通过名称或特定字符查找并搜索文件夹，直接跳转到相应文件夹

免费下载并安装 Kutools for Outlook，然后按照以下步骤操作：

1. 点击 KUTOOLS PLUS > 文件夹 > 定位到。

2. 在定位到对话框的搜索栏中输入文件夹名称或特定字符，即可快速列出相关文件夹。

3. 双击您希望访问并打开的文件夹名称，即可立即打开该文件夹。

  演示