Hoe verplaats ik e-mails naar een opgegeven map nadat ik ze een bepaalde categorie heb toegewezen in Outlook?
Stel dat u een categorie hebt toegewezen aan een ontvangen e-mail in Outlook. Na het toewijzen van de categorie wilt u dat deze e-mail automatisch wordt verplaatst naar een map met dezelfde naam als de categorie — bijvoorbeeld een e-mail met de categorie „Privé” naar de map „Privé”. Hoe realiseert u dit? De methode in dit artikel helpt u dit 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 verplaatst e-mails automatisch naar een opgegeven map zodra u in Outlook een bepaalde categorie toewijst. Volg hiervoor de volgende stappen.
1. Druk op de Alt+F11-toetsen om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications om ThisOutlookSession (Code) te openen. Kopieer vervolgens de onderstaande VBA-code naar dit venster. Zie de schermafbeelding:
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 start Outlook opnieuw.
4. Vanaf nu wordt automatisch een map met de categorienaam aangemaakt onder het Postvak IN zodra u een categorie toewijst aan een ontvangen e-mail, en wordt de e-mail daar direct in geplaatst. Zie de schermafbeelding:
Opmerking: Alle e-mails met dezelfde categorie worden automatisch naar dezelfde map verplaatst. Maar zodra je een nieuwe categorie aan een e-mail toewijst, wordt er automatisch een nieuwe map aangemaakt.
AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
- Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
- Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
- Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
- Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Vertaling in meerdere talen
Gerelateerde artikelen:
- Hoe wijs ik een categorie toe aan uitgaande e-mails in Outlook?
- Hoe behoud ik de oorspronkelijke categorieën wanneer ik e-mails beantwoord of doorsstuur in Outlook?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins