如何在 Outlook 中依名稱快速找到資料夾？

當您在 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 物件＞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. 雙擊您想前往並開啟的資料夾名稱，即可立即開啟該資料夾。

  示範