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 het 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:
NoteDe Onbekend map wordt automatisch aangemaakt wanneer er onbekende e-mails binnenkomen. U kunt de mapnaam wijzigen "unknow”Aan anderen in script.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.