Як швидко перейти та відкрити папку результатів пошуку в 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

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

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

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

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

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити