So entfernen Sie schnell die ungültigen Empfängeradressen nicht zustellbarer E-Mails aus Outlook-Kontakten

Beim Senden von E-Mails an ungültige Empfängeradressen erhalten Sie Unzustellbarkeitsbenachrichtigungen. Falls Sie diese E-Mail-Adressen anschließend aus Ihren Kontakten entfernen möchten, können Sie die in diesem Beitrag beschriebene Methode verwenden.

Haben Sie jemals unzustellbare E-Mail-Benachrichtigungen erhalten, in denen die ungültigen E-Mail-Adressen aufgeführt sind? Im Allgemeinen erhalten Sie solche E-Mails, nachdem Sie E-Mails an ungültige Empfängeradressen gesendet haben. In dieser Situation wird generell empfohlen, diese E-Mail-Adressen aus Outlook-Kontakten zu entfernen, um zu verhindern, dass beim nächsten Mal versehentlich E-Mails an sie gesendet werden. Im Folgenden werden wir Ihnen eine schnelle Lösung vorstellen, um diese zu erhalten.

Entfernen Sie die ungültigen Empfängeradressen nicht zustellbarer E-Mails aus Kontakten

1. Drücken Sie zunächst im Outlook-Fenster „Alt + F11“, um den VBA-Editor zu öffnen.
2. Als Nächstes können Sie den folgenden VBA-Code in ein nicht verwendetes Projekt oder Modul einfügen.

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. Schließen Sie danach das aktuelle Fenster.
4. Fügen Sie später das neue Makro zur Symbolleiste für den Schnellzugriff hinzu. Sie können sich auf den Artikel beziehen - “So führen Sie VBA-Code in Outlook aus".
5. Schließlich können Sie dieses Makro ausführen, indem Sie die folgenden Schritte ausführen:

• Wählen Sie zunächst die E-Mail-Nachricht "Nicht zustellbar" aus.
• Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf das Makro.
• Wenn das Makro beendet ist, erhalten Sie die Meldung "Abgeschlossen".
• Jetzt können Sie die zugehörigen Kontakte überprüfen, in denen die ungültigen E-Mail-Adressen entfernt wurden, wie im folgenden Screenshot dargestellt:

Beheben Sie Outlook-Fehler und Beschädigungen

Wie wir alle wissen, kann Outlook aus verschiedenen Gründen Problemen und Beschädigungen ausgesetzt sein. Wenn Sie ein Anfänger in Outlook sind, sollten Sie daher einige wirksame Vorsichtsmaßnahmen treffen, z. B. regelmäßige Datensicherungen mit einem leistungsstarken und zuverlässigen Gerät Outlook reparieren Dienstprogramm, wie DataNumen Outlook Repair, Und so weiter.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX