Alguns usuaris d'Outlook prefereixen classificar els seus correus electrònics segons les categories de color de contacte dels remitents. L'assignació manual de la categoria ha de ser feixuc. Aquest article us presentarà com realitzar-ho automàticament amb Outlook VBA.
Per millorar la vostra eficiència laboral a Outlook, fareu esforços per gestionar millor els vostres correus electrònics. Sense cap mena de dubte, "Categories de color" és una bona característica en aquest sentit. Molts usuaris prefereixen utilitzar-lo per organitzar i distingir els seus correus. Per descomptat, la base concreta de la categorització de correus electrònics per color depèn dels vostres hàbits personals. Per exemple, alguns usuaris han classificat els seus contactes per colors, per tant, esperen classificar els seus correus electrònics segons les categories de contactes dels remitents. Si ho feu manualment, definitivament serà desordenat, ja que primer haureu de comprovar les categories de contacte del remitent i després assignar-lo manualment al correu electrònic.
Per fer front a aquest requisit, en realitat podeu utilitzar Outlook VBA, que pot permetre que Outlook comprove automàticament les categories de contacte del remitent i assignar-lo als nous correus electrònics. Si estàs interessat en aquesta funció, segueix llegint per obtenir els passos i codis elaborats.
Classifica automàticament els correus electrònics entrants segons les categories de contacte dels remitents
- En primer lloc, inicieu Outlook i premeu els botons de la tecla "Alt + F11".
- A continuació, apareixerà la finestra de l'editor de VBA, en la qual heu de trobar i obrir el projecte "ThisOutlookSession".
- A continuació, copieu i enganxeu els codis VBA següents a "ThisOutlookSession".
Public WithEvents olItems com Outlook.Items Subaplicació privada_Startup() Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items End Sub Privat Sub olItems_ItemAdd(ByVal Item As Object) Dim oMail As MailItem Dim olContacts As Outlook.Items Dim obj As Object Dim Obj Variant Dim olCate Conjunt de cadenes olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items si TypeOf Item és MailItem Aleshores estableix oMail = Item per a cada objecte a olContacts Si TypeOf obj és ContactItem Aleshores estableix objVariant = obj If objAddress1TheSennder.Email. olCategory = objVariant.Categories oMail.Categories = olCategory End If End If Next End If End Sub
- Posteriorment, hauríeu d'assignar un certificat digital a la nova macro.
- En primer lloc, creeu un nou certificat mitjançant certificats digitals per a projectes VBA.
- A continuació, signa digitalment aquest codi.
- Després d'això, podeu canviar la seguretat de la vostra macro d'Outlook, només permetent les macros signades digitalment.
- Finalment pots restart Outlook per activar la nova macro. A partir d'ara, tots els correus electrònics entrants que arribin a la carpeta Safata d'entrada es classificaran automàticament segons les categories de contacte dels remitents.
Solucioneu un bloqueig inesperat d'Outlook
Tot i que molts usuaris prefereixen Outlook, encara no es pot desfer de l'error. Heu de sentir pànic quan patiu un accident imprevist d'Outlook. No et preocupis. Podeu dur a terme accions per diagnosticar i resoldre els problemes pel vostre compte, com ara restarutilitzar Outlook, desactivar complements de tercers, crear un perfil de correu nou i reparar la suite Office, etc. El pitjor dels casos ha de ser dades PST d'Outlook corruptes, que és extremadament nuós. En aquest escenari, necessiteu recórrer a una eina externa robusta, com ara DataNumen Outlook Repair.
Introducció de l'autor:
Shirley Zhang és una experta en recuperació de dades DataNumen, Inc., que és el líder mundial en tecnologies de recuperació de dades, incloent reparar SQL corrupte mdf db i productes de programari de reparació de Outlook. Per a més informació visiteu www.datanumen.com
1