Como mover emails automaticamente com diferentes categorias de cores para diferentes pastas no Outlook

Se você deseja que o Outlook mova automaticamente os emails para pastas diferentes ao atribuir categorias de cores diferentes a eles, pode usar o método apresentado nesta postagem.

Muitos usuários desejam métodos para mover automaticamente um e-mail para uma pasta específica quando uma determinada categoria de cor é atribuída a ela. Sem dúvida, o Outlook não oferece um recurso tão direto para realizá-lo. Portanto, a seguir, ensinaremos a você um meio de obtê-lo. Agora, continue lendo para obter as etapas detalhadas.

E-mails de movimentação automática com diferentes categorias de cores para pastas diferentes

1. Para começar, abra o programa Outlook.
2. Em seguida, no Outlook, pressione os botões de tecla “Alt + F11” para acessar o editor VBA.
3. Posteriormente, coloque o seguinte código VBA no projeto “ThisOutlookSession”.

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

Observações:

• Para processar itens em outras pastas, você pode alterar o objeto “objInboxFolder”, como “Application.Session.GetDefaultFolder(olFolderSentMail)” para a pasta “Itens Enviados”.
• Além disso, altere as categorias de cores e as pastas de destino predefinidas no código acima de acordo com seus casos reais.
• Além disso, você pode usar “ElseIf” para adicionar outras categorias de cores opcionais.

4. Em seguida, mova o cursor para a sub-rotina “Application_Startup” e pressione “F5”, o que ativará essa macro.
5. Finalmente, você pode tirar uma foto. Aqui está o meu exemplo.

• Selecione um e-mail na pasta Caixa de entrada.
• Em seguida, atribua a ele a categoria de cor “Private”.
• Imediatamente, este e-mail será movido para a pasta “Private” em “Caixa de entrada”.

Manuseie seu Outlook com cuidado

Talvez você tenha encontrado vários problemas em seu Outlook. Na maioria das vezes, eles realmente ocorrem devido ao manuseio inadequado. Por exemplo, você sempre fecha o Outlook incorretamente, como um desligamento repentino. Ou você não fez backup dos dados do Outlook em intervalos regulares. Todas as ações semelhantes podem tornar seu Outlook muito mais vulnerável. Como você sabe, uma vez que um arquivo PST é danificado, é extremamente difícil repará-lo. Em geral, o ferramenta de reparo da caixa de entrada não fará efeitos. Você não tem escolha a não ser obter ajuda de utilitários externos de ponta, 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 recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com