Hoe verplaats ik e-mails van onbekende afzenders naar een specifieke map in Outlook? 

Tijdens uw dagelijkse werk kunt u veel e-mails ontvangen van onbekende afzenders die niet zijn opgeslagen in uw map Contacten. Dit kunnen ongewenste of schadelijke e-mails zijn. In dit geval wilt u deze e-mails automatisch naar een specifieke map verplaatsen in plaats van naar de Inbox. Hoe zou je deze klus in Outlook kunnen oplossen?

Verplaats e-mails van onbekende afzenders naar een specifieke map door een regel te maken

Verplaats e-mails van onbekende afzenders naar een specifieke map door VBA-code toe te passen

---

Verplaats e-mails van onbekende afzenders naar een specifieke map door een regel te maken

Eigenlijk kunt u een regel maken om de e-mails van onbekende afzenders automatisch naar een specifieke map te verplaatsen, doe dit als volgt:

1. Maak een nieuwe map onder de Inbox-map waarin de e-mails van onbekende afzenders worden geplaatst, zoals in het volgende screenshot wordt getoond:

2. Dan klikken Home > Reglement > Beheer regels en waarschuwingen, zie screenshot:

3. In de Regels en waarschuwingen dialoogvenster, klik Nieuwe regel onder de E-mailregels tabblad, zie screenshot:

4. En klik op OK knop om naar de Regel Wizard, Klik Regel toepassen op bericht dat ik ontvang optie van de Begin met een lege regel sectievak, zie screenshot:

5. Dan klikken Volgende Selecteer in deze stap geen optie en klik op Volgende knop, verschijnt er een waarschuwingsvenster, klik alstublieft Ja knop, zie screenshot:

6. En vink in het volgende dialoogvenster aan verplaats het naar de opgegeven map optie in het Stap 1: Selecteer actie (s) keuzelijst en klik vervolgens op de gekoppelde tekst gespecificeerd, en in de geopende Regels en waarschuwingen dialoogvenster, specificeer de map waar u de e-mails naartoe wilt verplaatsen, zie screenshot:

7. Klikken OK knop, en blijf klikken Volgende knop, hierin Zijn er uitzonderingen dialoogvenster, vink aan behalve als de afzender in het opgegeven adresboek staat optie in het Stap 1: Selecteer uitzondering (s) keuzelijst en klik vervolgens op de gekoppelde tekst gespecificeerdEn een Adreslijst toevoegen box zal verschijnen, selecteer een contactenmap die de contacten bevat die u wilt behouden, zie screenshot:

8. Dan klikken Toevoegen knop en klik vervolgens op Volgende Typ een regelnaam in het Stap 1: Specificeer een naam voor deze regel tekstvak en vink aan Schakel deze regel in optie van de Stap 2: regel instellen opties sectie. Zie screenshot:

9. En klik vervolgens op Finish en Ok knoppen om de dialoogvensters te sluiten. Vanaf nu worden e-mails die afkomstig zijn van onbekende afzenders, automatisch naar de specifieke map verplaatst.

---

Verplaats e-mails van onbekende afzenders naar een specifieke map door VBA-code toe te passen

Misschien is de bovenstaande methode lastig voor u, hier kunt u een code toepassen om er zo snel mogelijk mee om te gaan.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van de Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: verplaats automatisch e-mails van onbekende afzenders naar een specifieke map:

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. Sla vervolgens de code op en sluit het codevenster en start Outlook opnieuw om de code van kracht te laten worden. Vanaf nu, wanneer de e-mails afkomstig zijn van onbekende afzenders, worden ze automatisch naar de map Onbekend verplaatst, zie screenshot:

Opmerking:De Onbekend map wordt automatisch aangemaakt wanneer er onbekende e-mails binnenkomen. U kunt de mapnaam wijzigen "unknow”Aan anderen in script.