如何在Outlook中按名稱查找文件夾？

新增一名作者最後修改時間：2024-08-28

例如，您已經在Outlook中創建了許多電子郵件文件夾，當需要打開指定的個人文件夾時，您必須展開多個文件夾，直到顯示該指定的文件夾為止。僅為了打開指定的個人文件夾而一個接一個地擴展多個文件夾是很麻煩的。實際上，如果您記住了文件夾名稱，所有內容將變得很容易。在本教程中，我們將為您提供一種在Outlook中按名稱查找文件夾的方法，而不是一個個地展開文件夾以查找文件夾。

使用VBA代碼在Outlook中按名稱查找文件夾

通過Kutools for Outlook在Outlook中跨帳戶按名稱搜索文件夾

使用VBA代碼在Outlook中按名稱查找文件夾

使用以下VBA代碼，您可以通過名稱輕鬆找到指定的文件夾。

備註注意：要使用此VBA代碼，您需要記住文件夾名稱。

1。按其他 + F11 鍵盤上的按鍵打開 Microsoft Visual Basic for Applications 窗口。

2.然後雙擊 Project1 > Microsoft Outlook對象 > 本次展望會議 打開 項目1 – ThisOutlookSession 窗口。看截圖：

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。在裡面宏對話框中，單擊運行按鈕。