Как быстро перейти и открыть папку с результатами поиска в Outlook?
В Outlook вы можете искать электронные письма по определенному тексту с помощью функции поиска. Но если вы просматриваете все элементы Outlook, вы не можете быстро найти папку с результатами поиска. В этом случае у меня есть несколько уловок, которые помогут вам быстро перейти к папке с результатами поиска и открыть ее.
Зайдите и откройте папку с результатами поиска с помощью VBA
Перейдите и откройте папку с результатами поиска с помощью правой кнопки мыши
Зайдите и откройте папку с результатами поиска с помощью VBA
В Outlook нет встроенной функции, способной справиться с этим заданием, кроме кода VBA.
Перед использованием кода VBA вам необходимо отобразить имя папки в результатах поиска.
1. Нажмите Вид > Добавить столбцы.
2. в Показать столбцы диалог и в Выберите доступные столбцы из выпадающий список, выберите Все поля почты, а затем выберите В папке в Доступные столбцы .
3. Нажмите Добавить добавить В папках в Показать эти столбцы в указанном порядке список, затем щелкните Двигаться вверх кнопка для перемещения В папке для вершина.
4. Нажмите OK закрыть диалог. Теперь, когда вы ищете электронные письма, имя папки будет отображаться в результатах поиска.
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 чтобы включить код, теперь введите имя папки, в которую вы хотите перейти, в диалоговом окне.
8. Нажмите OK, появится диалоговое окно с напоминанием о местонахождении папки, щелкните Да для прямого перехода к папке или щелкните Нет отменить.
Перейдите и откройте папку с результатами поиска с помощью правой кнопки мыши
Если вы только что Kutools for Outlook, будет Открыть папку Утилита встроена в контекстное меню, которое позволяет быстро перейти в папку выбранного письма.
Kutools for Outlook , Тур включает: 100+ мощные функции и инструменты для Microsoft Outlook 2016, 2013, 2010 и Office 365. |
||
Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:
После поиска щелкните правой кнопкой мыши результат, который хотите открыть папку, выберите Открыть папку из контекстного меню.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.