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

Author: Siluvia Last Modified: 2025-05-07

例如，您在Outlook中创建了许多邮件文件夹，当需要打开某个指定的个人文件夹时，您必须展开多个文件夹，直到找到那个指定的文件夹。为了打开一个指定的个人文件夹而逐一展开多个文件夹是非常麻烦的。实际上，如果您记得文件夹名称，一切都会变得简单。在本教程中，我们将为您提供一种通过名称查找Outlook中的文件夹的方法，而不是逐个展开文件夹来查找目标文件夹。

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

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

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

使用以下VBA代码，您可以轻松通过名称找到指定的文件夹。

便笺：您需要记住文件夹名称才能使用此VBA代码。

1. 按键盘上的Alt + F11键以打开Microsoft Visual Basic for Applications窗口。

2. 然后双击Project1 > Microsoft Outlook Object > ThisOutlookSession以打开Project1 – ThisOutlookSession窗口。请参见截图：

the screenshot of step about finding folder by name in Outlook with VBA code

3. 将以下VBA代码复制并粘贴到Project1 – 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. 在“宏”对话框中，单击“运行”按钮。