Hoe e-mails naar een opgegeven map te verplaatsen na het toewijzen van een bepaalde categorie in Outlook?
Stel dat u een categorie hebt toegewezen aan een ontvangen e-mail in uw Outlook, na het toewijzen van een categorie, wilt u dat deze e-mail automatisch wordt verplaatst naar een bepaalde e-mailmap met de naam van de categorie. Een e-mail die is toegewezen aan de categorie "Priv茅", wordt bijvoorbeeld verplaatst naar de mapnaam "Priv茅" in uw Outlook. Hoe bereik je dit? De methode in dit artikel kan u helpen het probleem gemakkelijk op te lossen.
Verplaats e-mails naar de opgegeven map na het toewijzen van een bepaalde categorie met VBA
Verplaats e-mails naar de opgegeven map na het toewijzen van een bepaalde categorie met VBA
De onderstaande VBA-code kan helpen om automatisch e-mails naar de opgegeven map te verplaatsen na het toewijzen van een bepaalde categorie in Outlook. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen dubbelklik om het ThisOutlookSession (code) venster. Kopieer vervolgens onderstaande VBA-code naar het venster. Zie screenshot:
VBA-code: verplaats e-mails naar de 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 bij het toewijzen van een categorie aan een ontvangende e-mail automatisch een map met de categorienaam aangemaakt onder de map Inbox waarin de e-mail is verplaatst. Zie screenshot:
Note: alle e-mails die aan dezelfde categorie zijn toegewezen, worden automatisch naar dezelfde map verplaatst. Maar als er een nieuwe categorie aan een e-mail wordt toegewezen, wordt er automatisch een nieuwe map aangemaakt.
Gerelateerde artikelen:
- Hoe wijs ik een categorie toe aan uitgaande e-mail in Outlook?
- Hoe originele categorie毛n te behouden bij het beantwoorden of doorsturen van e-mail in Outlook?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!