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.
Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!
- Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
- BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
- Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
- Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
- Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

