Nogle Outlook-brugere foretrækker at kategorisere deres e-mails efter afsendernes kontaktfarvekategorier. Manuel tildeling af kategorien skal være besværlig. Denne artikel vil introducere, hvordan man automatisk realiserer det med Outlook VBA.
For at forbedre din arbejdseffektivitet i Outlook vil du gøre en indsats for bedre at styre dine e-mails. Uden tvivl er "Farvekategorier" en god funktion i denne henseende. Mange brugere foretrækker at bruge det til at organisere og skelne deres mails. Det konkrete grundlag for farvekategorisering af e-mails er selvfølgelig op til dine personlige vaner. For eksempel har nogle brugere farvekategoriseret deres kontakter, derfor håber de at kategorisere deres e-mails i henhold til afsenderens kontaktkategorier. Hvis du gør dette manuelt, vil det være rodet, fordi du først skal kontrollere afsenderens kontaktkategorier og derefter manuelt tildele det til e-mailen.
For at tackle dette krav kan du faktisk gøre brug af Outlook VBA, som kan lade Outlook automatisk kontrollere afsenderens kontaktkategorier og tildele det til de nye e-mails. Hvis du er interesseret i denne funktion, kan du læse videre for at få de detaljerede trin og koder.
Kategoriser automatisk indgående e-mails efter afsenderens kontaktkategorier
- For det første skal du starte Outlook og trykke på "Alt + F11" -tasten.
- Derefter vises VBA-editorens vindue, hvor du skal finde og åbne projektet “ThisOutlookSession”.
- Kopier derefter og indsæt følgende VBA-koder i “ThisOutlookSession”.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim oMail As MailItem
Dim olContacts As Outlook.Items
Dim obj As Object
Dim objVariant As Variant
Dim olCategory As String
Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
If TypeOf Item Is MailItem Then
Set oMail = Item
For Each obj In olContacts
If TypeOf obj Is ContactItem Then
Set objVariant = obj
If objVariant.Email1Address = oMail.SenderEmailAddress Then
olCategory = objVariant.Categories
oMail.Categories = olCategory
End If
End If
Next
End If
End Sub
- Derefter skal du tildele et digitalt certifikat til den nye makro.
- For det første skal du oprette et nyt certifikat via digitale certifikater til VBA-projekter.
- Underskriv derefter denne kode digitalt.
- Derefter kan du ændre din Outlook-makrosikkerhed, kun tillade de digitalt signerede makroer.
- Endelig kan du restart Outlook for at aktivere den nye makro. Fra nu af bliver alle indgående e-mails, der ankommer til mappen Indbakke, automatisk kategoriseret efter afsenderens kontaktkategorier.
Løs uventet Outlook-nedbrud
Selvom Outlook foretrækkes af mange brugere, kan det stadig ikke slippe af med nedbrud. Du skal føle panik, når du lider af uventet Outlook-nedbrud. Vær ikke urolig. Du kan tage handlinger for at diagnosticere og løse problemerne alene, f.eks. Restarting Outlook, deaktivering af tredjeparts tilføjelsesprogrammer, oprettelse af en ny mailprofil og reparation af Office-pakken og så videre. Det værste tilfælde må være korrupte Outlook PST-data, som er ekstremt knudret. I dette scenarie skal du gentage et robust eksternt værktøj, 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 reparere korrupt SQL mdf db og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com