Hoe verplaatst u e-mails van onbekende afzenders automatisch naar een specifieke map in Outlook?

In uw dagelijkse werk ontvangt u mogelijk veel e-mails van onbekende afzenders die niet in uw Contactenmap staan. Deze e-mails kunnen ongewenst of zelfs schadelijk zijn. Hoe zorgt u ervoor dat dergelijke berichten automatisch naar een specifieke map worden verplaatst in plaats van naar het Postvak IN in Outlook?

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

U kunt eenvoudig een regel instellen om e-mails van onbekende afzenders automatisch naar een specifieke map te verplaatsen. Volg hiervoor deze stappen:

1. Maak een nieuwe map aan onder de map Postvak IN waarin e-mails van onbekende afzenders worden geplaatst, zoals in de volgende schermafbeelding wordt weergegeven:

2. Klik vervolgens op Start > Regels > Regels en waarschuwingen beheren, zie schermafbeelding:

3. In het dialoogvenster Regels en waarschuwingen klikt u op Nieuwe regel onder het tabblad E-mailregels, zie schermafbeelding:

4. Klik op de knop OK om naar de Regelwizard te gaan. Selecteer daar de optie Regel toepassen op berichten die ik ontvang in het vak Begin met een lege regel, zie schermafbeelding:

5. Klik vervolgens op de knop Volgende. Selecteer in deze stap geen optie en klik direct op de knop Volgende. Er verschijnt een waarschuwingsvenster; klik op de knop Ja, zie schermafbeelding:

6. In het volgende dialoogvenster vinkt u in het vak Stap 1: Actie(s) selecteren de optie naar de opgegeven map verplaatsen aan en klikt u op de gekoppelde tekst opgegeven. In het geopende dialoogvenster Regels en waarschuwingen geeft u de map op waarnaar u de e-mails wilt verplaatsen. Zie schermafbeelding:

7. Klik op de knop OK en vervolgens op de knop Volgende. In het dialoogvenster Zijn er uitzonderingen? vinkt u in het vak Stap 1: Uitzondering(en) selecteren de optie behalve als de afzender zich bevindt in opgegeven Adresboek aan en klikt u op de gekoppelde tekst opgegeven. Er verschijnt een venster Adreslijst toevoegen; selecteer hierin een contactenmap met de contacten die u wilt uitsluiten, zie schermafbeelding:

8. Klik op de knop Toevoegen en vervolgens op Volgende om naar het laatste wizardvenster te gaan. Typ een regelnaam in het vak Stap 1: Geef een naam op voor deze regel en vink de optie Deze regel inschakelen aan in het gedeelte Stap 2: Regel instellen. Zie schermafbeelding:

9. Klik daarna op de knoppen Voltooien en OK om de dialoogvensters te sluiten. Vanaf nu worden e-mails van onbekende afzenders automatisch naar de opgegeven map verplaatst.

---

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

Mogelijk vindt u de bovenstaande methode lastig. Gebruik dan een code om dit zo snel mogelijk op te lossen.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen. Kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: E-mails van onbekende afzenders automatisch naar een specifieke map verplaatsen:

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 de code op, sluit het codevenster en start Outlook opnieuw op, zodat de code van kracht wordt. Vanaf nu worden e-mails van onbekende afzenders automatisch naar de map Onbekend verplaatst. Zie schermafbeelding:

Opmerking: De map Onbekend wordt automatisch aangemaakt wanneer er e-mails binnenkomen van onbekende afzenders. U kunt de mapnaam „Onbekend” in het script wijzigen.