Cómo eliminar rápidamente las direcciones de destinatarios no válidos de correos electrónicos que no se pueden entregar de los contactos de Outlook

Al enviar correos electrónicos a direcciones de destinatarios no válidos, recibirá las notificaciones por correo electrónico que no se pueden entregar. En ese momento, si es posible que desee eliminar estas direcciones de correo electrónico de los contactos, puede utilizar el método compartido en este post.

¿Alguna vez recibió notificaciones por correo electrónico que no se pudieron entregar con las direcciones de correo electrónico no válidas? En general, recibirá dichos correos electrónicos después de enviarlos a direcciones de destinatarios no válidas. En esta situación, generalmente se sugiere eliminar estas direcciones de correo electrónico de los contactos de Outlook para evitar enviarles correos accidentalmente la próxima vez. Ahora, a continuación, te compartiremos una solución rápida para conseguirlo.

Eliminar las direcciones de destinatario no válidas de los correos electrónicos que no se pueden entregar de los contactos

1. Porque comotart, en la ventana de Outlook, presione "Alt + F11" para acceder al editor de VBA.
2. A continuación, puede poner el siguiente código VBA en un proyecto o módulo no 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. Después de eso, cierre la ventana actual.
4. Luego, agregue la nueva macro a la barra de herramientas de acceso rápido. Puede consultar el artículo - "Cómo ejecutar código VBA en su Outlook".
5. Finalmente, puede ejecutar esta macro siguiendo los pasos a continuación:

• En primer lugar, seleccione los mensajes de correo electrónico "No se pueden entregar".
• Luego, haga clic en la macro en la barra de herramientas de acceso rápido.
• Cuando finalice la macro, recibirá el mensaje "Completado".
• Ahora, puede verificar los contactos asociados, en los que se han eliminado las direcciones de correo electrónico no válidas, como la siguiente captura de pantalla:

Resuelva los errores y la corrupción de Outlook

Como todos sabemos, Outlook puede estar sujeto a problemas y corrupciones por varias razones. Por lo tanto, si es un novato en Outlook, será mejor que tome algunas precauciones efectivas, como realizar copias de seguridad periódicas de los datos, empleando una herramienta potente y confiable. Reparación de Outlook utilidad, como DataNumen Outlook Repair, Y así sucesivamente.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com