Aby łatwiej sprawdzać wiadomości e-mail bez odpowiedzi w programie Outlook, możesz utworzyć folder wyszukiwania dla takich wiadomości e-mail. W tym artykule dowiesz się, jak uzyskać to za pomocą programu Outlook VBA.
W poprzednim artykule „Jak automatycznie wyróżniać ważne wiadomości e-mail, na które nie odpowiedziałeś w programie Outlook”, możesz nauczyć się sposobów wyświetlania ważnych wiadomości e-mail, na które nie odpowiedziałeś, w określonym kolorze. Ale możesz czuć, że nadal jest to kłopotliwe, ponieważ musisz przeglądać wszystkie foldery poczty jeden po drugim. Dlatego chciałbyś bezpośrednio gromadzić wszystkie takie wiadomości e-mail w folderze wyszukiwania. Teraz, poniżej, nauczymy Cię używać VBA do szybkiego tworzenia takiego folderu wyszukiwania.
Utwórz folder wyszukiwania dla wszystkich wiadomości e-mail bez odpowiedzi
- Na samym początku uruchom aplikację Outlook.
- Następnie naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do edytora VBA.
- Następnie skopiuj następujący kod VBA do modułu, który nie jest używany.
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim strScope As String
Dim strRepliedProperty As String
Dim strFilter As String
Dim objSearch As Outlook.Search
'Specify the folders to be searched
'Here we use Inbox folder for an example
strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
'Search filter
strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
'Save the search folder
objSearch.Save ("Not Replied Emails")
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub
- Następnie umieść kursor w tym podprogramie.
- Następnie kliknij przycisk „F5”, aby wywołać to makro.
- Po zakończeniu działania makra zostanie wyświetlony komunikat, taki jak na poniższym rysunku.
- Wreszcie możesz zobaczyć nowy folder wyszukiwania o nazwie „Brak odpowiedzi na wiadomości e-mail”, który zawiera wszystkie wiadomości e-mail, na które nie udzielono odpowiedzi w skrzynce odbiorczej.
Zmień zakres wyszukiwania folderu wyszukiwania
W moim kodzie VBA ten folder wyszukiwania przeszukuje tylko domyślny folder skrzynki odbiorczej. Jeśli chcesz zmienić zakres wyszukiwania, możesz wykonać poniższe czynności.
- Po pierwsze, kliknij prawym przyciskiem myszy folder wyszukiwania.
- Następnie wybierz „Dostosuj ten folder wyszukiwania” z menu kontekstowego.
- Następnie w wyskakującym oknie dialogowym „Niestandardowy folder wyszukiwania” kliknij przycisk „Przeglądaj”.
- Później pojawi się nowe okno dialogowe „Wybierz folder (y)”. W nim możesz wybrać foldery, w których mają być wyszukiwane wiadomości e-mail, na które nie odpowiedziałeś.
- Wreszcie, po wybraniu, możesz po prostu kliknąć kilka „OK”, aby zastosować zmiany.
Wyeliminuj częste błędy programu Outlook
W programie Outlook często pojawiają się komunikaty o błędach, takie jak błędy związane z błędami wysyłania / odbierania, błędy związane z niedostępnym plikiem PST programu Outlook itd. Dlatego, aby szybko i skutecznie radzić sobie z tymi błędami, musisz nauczyć się lokalizować i używać narzędzie do naprawy skrzynki odbiorczej. Poza tym, w przypadku awarii wbudowanego narzędzia, sugeruje się zakup innego doskonałego narzędzia zewnętrznego, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server naprawa i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com