Wie verschiebe ich E-Mails von unbekannten Absendern in einen bestimmten Ordner in Outlook?

Bei Ihrer täglichen Arbeit erhalten Sie möglicherweise viele E-Mails von unbekannten Absendern, die nicht in Ihrem Kontaktordner gespeichert sind. Dies können Junk- oder böswillige E-Mails sein. In diesem Fall möchten Sie diese E-Mails automatisch in einen bestimmten Ordner anstelle des Posteingangs verschieben. Wie können Sie diesen Job in Outlook lösen?

Verschieben Sie E-Mails von unbekannten Absendern in einen bestimmten Ordner, indem Sie eine Regel erstellen

Verschieben Sie E-Mails von unbekannten Absendern in einen bestimmten Ordner, indem Sie VBA-Code anwenden

Verschieben Sie E-Mails von unbekannten Absendern in einen bestimmten Ordner, indem Sie eine Regel erstellen

Sie können eine Regel erstellen, um die E-Mails von unbekannten Absendern automatisch in einen bestimmten Ordner zu verschieben. Gehen Sie dazu wie folgt vor:

1. Erstellen Sie einen neuen Ordner unter dem Ordner "Posteingang", in dem die E-Mails von unbekannten Absendern abgelegt werden (siehe Abbildung):

doc verschiebe E-Mails von unbekannt 1

2. Dann klick Startseite > Regeln > Regeln und Warnungen verwalten, siehe Screenshot:

doc verschiebe E-Mails von unbekannt 2

3. In dem Regeln und Warnungen Dialogfeld, klicken Sie auf Neue Regel unter dem E-Mail-Regeln Registerkarte, siehe Screenshot:

doc verschiebe E-Mails von unbekannt 3

4. Und klicken Sie auf OK Taste, um die gehen Regel-Assistent, klicken Wenden Sie die Regel auf die Nachricht an, die ich erhalte Option von der Beginnen Sie mit einer leeren Regel Abschnittsfeld, siehe Screenshot:

doc verschiebe E-Mails von unbekannt 4

5. Dann klick Weiter Klicken Sie in diesem Schritt auf keine Schaltfläche, und klicken Sie auf Weiter Wenn Sie direkt auf die Schaltfläche klicken, wird ein Warnfeld angezeigt. Klicken Sie auf Ja Schaltfläche, siehe Screenshot:

doc verschiebe E-Mails von unbekannt 5

6. Überprüfen Sie im nächsten Dialogfeld Verschieben Sie es in den angegebenen Ordner Option in der Schritt 1: Aktion (en) auswählen Listenfeld, und klicken Sie dann auf den verknüpften Text angegebenund im geöffneten Regeln und Warnungen Geben Sie im Dialogfeld den Ordner an, in den Sie die E-Mails verschieben möchten. Siehe Screenshot:

doc verschiebe E-Mails von unbekannt 6

7. Klicken Sie OK Klicken Sie auf die Schaltfläche und klicken Sie weiter Weiter Knopf, in diesem Gibt es Ausnahmen? Dialog, überprüfen außer wenn sich der Absender im angegebenen Adressbuch befindet Option in der Schritt 1: Wählen Sie die Ausnahme (n) aus. Listenfeld, und klicken Sie dann auf den verknüpften Text angegebenUnd ein Adressliste hinzufügen Wenn das Feld angezeigt wird, wählen Sie einen Kontaktordner aus, der die Kontakte enthält, die Sie ausnehmen möchten. Siehe Screenshot:

doc verschiebe E-Mails von unbekannt 7

8. Dann klick Speichern Klicken Sie auf und dann auf Weiter Um zum letzten Assistenten-Dialogfeld zu gelangen, geben Sie einen Regelnamen in das Feld ein Schritt 1: Geben Sie einen Namen für diese Regel an Textfeld und aktivieren Sie Aktivieren Sie diese Regel Option von der Schritt 2: Einrichtungsregel Optionsbereich. Siehe Screenshot:

doc verschiebe E-Mails von unbekannt 8

9. Und dann klick Endziel und Ok Schaltflächen zum Schließen der Dialoge. Von nun an werden E-Mails von unbekannten Absendern automatisch in den jeweiligen Ordner verschoben.

Verschieben Sie E-Mails von unbekannten Absendern in einen bestimmten Ordner, indem Sie VBA-Code anwenden

Möglicherweise ist die oben beschriebene Methode für Sie problematisch. Hier können Sie einen Code anwenden, um so schnell wie möglich damit umzugehen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: E-Mails von unbekannten Absendern automatisch in einen bestimmten Ordner verschieben:

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 verschiebe E-Mails von unbekannt 9

3. Speichern Sie dann den Code, schließen Sie das Codefenster und starten Sie Outlook neu, damit der Code wirksam wird. Von nun an werden E-Mails von unbekannten Absendern automatisch in den Ordner "Unbekannt" verschoben (siehe Screenshot).

doc verschiebe E-Mails von unbekannt 10

Note: Das Unbekannt Der Ordner wird automatisch erstellt, wenn unbekannte E-Mails eingehen. Sie können den Ordnernamen ändern “Unbekannt”An andere im Skript.