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

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

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

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

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

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

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

1。點擊瀏覽 > 添加列.
doc轉到打開搜索結果1的文件夾

2。在裡面 顯示列 對話中 從中選擇可用的列 下拉列表，選擇 所有郵件字段“，然後選擇” 在資料夾中 在 可用列 名單。
doc轉到打開搜索結果2的文件夾

3。點擊加入加上 在文件夾中 至 按此順序顯示這些列 列表，然後單擊提升按鈕移動 在文件夾中 頂端。
doc轉到打開搜索結果3的文件夾

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

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 鍵以啟用代碼，現在在對話框中輸入您要轉到的文件夾名稱。
doc轉到打開搜索結果5的文件夾