Как быстро перейти и открыть папку с результатами поиска в Outlook?

Author Sun Last modified 2025-08-26

В Outlook вы можете искать электронные письма на основе определенного текста с помощью функции поиска. Однако, если вы просматриваете все элементы Outlook, вы не сможете быстро найти папку с результатами поиска. В этом случае у меня есть несколько советов, которые помогут вам быстро перейти и открыть папку с результатами поиска.

Перейти и открыть папку с результатами поиска с помощью VBA

Перейти и открыть папку с результатами поиска с помощью правой кнопки мыши

Перейти и открыть папку с результатами поиска с помощью VBA

В Outlook нет встроенной функции, которая могла бы справиться с этой задачей, кроме кода VBA.

Прежде чем использовать код VBA, вам нужно отобразить имя папки в результатах поиска.

1. Нажмите Вид > Добавить столбцы.

doc go to open folder of searching result 1

2. В диалоговом окне Показать столбцы и в раскрывающемся списке Выбрать доступные столбцы выберите Все поля почты, затем выберите Папка в списке доступных столбцов.

doc go to open folder of searching result 2

3. Нажмите Добавить, чтобы добавить Папки в список Показать эти столбцы в указанном порядке, затем нажмите кнопку Переместить вверх, чтобы переместить Папку наверх.

doc go to open folder of searching result 3

4. Нажмите ОК, чтобы закрыть диалоговое окно. Теперь, когда вы ищете электронные письма, имя папки будет отображаться в результатах поиска.

doc go to open folder of searching result 4

5. Теперь нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, нажмите Вставить > Модуль, чтобы создать новый модуль.

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 go to open folder of searching result 5

8. Нажмите ОК, появится диалоговое окно с напоминанием о местоположении папки, нажмите Да, чтобы сразу перейти к папке, или нажмите Нет, чтобы отменить.

doc go to open folder of searching result 6

Перейти и открыть папку с результатами поиска с помощью правой кнопки мыши

Если у вас есть Kutools для Outlook, утилита Открыть папку будет интегрирована в контекстное меню правой кнопки мыши, что позволит быстро перейти к папке выбранного электронного письма даже в списке результатов поиска.

👉 У Kutools for Outlook теперь есть бесплатная версия, в которой 70+ функций доступны бесплатно на всю жизнь. Скачать бесплатную версию сейчас.

Установите бесплатно Kutools для Outlook, а затем следуйте указаниям ниже:

После поиска щелкните правой кнопкой мыши по результату, папку которого вы хотите открыть, и выберите Открыть в папке (Kutools) из контекстного меню.