Sådan fjernes hurtigt de ugyldige modtageradresser for ikke-leverbare e-mails fra Outlook-kontakter

Når du sender e-mails til ugyldige modtageradresser, vil du modtage e-mail-notifikationer om uleverbare e-mails. Hvis du på det tidspunkt ønsker at fjerne disse e-mailadresser fra kontakter, kan du bruge metoden, der er delt i dette indlæg.

Har du nogensinde modtaget e-mail-underretninger, der ikke kan leveres, med en liste over de ugyldige e-mail-adresser? Generelt får du sådanne e-mails, når du sender e-mail til ugyldige modtageradresser. I denne situation foreslås det generelt at fjerne disse e-mail-adresser fra Outlook-kontakter for at forhindre utilsigtet at sende mails til dem næste gang. Nu, i det følgende, deler vi dig en hurtig løsning for at få det.

Fjern ugyldige modtageradresser for ikke-leverbare e-mails fra kontakter

1. Til at starte med skal du trykke på "Alt + F11" i Outlook-vinduet for at få adgang til VBA-editoren.
2. Dernæst kan du placere følgende VBA-kode i et ubrugt projekt eller modul.

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. Derefter skal du lukke det aktuelle vindue.
4. Senere skal du tilføje den nye makro til værktøjslinjen Hurtig adgang. Du kan henvise til artiklen - “Sådan køres VBA-kode i din Outlook".
5. Endelig kan du køre denne makro ved at følge nedenstående trin:

• For det første skal du vælge e-mail-beskederne "Kan ikke leveres".
• Klik derefter på makroen i værktøjslinjen Hurtig adgang.
• Når makroen er færdig, modtager du beskeden, der beder "Afsluttet".
• Nu kan du kontrollere de tilknyttede kontakter, hvor de ugyldige e-mail-adresser er fjernet, som skærmbilledet nedenfor:

Løs Outlook-fejl og korruption

Som vi alle ved, kan Outlook blive udsat for problemer og korruption af forskellige årsager. Derfor, hvis du er en nybegynder i Outlook, bør du hellere træffe nogle effektive forholdsregler, såsom at foretage periodiske sikkerhedskopier af data og bruge en kraftig og pålidelig Outlook reparation hjælpeprogram, ligesom DataNumen Outlook Repair, og så videre.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com