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

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

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

Переход и открытие папки с результатами поиска с помощью контекстного меню

---

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

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

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

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

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

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

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

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

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 для Outlook, в контекстное меню добавится удобная команда «Открыть папку», которая позволяет мгновенно перейти в папку с выбранным письмом — даже прямо из списка результатов поиска.

Установите бесплатноKutools для Outlook и выполните следующие действия:

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