Jak przenieść wiadomości e-mail od nieznanych nadawców do określonego folderu w Outlooku?
Podczas codziennej pracy możesz otrzymywać wiele wiadomości e-mail pochodzących od nieznanych nadawców, które nie są zapisane w folderze Kontakty. Mogą to być niechciane lub złośliwe wiadomości e-mail, w tym przypadku chcesz automatycznie przenieść te wiadomości e-mail do określonego folderu zamiast do skrzynki odbiorczej. Jak możesz rozwiązać tę pracę w Outlooku?
Przenieś wiadomości e-mail od nieznanych nadawców do określonego folderu, tworząc regułę
Przenieś wiadomości e-mail od nieznanych nadawców do określonego folderu, stosując kod VBA
Przenieś wiadomości e-mail od nieznanych nadawców do określonego folderu, tworząc regułę
Właściwie możesz utworzyć regułę, aby automatycznie przenosić wiadomości e-mail od nieznanych nadawców do określonego folderu, wykonaj następujące czynności:
1. Utwórz nowy folder w folderze Skrzynka odbiorcza, w którym wiadomości e-mail będą pochodzić od nieznanych nadawców, jak pokazano na poniższym zrzucie ekranu:
2. Następnie kliknij Home > Zasady > Zarządzaj regułami i alertamizobacz zrzut ekranu:
3, w Reguły i alerty okno dialogowe, kliknij Nowa zasada pod Zasady dotyczące poczty elektronicznej tab, zobacz zrzut ekranu:
4, i kliknij OK przycisk, aby przejść do Kreator regułkliknij Zastosuj regułę do otrzymanej wiadomości opcja z Zacznij od pustej reguły zakres przekroju, patrz zrzut ekranu:
5. Następnie kliknij Dalej W tym kroku nie wybieraj żadnej opcji i kliknij Dalej bezpośrednio, pojawi się okienko ostrzegawcze, kliknij Tak przycisk, zobacz zrzut ekranu:
6. W następnym oknie dialogowym zaznacz przenieś go do określonego folderu opcja w Krok 1: Wybierz działanie (a) pole listy, a następnie kliknij połączony tekst określonyiw otwartym Reguły i alerty okno dialogowe, określ folder, do którego chcesz przenieść e-maile, zobacz zrzut ekranu:
7, Kliknij OK i kliknij Dalej przycisk w tym Czy są jakieś wyjątki okno dialogowe, sprawdź z wyjątkiem sytuacji, gdy nadawca znajduje się w określonej książce adresowej opcja w Krok 1: Wybierz wyjątek (y) pole listy, a następnie kliknij połączony tekst określony, Oraz Dodaj listę adresów pojawi się okno, wybierz folder kontaktów zawierający kontakty, które chcesz z wyjątkiem, zobacz zrzut ekranu:
8. Następnie kliknij Dodaj przycisk, a następnie kliknij Dalej aby przejść do ostatniego okna kreatora, wpisz nazwę reguły w Krok 1: określ nazwę tej reguły pole tekstowe i zaznacz Włącz tę regułę opcja z Krok 2: Skonfiguruj regułę sekcja opcji. Zobacz zrzut ekranu:
9. A następnie kliknij koniec i Ok aby zamknąć okna dialogowe. Odtąd wiadomości e-mail pochodzące od nieznanych nadawców będą automatycznie przenoszone do określonego folderu.
Przenieś wiadomości e-mail od nieznanych nadawców do określonego folderu, stosując kod VBA
Być może powyższa metoda jest dla Ciebie kłopotliwa, tutaj możesz zastosować kod, aby poradzić sobie z nią tak szybko, jak to tylko możliwe.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.
Kod VBA: Automatyczne przenoszenie wiadomości e-mail od nieznanych nadawców do określonego folderu:
Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
For I = 3 To 1 Step -1
xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
Set xContactItem = xContactItems.Find(xFilter)
If TypeName(xContactItem) <> "Nothing" Then Exit For
Next
Next
If xContactItem Is Nothing Then
Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
xFound = False
For Each xSubFolder In xInboxFlds
If xSubFolder.Name = "Unknown" Then
xFound = True
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
Exit For
End If
Next
If xFound = False Then
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
End If
item.Move xTargetFolder
End If
End Sub
3. Następnie zapisz kod i zamknij okno kodu i uruchom ponownie program Outlook, aby kod zaczął obowiązywać. Odtąd, gdy wiadomości e-mail pochodzące od nieznanych nadawców będą automatycznie przenoszone do folderu Nieznane, patrz zrzut ekranu:
Uwagi: the Autor nieznany folder zostanie utworzony automatycznie, gdy pojawią się nieznane wiadomości e-mail. Możesz zmienić nazwę folderu „unknow”Innym w scenariuszu.
Najlepsze narzędzia biurowe
Kutools for Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
📧 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 ...
Ponad Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.