Como categorizar automaticamente os novos correos electrónicos entrantes en función das categorías de contacto dos remitentes

Algúns usuarios de Outlook prefiren clasificar os seus correos electrónicos segundo as categorías de cor de contacto dos remitentes. A asignación manual da categoría debe ser complicada. Este artigo presentará como realizalo automaticamente con Outlook VBA.

Para mellorar a súa eficiencia laboral en Outlook, fará esforzos para xestionar mellor os seus correos electrónicos. Sen dúbida, "Categorías de cores" é unha boa característica a este respecto. Moitos usuarios prefiren utilizalo para organizar e distinguir os seus correos electrónicos. Por suposto, a base concreta dos correos electrónicos de categorización de cores depende dos teus hábitos persoais. Por exemplo, algúns usuarios clasificaron os seus contactos por cor, polo que esperan clasificar os seus correos electrónicos segundo as categorías de contactos dos remitentes. Se o fas manualmente, definitivamente será desordenado xa que primeiro tes que comprobar as categorías de contacto do remitente e despois asignalo manualmente ao correo electrónico.

Para facer fronte a este requisito, en realidade podes facer uso de Outlook VBA, que pode permitir a Outlook comprobar automaticamente as categorías de contacto do remitente e asignalo aos novos correos electrónicos. Se estás interesado nesta función, continúa lendo para obter os pasos e códigos elaborados.

Categoriza automaticamente os correos electrónicos entrantes polas categorías de contacto dos remitentes

1. En primeiro lugar, inicie Outlook e prema os botóns "Alt + F11".
2. A continuación, aparecerá a xanela do editor de VBA, na que debes atopar e abrir o proxecto "ThisOutlookSession".
3. A continuación, copie e pegue os seguintes códigos VBA en "ThisOutlookSession".

Public WithEvents olItems como Outlook.Items Private Sub Application_Startup() Establecer olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items End Sub Privado Sub olItems_ItemAdd(ByVal Elemento como obxecto) Dim oMail As MailItem Dim olContacts As Outlook.Items Dim obj As Object Dim Obj Variant Dim olCate Conxunto de cadeas 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 objAddress1Thendress =Email. olCategory = objVariant.Categories oMail.Categories = olCategory End If End If Next End If End Sub

4. Posteriormente, debes asignarlle un certificado dixital á nova macro.

• En primeiro lugar, cree un novo certificado mediante Certificados dixitais para proxectos VBA.
• A continuación, asina dixitalmente este código.

5. Despois diso, pode cambiar a seguridade da súa macro de Outlook, permitindo só as macros asinadas dixitalmente.
6. Finalmente podes restart Outlook para activar a nova macro. A partir de agora, todos os correos electrónicos entrantes que cheguen ao cartafol da Caixa de entrada clasificaranse automaticamente segundo as categorías de contacto dos remitentes.

Solucionar fallo inesperado de Outlook

Aínda que moitos usuarios prefiren Outlook, aínda non pode desfacerse dos fallos. Debe sentir pánico ao sufrir un accidente imprevisto de Outlook. Non te preocupes. Podes tomar accións para diagnosticar e resolver os problemas por ti mesmo, como restarting Outlook, desactivar complementos de terceiros, crear un novo perfil de correo e reparar a suite Office, etc. O peor dos casos debe ser corruptos datos PST de Outlook, que é moi nudoso. Neste escenario, necesitas recurrir a unha ferramenta externa robusta, como DataNumen Outlook Repair.

Introdución do autor:

Shirley Zhang é unha experta en recuperación de datos DataNumen, Inc., que é o líder mundial en tecnoloxías de recuperación de datos, incluíndo reparar SQL corrupto mdf db e produtos de software de reparación de Outlook. Para máis información visite www.datanumen.com