Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Где находится удаленная папка электронной почты?
Этот комментарий был сведен к минимуму модератором на сайте
Папка удаленных писем
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ред МакКенна, у каждой учетной записи есть каждая удаленная папка, она называется «Удаленные элементы».
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ребята,
Будет ли это также прокручивать панель папок? В большинстве случаев папка выбрана, но расположение папки не прокручивается на панели папок?
Ура,

Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL