Jak szybko przejść do folderu wyników wyszukiwania w Outlooku i otworzyć go?

W programie Outlook możesz wyszukiwać wiadomości e-mail na podstawie określonego tekstu za pomocą funkcji wyszukiwania. Ale jeśli przeszukujesz wszystkie elementy programu Outlook, nie możesz szybko znaleźć folderu wyników wyszukiwania. W tym przypadku mam kilka sztuczek, które pomogą Ci szybko przejść do folderu wyników wyszukiwania i otworzyć go.

Przejdź do i otwórz folder wyników wyszukiwania za pomocą VBA

Przejdź do folderu wyników wyszukiwania i otwórz go, klikając prawym przyciskiem myszy

Przejdź do i otwórz folder wyników wyszukiwania za pomocą VBA

W Outlooku nie ma wbudowanej funkcji, która może obsłużyć to zadanie, z wyjątkiem kodu VBA.

Przed użyciem kodu VBA musisz wyświetlić nazwę folderu w wyszukiwanych wynikach.

1. kliknij Zobacz i wysłuchaj > Dodaj kolumny.

2. w Pokaż kolumny dialog i w Wybierz dostępne kolumny z listę rozwijaną wybierz Wszystkie pola poczty, A następnie wybierz W folderze Dostępne kolumny lista.

3. kliknij Dodaj dodać W folderach do Pokaż te kolumny w tej kolejności listę, a następnie kliknij Podnieść przycisk, aby przenieść W folderze do szczyt.

4. kliknij OK aby zamknąć okno. Teraz podczas wyszukiwania wiadomości e-mail nazwa folderu będzie wyświetlana w wynikach wyszukiwania.

5. Teraz naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł aby utworzyć nowy moduł.

6. Skopiuj i wklej poniższy kod do modułu.

VBA: przejdź do folderu według nazwy

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. naciśnij F5 Aby włączyć kod, wprowadź nazwę folderu, do którego chcesz przejść, w oknie dialogowym.

8. kliknij OK, pojawi się okno dialogowe przypominające o lokalizacji folderu, kliknij Tak aby przejść bezpośrednio do folderu, lub kliknij Nie anulować.

Przejdź do folderu wyników wyszukiwania i otwórz go, klikając prawym przyciskiem myszy

Jeśli masz Kutools dla programu Outlook, będzie Otwórz folder narzędzie osadzone w menu prawym przyciskiem myszy, które może szybko przejść do folderu wybranej wiadomości e-mail.

Darmowa instalacja Kutools dla programu Outlook, a następnie wykonaj poniższe czynności:

Po wyszukaniu kliknij prawym przyciskiem myszy wynik, który chcesz otworzyć jego folder, wybierz Otwórz folder z menu kontekstowego.

---

Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

• Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
• Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
• Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
• Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
• Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.

Czytaj więcej... Pobierz teraz...