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

Безплатна инсталация Kutools за Outlook и след това направете стъпките по-долу:

След търсене щракнете с десния бутон върху резултата, който искате да отворите папката му, изберете Отворена папка от контекстното меню.

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

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

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

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка