Como remover rapidamente os endereços de destinatários inválidos de e-mails não entregues dos contatos do Outlook

Ao enviar e-mails para endereços de destinatários inválidos, você receberá notificações de e-mail não entregue. Nesse caso, se desejar remover esses endereços de e-mail dos seus contatos, você pode usar o método compartilhado nesta publicação.

Você já recebeu notificações de e-mail não entregues listando os endereços de e-mail inválidos? Em geral, você receberá esses e-mails depois de enviar e-mails para endereços de destinatários inválidos. Nessa situação, geralmente é sugerido remover esses endereços de e-mail dos contatos do Outlook para evitar o envio acidental de e-mails para eles na próxima vez. Agora, a seguir, compartilharemos uma solução rápida para obtê-lo.

Remova os endereços de destinatários inválidos de e-mails não entregues dos contatos

1. Para começar, na janela do Outlook, pressione “Alt + F11” para acessar o editor VBA.
2. Em seguida, você pode colocar o seguinte código VBA em um projeto ou módulo não utilizado.

Sub RemoveUndeliverableEmailAddressesfromContacts()
    Dim objSelection As Outlook.Selection
    Dim objContacts As Outlook.Items
    Dim objMail As Outlook.MailItem
    Dim i, n As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strEmailAddress As String
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
 
    'Get selected emails
    Set objSelection = Application.ActiveExplorer.Selection
    'Get the contacts
    Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
 
    On Error Resume Next
    For Each objMail In objSelection
        objMail.Display
 
        Set objWordDocument = objMail.GetInspector.WordEditor
        Set objWordApp = objWordDocument.Application
        Set objSearchRange = objWordDocument.Range
 
        'Extract email addresses via wildcards
        With objWordApp.Selection.Find
            .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
            .MatchWildcards = True
            .Execute
        End With
 
        While objWordApp.Selection.Find.Found
              strEmailAddress = objWordApp.Selection.Text
 
              'Remove the invalid email addresses from the associated contacts
              strFilter = "[Email1Address] = " & strEmailAddress
              Set objFoundContact = objContacts.Find(strFilter)
              If Not (objFoundContact Is Nothing) Then
                 With objFoundContact
                     .Email1Address = ""
                     .Email1DisplayName = ""
                     .Save
                 End With
                 strFilter = ""
                 Set objFoundContact = Nothing
              Else
                 strFilter = "[Email2Address] = " & strEmailAddress
                 Set objFoundContact = objContacts.Find(strFilter)
                 If Not (objFoundContact Is Nothing) Then
                    With objFoundContact
                        .Email2Address = ""
                        .Email2DisplayName = ""
                        .Save
                    End With
                    strFilter = ""
                    Set objFoundContact = Nothing
                 Else
                    strFilter = "[Email3Address] = " & strEmailAddress
                    Set objFoundContact = objContacts.Find(strFilter)
                    If Not (objFoundContact Is Nothing) Then
                       With objFoundContact
                           .Email3Address = ""
                           .Email3DisplayName = ""
                           .Save
                       End With
                       strFilter = ""
                       Set objFoundContact = Nothing
                    End If
                End If
             End If
 
             objWordApp.Selection.Find.Execute
        Wend
 
       objMail.Close olDiscard
    Next
 
    MsgBox "Completed!", vbInformation
End Sub

3. Depois disso, feche a janela atual.
4. Posteriormente, adicione a nova macro à Barra de Ferramentas de Acesso Rápido. Você pode consultar o artigo – “Como executar o código VBA no seu Outlook".
5. Por fim, você pode executar essa macro seguindo as etapas abaixo:

• Em primeiro lugar, selecione as mensagens de e-mail “Não entregues”.
• Em seguida, clique na macro na Barra de Ferramentas de Acesso Rápido.
• Quando a macro terminar, você receberá a mensagem “Concluída”.
• Agora, você pode verificar os contatos associados, nos quais os endereços de e-mail inválidos foram removidos, conforme a captura de tela abaixo:

Resolver erros e corrupção do Outlook

Como todos sabemos, o Outlook pode ficar sujeito a problemas e corrupções por vários motivos. Portanto, se você é um novato no Outlook, é melhor tomar algumas precauções eficazes, como fazer backups periódicos de dados, empregar um poderoso e confiável Reparo do Outlook utilitário, como DataNumen Outlook Repair, E assim por diante.

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