Sådan automatisk flytter du e-mails med forskellige farvekategorier til forskellige mapper i Outlook

Hvis du ønsker, at Outlook automatisk flytter e-mails til forskellige mapper, når du tildeler dem forskellige farvekategorier, kan du bruge metoden, der er introduceret i dette indlæg.

Mange brugere længes efter metoder til automatisk at flytte en e-mail til en bestemt mappe, når en bestemt farvekategori er tildelt den. Uden tvivl tilbyder Outlook ikke en sådan direkte funktion til at realisere det. Derfor vil vi i det følgende lære dig et middel til at få det. Læs nu videre for at få de detaljerede trin.

Flyt automatisk e-mails med forskellige farvekategorier til forskellige mapper i Outlook

Flyt automatisk e-mails med forskellige farvekategorier til forskellige mapper

  1. Til at starte med skal du starte dit Outlook-program.
  2. Tryk derefter på "Alt + F11"-tasterne i Outlook for at få adgang til VBA-editor.
  3. Sæt derefter følgende VBA-kode i “ThisOutlookSession” -projektet.
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

VBA-kode - Flyt automatisk e-mails med forskellige farvekategorier til forskellige mapper

Bemærkninger:

  • For at behandle elementer i andre mapper, kan du ændre "objInboxFolder"-objektet, som "Application.Session.GetDefaultFolder(olFolderSentMail)" for "Sent Items"-mappen.
  • Skift også farvekategorierne og målmapperne, der er foruddefineret i ovenstående kode, i henhold til dine faktiske tilfælde.
  • Derudover kan du bruge "ElseIf" til at tilføje de andre valgfrie farvekategorier.
  1. Flyt derefter markøren i underrutinen "Application_Startup" og tryk på "F5", hvilket vil aktivere denne makro.
  2. Endelig kan du tage et skud. Her er mit eksempel.
  • Vælg en e-mail i mappen Indbakke.
  • Tildel derefter "Privat" farvekategori til den.Tildel en farvekategori til en e-mail
  • Med det samme vil denne mail blive flyttet til mappen "Privat" under "Indbakke".E-mail bliver automatisk flyttet til en bestemt mappe

Håndter din Outlook med omhu

Måske er du stødt på flere problemer i din Outlook. Oftere end ikke opstår de faktisk fra dine ukorrekte håndteringer. For eksempel lukker du altid din Outlook forkert, såsom pludselig strømafbrydelse. Eller du har ikke sikkerhedskopieret dine Outlook-data med jævne mellemrum. Alle lignende handlinger kan gøre din Outlook meget mere sårbar. Som du ved, når først en PST-fil bliver beskadiget, er det ekstremt svært at reparere den. Generelt er værktøj til reparation af indbakke vil ikke have effekter. Du har intet andet valg end at tage hjælp af eksterne tip-top-værktøjer, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.