Hvordan flyttes e-mails til den angivne mappe efter tildeling af en bestemt kategori i Outlook?
Hvis du antager, at du har tildelt en kategori til en modtaget e-mail i din Outlook, efter at du har tildelt kategori, vil du have denne e-mail til at flytte automatisk til en bestemt e-mail-mappe med navnet på kategorien. For eksempel flyttes en e-mail tildelt kategorien "Privat" til mappenavnet "Privat" i din Outlook. Hvordan opnås det? Metoden i denne artikel kan hjælpe dig med at løse problemet med lethed.
Flyt e-mails til den angivne mappe efter tildeling af en bestemt kategori med VBA
Flyt e-mails til den angivne mappe efter tildeling af en bestemt kategori med VBA
Nedenstående VBA-kode kan hjælpe med automatisk at flytte e-mails til den angivne mappe efter tildeling af en bestemt kategori i Outlook. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik for at åbne ThisOutlookSession (kode) vindue. Kopier derefter under VBA-koden i vinduet. Se skærmbillede:
VBA-kode: Flyt e-mails til den angivne mappe efter tildeling af en bestemt 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. Gem koden og genstart Outlook.
4. Fra nu af, når der tildeles kategori til en modtagende e-mail, oprettes der automatisk en mappe med kategorinavnet under mappen Indbakke med e-mailen flyttet ind. Se skærmbillede:
Bemærk: Alle e-mails, der er tildelt den samme kategori, vil automatisk blive flyttet til den samme mappe. Men hvis en ny kategori tildeles en e-mail, oprettes en ny mappe automatisk.
Relaterede artikler:
- Hvordan tildeles kategori til udgående e-mail i Outlook?
- Hvordan opbevares originale kategorier, når du besvarer eller videresender e-mail i Outlook?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!