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

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:

doc przenieś e-maile z nieznanego 1

2. Następnie kliknij Strona Główna > Zasady > Zarządzaj regułami i alertamizobacz zrzut ekranu:

doc przenieś e-maile z nieznanego 2

3, w Reguły i alerty okno dialogowe, kliknij Nowa zasada pod Zasady dotyczące poczty elektronicznej tab, zobacz zrzut ekranu:

doc przenieś e-maile z nieznanego 3

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:

doc przenieś e-maile z nieznanego 4

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:

doc przenieś e-maile z nieznanego 5

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:

doc przenieś e-maile z nieznanego 6

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:

doc przenieś e-maile z nieznanego 7

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:

doc przenieś e-maile z nieznanego 8

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

doc przenieś e-maile z nieznanego 9

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:

doc przenieś e-maile z nieznanego 10

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.
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
Prosimy o pozostawienie komentarzy w języku angielskim
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

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