Hoe e-mails van onbekende afzenders naar een specifieke map in Outlook verplaatsen?
In uw dagelijkse werk ontvangt u mogelijk veel e-mails van onbekende afzenders die niet zijn opgeslagen in uw Contactenmap. Dit kunnen spam- of kwaadaardige e-mails zijn, en in dat geval wilt u deze e-mails automatisch naar een specifieke map verplaatsen in plaats van naar de Inbox. Hoe kunt u dit in Outlook oplossen?
E-mails van onbekende afzenders naar een specifieke map verplaatsen door een regel te maken
E-mails van onbekende afzenders naar een specifieke map verplaatsen door VBA-code toe te passen
E-mails van onbekende afzenders naar een specifieke map verplaatsen door een regel te maken
Eigenlijk kunt u een regel maken om e-mails van onbekende afzenders automatisch naar een specifieke map te verplaatsen. Volg hiervoor de volgende stappen:
1. Maak een nieuwe map onder de Postvak IN-map aan waarin de e-mails van onbekende afzenders worden geplaatst, zoals te zien is in de volgende schermafbeelding:
2. Klik vervolgens op Start > Regels > Regels en waarschuwingen beheren, zie schermafbeelding:
3. Klik in het dialoogvenster Regels en waarschuwingen op Nieuwe regel onder het tabblad E-mailregels, zie schermafbeelding:
4. Klik op de knop OK om naar de Regelassistent te gaan, klik op de optie Regel toepassen op berichten die ik ontvang uit de sectie Beginnen met een lege regel, zie schermafbeelding:
5. Klik vervolgens op de knop Volgende. In deze stap selecteert u geen enkele optie en klikt u direct op Volgende. Er verschijnt een waarschuwingsvenster, klik op Ja, zie schermafbeelding:
6. Schakel in het volgende dialoogvenster de optie verplaatsen naar de opgegeven map aan in de lijst Acties selecteren in Stap 1, en klik vervolgens op de gekoppelde tekst opgegeven. Geef in het geopende dialoogvenster Regels en waarschuwingen de map op waar u de e-mails naartoe wilt verplaatsen, zie schermafbeelding:
7. Klik op OK en ga door met klikken op Volgende. In dit dialoogvenster Zijn er uitzonderingen, schakelt u de optie behalve als afzender in het opgegeven Adresboek staat aan in de lijst Uitzonderingen selecteren in Stap 1, en klik vervolgens op de gekoppelde tekst opgegeven. Er verschijnt een venster Adreslijst toevoegen, selecteer een contactenmap die de contacten bevat die u wilt uitsluiten, zie schermafbeelding:
8. Klik vervolgens op de knop Toevoegen en klik vervolgens op Volgende om naar het laatste wizarddialoogvenster te gaan. Voer een regelnaam in het tekstvak Regelnaam opgeven in Stap 1 in en schakel de optie Regel inschakelen aan in de sectie Regelopties instellen in Stap 2. Zie schermafbeelding:
9. Klik vervolgens op Voltooien en OK om de dialoogvensters te sluiten. Vanaf nu zullen wanneer e-mails van onbekende afzenders binnenkomen, ze automatisch naar de specifieke map worden verplaatst.
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
E-mails van onbekende afzenders naar een specifieke map verplaatsen door VBA-code toe te passen
Misschien vindt u de bovenstaande methode lastig, hier kunt u een code toepassen om het zo snel mogelijk af te handelen.
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, en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: Automatisch e-mails van onbekende afzenders 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 vervolgens de code op en sluit het codevenster, en start Outlook opnieuw op om de code van kracht te laten worden. Vanaf nu, wanneer e-mails van onbekende afzenders binnenkomen, zullen ze automatisch naar de map Onbekend worden verplaatst, zie schermafbeelding:
Opmerking: De map Onbekend wordt automatisch aangemaakt wanneer er onbekende e-mails binnenkomen. U kunt de mapnaam “Onbekend” in het script naar iets anders wijzigen.
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
