Note: The other languages of the website are Google-translated. Back to English

 Jak utworzyć folder wyszukiwania dla wszystkich wiadomości e-mail bez odpowiedzi w Outlooku?

Jeśli chcesz sprawdzić wiadomości e-mail, na które nie udzielono odpowiedzi w programie Outlook, przeszukiwanie ich pojedynczo zajmie dużo czasu. W tym artykule omówię tworzenie folderu wyszukiwania dla wszystkich wiadomości, na które nie udzielono odpowiedzi.

Utwórz folder wyszukiwania dla wszystkich wiadomości e-mail bez odpowiedzi w programie Outlook z kodem VBA


Utwórz folder wyszukiwania dla wszystkich wiadomości e-mail bez odpowiedzi w programie Outlook z kodem VBA

Poniższy kod VBA może pomóc w utworzeniu folderu wyszukiwania, w którym będą umieszczane wszystkie wiadomości e-mail, na które nie udzielono odpowiedzi, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Utwórz folder wyszukiwania dla wiadomości e-mail, na które nie udzielono odpowiedzi:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty, jak pokazano na poniższym zrzucie ekranu:

folder wyszukiwania dokumentów bez odpowiedzi 1

4, Kliknij OK przycisk, teraz otrzymasz plik E-maile bez odpowiedzi folder pod Wyszukaj foldery dla każdego konta w Twoim Outlooku, a wszystkie e-maile bez odpowiedzi są wyświetlane tutaj, zobacz zrzut ekranu:

folder wyszukiwania dokumentów bez odpowiedzi 2


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.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL