Hur flyttar jag e-post till angiven mapp efter att ha tilldelat en viss kategori i Outlook?
Om du antar att du tilldelat en kategori till ett mottaget e-postmeddelande i Outlook, efter att du tilldelat kategori, vill du att det här e-postmeddelandet ska flyttas automatiskt till en viss e-postmapp med namnet på kategorin. Till exempel kommer ett e-postmeddelande tilldelat kategorin "Privat" att flyttas till mappnamnet "Privat" i din Outlook. Hur uppnår man det? Metoden i den här artikeln kan hjälpa dig att enkelt lösa problemet.
Flytta e-postmeddelanden till den angivna mappen efter att ha tilldelat VBA en viss kategori
Flytta e-postmeddelanden till den angivna mappen efter att ha tilldelat VBA en viss kategori
Nedanstående VBA-kod kan hjälpa till att automatiskt flytta e-postmeddelanden till angiven mapp efter att ha tilldelat en viss kategori i Outlook. Gör så här.
1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka för att öppna ThisOutlookSession (kod) fönster. Kopiera sedan VBA-koden nedan till fönstret. Se skärmdump:
VBA-kod: Flytta e-postmeddelanden till angiven mapp efter tilldelning av en viss kategori
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. Spara koden och starta om Outlook.
4. Från och med nu, när du tilldelar kategori till ett mottagande e-postmeddelande, skapas en mapp med kategorinamnet automatiskt under mappen Inkorg med e-postmeddelandet flyttat in. Se skärmdump:
Anmärkningar: Alla e-postmeddelanden som tilldelas samma kategori kommer att flyttas till samma mapp automatiskt. Men om en ny kategori tilldelas ett e-postmeddelande kommer en ny mapp att skapas automatiskt.
Relaterade artiklar:
- Hur tilldelar jag kategori till utgående e-post i Outlook?
- Hur behåller jag originalkategorier när du svarar eller vidarebefordrar e-post i Outlook?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!