Como mover automaticamente e-mails recebidos para pastas específicas com base em nomes de arquivos anexos

Muitos usuários esperam que o Outlook possa mover e arquivar automaticamente os e-mails recebidos em pastas de e-mail específicas de acordo com os nomes dos arquivos anexos. Assim, neste artigo, vamos expor uma maneira rápida de ajudá-lo a obtê-lo com o Outlook VBA.

Se você deseja mover automaticamente os e-mails recebidos para as pastas específicas de acordo com os nomes dos arquivos dos anexos, definitivamente pensará em usar a regra do Outlook em primeiro lugar. No entanto, você finalmente descobrirá que a regra do Outlook não possui um recurso para verificar o nome do arquivo do anexo. Portanto, se você realmente deseja realizá-lo, deve usar outras maneiras, por exemplo, por meio de um suplemento de terceiros ou do Outlook VBA. Então aqui vamos te ensinar como conseguir isso com VBA. Continue lendo para obter as operações detalhadas e os códigos VBA concretos.

Mover automaticamente e-mails recebidos para pastas específicas com base em anexos

1. Para comotart, inicie seu programa Outlook normalmente.
2. Em seguida, pressione os botões de tecla “Alt + F11” para acessar o editor VBA.
3. Na janela subsequente “Microsoft Visual Basic for Applications”, você pode localizar e clicar duas vezes no projeto “ThisOutlookSession” no lado esquerdo.
4. Em seguida, na janela do projeto “ThisOutlookSession” aberta, copie e cole os seguintes códigos VBA.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Posteriormente, você precisa assinar digitalmente o novo projeto VBA.

• Em primeiro lugar, você pode usar a ferramenta incorporada – Certificados Digitais para Projetos VBA para criar um certificado pessoal.
• Em seguida, no editor VBA, clique em “Ferramentas” > “Assinatura Digital” na barra de ferramentas.
• Em seguida, siga as instruções na tela para assiná-lo.

6. Depois disso, você pode sair do editor VBA e alterar a segurança de macro do Outlook para baixo.
7. Mais tarde você deve restart Outlook para ativar o novo projeto VBA.
8. Eventualmente, a partir de agora, o Outlook verificará automaticamente os nomes dos arquivos dos anexos de todos os e-mails recebidos e moverá os específicos para pastas específicas.

Proteja seus dados PST

é almost um fato inquestionável de que o Outlook é suscetível à corrupção. Portanto, é uma tarefa bastante árdua proteger seus dados PST contra danos. Mas você ainda pode encontrar algumas regras e dicas. Por exemplo, para evitar a perda de dados PST, você pode persistir em fazer um backup de dados regular. Além disso, para fornecer resgate imediato após a falha do Outlook, você pode preparar um experiente correção PST ferramenta, 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 SQL Server recuperação e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com