如何快速前往並開啟 Outlook 搜尋結果所在的資料夾？

在 Outlook 中，您可以利用搜尋功能根據特定文字查找電子郵件。然而，當您對所有 Outlook 項目進行搜尋時，可能難以快速辨識搜尋結果所在的資料夾。針對此情況，我提供幾個實用技巧，協助您迅速定位並開啟該資料夾。

使用 VBA 前往並開啟搜尋結果的資料夾

使用右鍵選單前往並開啟搜尋結果的資料夾

---

使用 VBA 前往並開啟搜尋結果的資料夾

在 Outlook 中，除了使用 VBA 程式碼外，並無內建功能可處理此任務。

在使用 VBA 程式碼前，請先於搜尋結果中顯示資料夾名稱。

1. 按一下檢視＞ 新增多欄。

2. 在顯示欄位對話方塊中，於從下列位置選取可用欄位：下拉列表中選取所有郵件欄位，然後在可用欄位清單中的 In Folder 項目進行選擇。

3. 按一下新增，將 In Folders 加入依此順序顯示這些欄位清單，再點選上移按鈕，即可將 In Folder 移至頂端！

4. 按一下確定關閉對話方塊。現在，當您搜尋電子郵件時，資料夾名稱將顯示在搜尋結果中。

5. 立即按下 Alt + F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗，再點選插入＞ 模組，即可建立新模組！

6. 將下方程式碼複製並貼上至該模組中。

VBA：依名稱打開指定 Outlook 資料夾

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. 按下 F5 鍵以執行程式碼，在對話方塊中輸入您要前往的資料夾名稱。

8. 按一下確定後，系統會彈出對話方塊提示您資料夾的位置，按一下是即可直接前往該資料夾，或按一下否取消操作。

---

使用右鍵選單前往並開啟搜尋結果的資料夾

若您已安裝 Kutools for Outlook，右鍵選單將內建「開啟資料夾」工具，即使在搜尋結果清單中，也能一鍵快速跳轉至所選郵件所在的資料夾！

免費安裝 Kutools for Outlook，然後依照以下步驟操作：

完成搜尋後，在您想開啟其資料夾的結果上按一下右鍵，從內容功能表中選取 打開所在資料夾（KUTOOLS）。