E-mails met verschillende kleurcategorieën automatisch verplaatsen naar verschillende mappen in Outlook

Outlook-oplossingen 29 september 2025

Als je wilt dat Outlook e-mails automatisch naar verschillende mappen verplaatst wanneer je er verschillende kleurcategorieën aan toewijst, kun je de methode gebruiken die in dit bericht wordt beschreven.

Veel gebruikers verlangen naar methoden om een e-mail automatisch naar een specifieke map te verplaatsen wanneer er een bepaalde kleurcategorie aan is toegewezen. Zonder enige twijfel biedt Outlook niet zo'n directe functie om dit te realiseren. Daarom zullen we je in het volgende een manier leren om het te krijgen. Lees nu verder voor de gedetailleerde stappen.

E-mails met verschillende kleurcategorieën automatisch verplaatsen naar verschillende mappen

Start om te beginnen uw Outlook-programma.
Druk vervolgens in Outlook op de toetsen "Alt + F11" om toegang te krijgen tot de VBA-editor.
Plaats vervolgens de volgende VBA-code in het project "ThisOutlookSession".

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Opmerkingen:

Om items in andere mappen te verwerken, kunt u het object "objInboxFolder" wijzigen, zoals "Application.Session.GetDefaultFolder(olFolderSentMail)" voor de map "Sent Items".
Pas ook de kleurcategorieën en doelmappen die in de bovenstaande code zijn gedefinieerd aan uw specifieke situatie aan.
Bovendien kunt u "ElseIf" gebruiken om de andere optionele kleurcategorieën toe te voegen.

Plaats vervolgens de cursor in de subroutine "Application_Startup" en druk op "F5". Hiermee activeert u deze macro.
Eindelijk kun je een shot nemen. Hier is mijn voorbeeld.

Selecteer een e-mail in de map Postvak IN.
Wijs er vervolgens de kleurcategorie "Privé" aan toe.
Deze e-mail wordt onmiddellijk verplaatst naar de map "Privé" onder "Postvak IN".

Behandel uw Outlook met zorg

Misschien bent u verschillende problemen tegengekomen in uw Outlook. Vaker wel dan niet, komen ze eigenlijk voort uit uw onjuiste handelingen. U sluit uw Outlook bijvoorbeeld altijd verkeerd af, zoals plotseling uitschakelen. Of u hebt niet regelmatig een back-up van uw Outlook-gegevens gemaakt. Alle vergelijkbare acties kunnen uw Outlook veel kwetsbaarder maken. Zoals u weet, is het uiterst moeilijk om het te repareren als een PST-bestand eenmaal is beschadigd. Over het algemeen de inbox reparatieprogramma zal geen effecten hebben. U hebt geen andere keuze dan hulp te zoeken bij externe tip-top hulpprogramma's, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com