Kuidas kiiresti eemaldada Outlooki kontaktidest kättetoimetamatute meilide kehtetud adressaatide aadressid

Kui saadate e-kirju kehtetutele adressaadi aadressidele, saate teateid kättetoimetamata e-kirjade kohta. Sellisel juhul, kui soovite need e-posti aadressid kontaktide hulgast eemaldada, saate kasutada selles postituses jagatud meetodit.

Kas olete kunagi saanud kättetoimetamatuid meiliteateid, milles on kirjas kehtetud e-posti aadressid? Üldiselt saate selliseid e-kirju pärast seda, kui saadate e-kirjad valedele adressaatide aadressidele. Sellises olukorras soovitatakse üldiselt need e-posti aadressid Outlooki kontaktide hulgast eemaldada, et vältida neile järgmisel korral kogemata kirjade saatmist. Nüüd jagame teile järgnevalt kiiret lahendust selle saamiseks.

Eemaldage kontaktide hulgast kättetoimetamatute meilide kehtetud adressaatide aadressid

1. Alustuseks vajutage Outlooki aknas VBA redaktorisse pääsemiseks klahvikombinatsiooni „Alt + F11”.
2. Järgmisena saate kasutada kasutamata projekti või moodulisse järgmise VBA koodi.

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. Pärast seda sulgege praegune aken.
4. Hiljem lisage uus makro kiirpääsu tööriistaribale. Võite vaadata artiklit - "Kuidas Outlookis VBA-koodi käivitada".
5. Lõpuks saate selle makro käivitada, järgides alltoodud samme.

• Kõigepealt valige e-kirjad "Edastamatud".
• Seejärel klõpsake kiirpääsu tööriistaribal makrol.
• Kui makro on lõppenud, kuvatakse teade „Lõpetatud”.
• Nüüd saate kontrollida seotud kontakte, millest kehtetud e-posti aadressid on eemaldatud, nagu alloleval ekraanipildil:

Lahendage Outlooki vead ja korruptsioon

Nagu me kõik teame, võib Outlook erinevatel põhjustel probleemide ja korruptsioonide alla sattuda. Seega, kui olete Outlookis algaja, peaksite võtma kasutusele mõned tõhusad ettevaatusabinõud, näiteks tegema perioodilisi andmete varukoopiaid, kasutades võimsat ja usaldusväärset Outlooki parandamine utiliit, nagu DataNumen Outlook Repair, ja nii edasi.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom