Comment supprimer rapidement les adresses de destinataires non valides des e-mails non distribuables des contacts Outlook

Lorsque vous envoyez des e-mails à des adresses de destinataires invalides, vous recevez des notifications d'erreur de distribution. Dans ce cas, si vous souhaitez supprimer ces adresses de vos contacts, vous pouvez utiliser la méthode décrite dans cet article.

Avez-vous déjà reçu des notifications par e-mail non livrables répertoriant les adresses e-mail invalides ? En général, vous recevrez de tels e-mails après avoir envoyé des e-mails à des adresses de destinataires non valides. Dans cette situation, il est généralement suggéré de supprimer ces adresses e-mail des contacts Outlook pour éviter de leur envoyer accidentellement des e-mails la prochaine fois. Maintenant, dans ce qui suit, nous allons vous partager une solution rapide pour l'obtenir.

Supprimer les adresses de destinataires non valides des e-mails non distribuables des contacts

1. Pour commencer, dans la fenêtre Outlook, appuyez sur « Alt + F11 » pour accéder à l'éditeur VBA.
2. Ensuite, vous pouvez placer le code VBA suivant dans un projet ou un module inutilisé.

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. Après cela, fermez la fenêtre actuelle.
4. Plus tard, ajoutez la nouvelle macro à la barre d'outils Accès rapide. Vous pouvez vous référer à l'article - "Comment exécuter le code VBA dans votre Outlook" .
5. Enfin, vous pouvez exécuter cette macro en suivant les étapes ci-dessous :

• En premier lieu, sélectionnez les e-mails "Non distribuables".
• Ensuite, cliquez sur la macro dans la barre d'outils d'accès rapide.
• Une fois la macro terminée, vous recevrez le message indiquant "Terminé".
• Maintenant, vous pouvez vérifier les contacts associés, dans lesquels les adresses e-mail invalides ont été supprimées, comme la capture d'écran ci-dessous :

Résoudre les erreurs et la corruption d'Outlook

Comme nous le savons tous, Outlook peut être sujet à des problèmes et à des corruptions pour diverses raisons. Par conséquent, si vous êtes novice dans Outlook, vous feriez mieux de prendre quelques précautions efficaces, telles que des sauvegardes périodiques des données, en utilisant un puissant et fiable Réparation Outlook utilitaire, comme DataNumen Outlook Repair, Et ainsi de suite.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com