Перейти к основному содержанию

Как быстро перейти и открыть папку с результатами поиска в 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 для приложений окна, нажмите Вставить > Модули для создания нового модуля.

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

8. Нажмите OK, появится диалоговое окно с напоминанием о местонахождении папки, щелкните Да для прямого перехода к папке или щелкните Нет отменить.
doc перейти в открытую папку с результатами поиска 6


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

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

Kutools for Outlook , Тур включает: 100+ мощные функции и инструменты для Microsoft Outlook 2016, 2013, 2010 и Office 365.

Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:

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


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations