Como mover automaticamente os e-mails recebidos com hiperlinks específicos para a pasta de lixo eletrônico

Se você deseja mover automaticamente os e-mails recebidos com hiperlinks específicos no corpo da mensagem para a pasta Lixo Eletrônico no Outlook, pode utilizar o método apresentado neste artigo.

Às vezes, o filtro de lixo eletrônico do Outlook marcará erroneamente os emails genuínos como lixo eletrônico. Assim, você pode preferir definir o nível de proteção de lixo eletrônico do Outlook para baixo. No entanto, neste caso, muitos e-mails indesejados podem não ser reconhecidos pelo filtro de lixo eletrônico do Outlook, como os e-mails com hiperlinks perigosos. Isso não apenas sobrecarregará sua pasta de caixa de entrada, mas também pode infectar seus dados do Outlook se você clicar nos links. Além disso, se você não gosta de receber e-mails que contêm hiperlinks específicos, também pode movê-los para a pasta Lixo Eletrônico. Portanto, aqui vamos nos concentrar neste problema e orientá-lo sobre como utilizar o VBA para mover automaticamente os e-mails recebidos com hiperlinks específicos para a pasta Lixo Eletrônico.

Mover automaticamente os e-mails com hiperlinks específicos para a pasta de lixo eletrônico

1. No início, inicie seu aplicativo Outlook.
2. Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
3. Posteriormente, na janela pop-up “Microsoft Visual Basic for Applications”, abra o projeto “ThisOutlookSession”.
4. Em seguida, copie e cole o seguinte código VBA nesta janela do projeto.

Public WithEvents objIncomingItems As Outlook.Items

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

Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim strURL As String
    Dim objJunkMailFolder As Outlook.Folder
 
    Set objJunkMailFolder = Application.Session.GetDefaultFolder(olFolderJunk)
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
       Set objWordDocument = objMail.GetInspector.WordEditor
       Set objHyperlinks = objWordDocument.Hyperlinks
 
       If objHyperlinks.Count > 0 Then
          For i = objHyperlinks.Count To 1 Step -1
              strURL = objHyperlinks.Item(i).Address
              'Check if the hyperlink addresses contain specific words
              'You can change the condition as per your needs
              If InStr(LCase(strURL), "www.test.com") > 0 Or InStr(LCase(strURL), "www.sales.com") > 0 Then
                 objMail.Move objJunkMailFolder
              End If
          Next i
       End If
    End If
End Sub

5. Depois disso, assine este código como de costume.
6. Posteriormente, altere as configurações de macro do Outlook para permitir macros assinadas.
7. Por fim, reinicie o Outlook para ativar o projeto VBA recém-adicionado.
8. A partir de agora, todos os e-mails recebidos que contenham hiperlinks específicos serão movidos automaticamente para a pasta Lixo Eletrônico.

Erros de PST podem ocorrer de vez em quando

Apesar de possuir diversas funções poderosas, o Outlook ainda não consegue eliminar completamente os erros em arquivos PST. Portanto, proteger os dados do seu arquivo PST contra perdas é uma tarefa árdua, tediosa, mas de vital importância para os usuários do Outlook. Uma das maneiras mais eficazes é fazer backups regulares do seu arquivo PST, o que contribuirá muito para a sua preservação futura. Recuperação PST após corrupção PST imprevista.

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