Como mover automaticamente um e-mail para uma pasta específica depois de encaminhá-lo no Outlook

Para manter sua caixa de correio em ordem, você pode se acostumar a salvar os e-mails específicos na pasta específica. Este artigo irá dizer-lhe como usar o Outlook VBA para mover automaticamente o e-mail depois de encaminhá-lo.

Armazenar os e-mails semelhantes em uma pasta de e-mail específica é uma boa dica para gerenciar uma grande quantidade de e-mails. É certo que diferentes usuários devem ter seus próprios critérios para classificação e gerenciamento de correspondência. Por exemplo, você pode preferir classificar seus e-mails de acordo com suas ações de acompanhamento, como responder, encaminhar ou outros. Se você deseja mover automaticamente o e-mail para uma pasta específica, como “Encaminhado”, ao encaminhá-lo, você pode aplicar as seguintes operações e códigos VBA para obtê-lo rapidamente.

Mover automaticamente o e-mail para uma pasta específica depois de encaminhá-lo

1. Em primeiro lugar, inicie o Outlook.
2. Em seguida, mude para a guia "Desenvolvedor".

Nota: Se você não conseguir encontrar esta guia, vá para “Arquivo”> “Opções”> “Personalizar Faixa de Opções” para ativá-la primeiro.

3. Depois que esta guia estiver visível, você pode encontrar e clicar no botão “Visual Basic” abaixo dela.
4. Posteriormente, uma nova janela “Microsoft Visual Basic for Applications” será exibida. Nele, você deve clicar duas vezes no projeto “ThisOutlookSession” no lado esquerdo para abri-lo.
5. Depois disso, você pode copiar e colar os seguintes códigos VBA nele.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Posteriormente, você será solicitado a assinar o novo projeto VBA.

• Em primeiro lugar, use a ferramenta interna “Certificados digitais para projetos VBA” para criar um certificado digital.
• Em seguida, atribua o certificado a esta macro, como na captura de tela a seguir:

7. Posteriormente, você pode alterar suas configurações de macro para permitir macros assinadas digitalmente.
8. finalmente restart Outlook para ativar a nova macro. A partir de agora, quando você selecionar um e-mail e clicar no botão “Encaminhar”, o e-mail será movido para a pasta “Encaminhados” de uma só vez.

Evite a corrupção indesejada de dados PST do Outlook

Um delesost Um dos problemas que atormentam os usuários do Outlook há muito tempo é que o Outlook é propenso a corrupção. Ou seja, sofrer dano PST é um assunto comum. Portanto, para evitar a perda de dados do Outlook, é melhor fazer um backup consistente e atualizado para seus dados PST.

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 corrupto SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com