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

例如，您已經在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。 在裡面 宏 對話框中，單擊 跑 按鈕。

6.在彈出 搜索文件夾 對話框，請在文本框中輸入文件夾名稱，然後單擊 OK 按鈕。 看截圖：

7.然後 微軟Outlook 彈出對話框，顯示所需文件夾的路徑，然後單擊 是 按鈕。

8.然後，將立即打開指定的電子郵件文件夾。

備註：此VBA代碼可以應用於Outlook 2007、2010和2013。

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

如果您不擅長VBA，可以嘗試 Kutools for Outlook's 轉到 實用程序，可以查找和搜索具有名稱或特定字符的文件夾，然後直接轉到該文件夾

免費安裝 Kutools for Outlook，然後執行以下步驟：

1。 點擊 Kutools 加 > 轉到.

2。 在裡面 轉到 在對話框中，在搜索欄中鍵入文件夾名稱或特定字符，然後列出相關文件夾。

3.雙擊要打開的文件夾名稱，然後打開該文件夾。

  演示

---

最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……

📧 電子郵件自動化: 外出（適用於 POP 和 IMAP）  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送（進階規則）   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版: 批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索！ 按此處了解更多。

了解更多       免費下載      購買