Як швидко перейти та відкрити папку результатів пошуку в Outlook?

У програмі Outlook ви можете шукати електронні листи на основі конкретного тексту за допомогою функції пошуку. Але, якщо ви шукаєте всі елементи Outlook, ви не можете швидко дізнатись папку результату пошуку. У цьому випадку у мене є кілька хитрощів, які допоможуть вам швидко перейти та відкрити папку результату пошуку.

Перейдіть і відкрийте папку результатів пошуку за допомогою VBA

Перейдіть і відкрийте папку результатів пошуку за допомогою правої кнопки миші

Перейдіть і відкрийте папку результатів пошуку за допомогою VBA

У програмі Outlook немає жодної вбудованої функції, яка може обробляти цю роботу, крім коду VBA.

Перед використанням коду VBA вам потрібно відобразити ім'я папки в результатах пошуку.

1. клацання вид > Додати стовпці.

2 В Показати стовпці діалогове вікно та в Виберіть доступні стовпці з у спадному списку виберіть Усі поля Mail, Потім виберіть У папці в Доступні стовпці список

3. клацання додавати додати У папках до Показати ці стовпці в такому порядку список, а потім натисніть Рухатися вгору кнопку для переміщення У папці до вершина.

4. клацання OK щоб закрити діалогове вікно. Тепер, коли ви шукаєте електронні листи, назва папки буде відображатися в результатах пошуку.

5. Тепер натисніть Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі створити новий модуль.

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 для Outlook, буде Відкрити папку утиліта, вбудована в меню правої клавіші миші, яка може швидко перейти до папки вибраного повідомлення електронної пошти.

Безкоштовна установка Kutools для Outlook, а потім виконайте наведені нижче дії:

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

---

Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

• Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
• Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
• Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
• Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
• Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.

Детальніше ... Скачати зараз...