如何在Outlook中快速轉到並打開搜索結果文件夾？

在Outlook中，您可以使用“搜索”功能根據特定的文本搜索電子郵件。 但是，如果要搜索所有Outlook項目，則無法快速找到搜索結果的文件夾。 在這種情況下，這裡有一些技巧可以幫助您快速轉到並打開搜索結果的文件夾。

轉到並使用VBA打開搜索結果文件夾

轉到並通過右鍵單擊打開搜索結果文件夾

轉到並使用VBA打開搜索結果文件夾

在Outlook中，除了VBA代碼外，沒有內置函數可以處理此作業。

在使用VBA代碼之前，您需要在搜索結果中顯示文件夾名稱。

1。 點擊 瀏覽 > 添加列.

2。 在裡面 顯示列 對話中 從中選擇可用的列 下拉列表，選擇 所有郵件字段“，然後選擇” 在資料夾中 ，在 可用列 名單。

3。 點擊 加入 加上 在文件夾中 至 按此順序顯示這些列 列表，然後單擊 提升 按鈕移動 在文件夾中 頂端。

4。 點擊 OK 關閉對話框。 現在，當您搜索電子郵件時，文件夾名稱將顯示在搜索結果中。

5.現在按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊 創建一個新的模塊。

6.複製以下代碼並將其粘貼到模塊中。

VBA：按名稱轉到文件夾

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。 點擊 OK，會彈出一個對話框，提醒您文件夾的位置，單擊 是 直接轉到文件夾，或單擊 沒有 取消。

轉到並通過右鍵單擊打開搜索結果文件夾

如果你有 Kutools for Outlook，會有一個 打開文件夾 實用程序嵌入在右鍵單擊菜單中，可以快速轉到所選電子郵件的文件夾。

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

搜索後，右鍵單擊要打開其文件夾的結果，選擇 打開文件夾 從上下文菜單。

---

最佳辦公生產力工具

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

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

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

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

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

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

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

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

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

閱讀更多       免費下載      購買