Alguns usuários do Outlook preferem categorizar seus e-mails de acordo com as categorias de cores de contato dos remetentes. A atribuição manual da categoria deve ser complicada. Este artigo apresentará como realizá-lo automaticamente com o Outlook VBA.
Para melhorar a eficiência do seu trabalho no Outlook, você fará esforços para gerenciar melhor seus e-mails. Sem dúvidas, “Categorias de cores” é um bom recurso a esse respeito. Muitos usuários preferem utilizá-lo para organizar e distinguir seus e-mails. Claro, a base concreta de e-mails de categorização de cores depende de seus hábitos pessoais. Por exemplo, alguns usuários têm seus contatos categorizados por cores, portanto, eles esperam categorizar seus e-mails de acordo com as categorias de contato dos remetentes. Se você fizer isso manualmente, será definitivamente confuso, pois primeiro você deve verificar as categorias de contato do remetente e, em seguida, atribuí-las manualmente ao e-mail.
Para atender a esse requisito, na verdade, você pode usar o Outlook VBA, que pode permitir que o Outlook verifique automaticamente as categorias de contato do remetente e atribua-o aos novos e-mails. Se você estiver interessado neste recurso, continue lendo para obter as etapas e os códigos elaborados.
Categorize automaticamente os e-mails recebidos pelas categorias de contato dos remetentes
- Em primeiro lugar, inicie o Outlook e pressione os botões de tecla “Alt + F11”.
- Em seguida, aparecerá a janela do editor VBA, na qual você precisa encontrar e abrir o projeto “ThisOutlookSession”.
- Em seguida, copie e cole os seguintes códigos VBA em “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 Se TypeOf Item for MailItem, então defina oMail = Item para cada obj em olContacts Se TypeOf obj for ContactItem, então defina objVariant = obj Se objVariant.Email1Address = oMail.SenderEmailAddress Então olCategory = objVariant.Categories oMail.Categories = olCategory End If End If Next End If End Sub
- Posteriormente, deverá atribuir um certificado digital à nova macro.
- Primeiramente, crie um novo certificado via Certificados Digitais para Projetos VBA.
- Em seguida, assine digitalmente este código.
- Depois disso, você pode alterar a segurança de macro do Outlook, permitindo apenas as macros assinadas digitalmente.
- Finalmente você pode restart Outlook para ativar a nova macro. A partir de agora, todos os e-mails recebidos na pasta Caixa de entrada serão categorizados automaticamente pelas categorias de contato dos remetentes.
Resolva a falha inesperada do Outlook
Embora o Outlook seja preferido por muitos usuários, ele ainda não pode se livrar do travamento. Você deve sentir pânico ao sofrer uma falha inesperada do Outlook. Não se preocupe. Você pode realizar ações para diagnosticar e resolver os problemas por conta própria, como restarting Outlook, desativando suplementos de terceiros, criando um novo perfil de email e reparando o pacote Office e assim por diante. O pior caso deve ser corromper dados PST do Outlook, que é extremamente complicado. Neste cenário, você precisa recorrer a uma ferramenta externa robusta, como DataNumen Outlook Repair.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar banco de dados mdf SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com
1