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.