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 Strona Główna > 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 Nieznany folder zostanie utworzony automatycznie, gdy pojawią się nieznane wiadomości e-mail. Możesz zmienić nazwę folderu „unknow”Innym w scenariuszu.
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.

