Hoe ontvangen e-mails automatisch naar een bepaalde map te verplaatsen na het toewijzen van een categorie in Outlook?

Stel dat je een categorie hebt toegewezen aan een ontvangen e-mail in je Outlook. Na het toewijzen van de categorie wil je dat deze e-mail automatisch wordt verplaatst naar een specifieke e-mailmap die vernoemd is naar de categorienaam. Bijvoorbeeld, een e-mail met de categorie “Privé” zal worden verplaatst naar een map genaamd “Privé” in je Outlook. Hoe kun je dit bereiken? De methode in dit artikel kan je helpen om het probleem eenvoudig op te lossen.

Verplaats e-mails naar een opgegeven map na het toewijzen van een bepaalde categorie met VBA

Verplaats e-mails naar een opgegeven map na het toewijzen van een bepaalde categorie met VBA

De onderstaande VBA-code kan helpen om e-mails automatisch naar een opgegeven map te verplaatsen na het toewijzen van een bepaalde categorie in Outlook. Volg de onderstaande stappen.

1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster om het venster ThisOutlookSession (Code) te openen. Kopieer vervolgens de onderstaande VBA-code naar het venster. Zie screenshot:

VBA-code: Verplaats e-mails naar een opgegeven map na het toewijzen van een bepaalde categorie

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. Sla de code op en herstart Outlook.

4. Vanaf nu zal er, wanneer je een categorie toewijst aan een ontvangen e-mail, automatisch een map met de categorienaam worden aangemaakt onder de Postvak IN-map, waar de e-mail ook naartoe wordt verplaatst. Zie screenshot:

Notitie: Alle e-mails met dezelfde categorie zullen automatisch naar dezelfde map worden verplaatst. Maar als een nieuwe categorie wordt toegewezen aan een e-mail, zal er automatisch een nieuwe map worden aangemaakt.

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

Gerelateerde artikelen:

• Hoe een categorie toe te wijzen aan een uitgaande e-mail in Outlook?
• Hoe de originele categorieën te behouden bij het beantwoorden of doorsturen van e-mails in Outlook?