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 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.
Kutools for Outlook , zawiera 100 + zaawansowane funkcje i narzędzia dla Microsoft Outlook 2016, 2013, 2010 i Office 365. |
||
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.
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.