Toimittamattomien sähköpostien virheellisten vastaanottajaosoitteiden poistaminen nopeasti Outlook-yhteystiedoista

Kun lähetät sähköposteja virheellisiin vastaanottajaosoitteisiin, saat ilmoituksia toimittamattomista sähköposteista. Jos haluat poistaa nämä sähköpostiosoitteet yhteystiedoista, voit käyttää tässä viestissä jaettua menetelmää.

Oletko koskaan saanut toimittamattomia sähköposti-ilmoituksia, joissa luetellaan virheelliset sähköpostiosoitteet? Yleensä saat tällaiset sähköpostit, kun olet lähettänyt sähköpostia virheellisiin vastaanottajien osoitteisiin. Tässä tilanteessa on yleensä suositeltavaa poistaa nämä sähköpostiosoitteet Outlook-yhteystiedoista, jotta vältetään vahingossa sähköpostiviestien lähettäminen heille seuraavan kerran. Seuraavassa kerromme sinulle nopean ratkaisun sen saamiseksi.

Poista lähettämättömien sähköpostien virheelliset vastaanottajaosoitteet yhteystiedoista

1. Aloita painamalla Outlook-ikkunassa Alt + F11 päästäksesi VBA-editoriin.
2. Seuraavaksi voit laittaa seuraavan VBA-koodin käyttämättömään projektiin tai moduuliin.

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. Tämän jälkeen sulje nykyinen ikkuna.
4. Lisää myöhemmin uusi makro Quick Access -työkalupalkkiin. Voit viitata artikkeliin - “Kuinka suorittaa VBA-koodi Outlookissa".
5. Lopuksi voit suorittaa tämän makron seuraavasti:

• Ensinnäkin, valitse "Toimitamattomat" sähköpostiviestit.
• Napsauta sitten pikakäynnistystyökalurivin makroa.
• Kun makro on valmis, saat viestin, joka kehottaa "Valmis".
• Nyt voit tarkistaa liitetyt yhteystiedot, joista virheelliset sähköpostiosoitteet on poistettu, kuten alla oleva kuvakaappaus:

Ratkaise Outlook-virheet ja vioittuminen

Kuten me kaikki tiedämme, Outlook voi joutua ongelmien ja vioittumisen kohteeksi useista syistä. Siksi, jos olet aloittelija Outlookissa, sinun on parasta tehdä joitain tehokkaita varotoimia, kuten tehdä säännöllisiä varmuuskopioita, käyttää tehokkaita ja luotettavia Outlookin korjaus apuohjelma, kuten DataNumen Outlook Repair, Ja niin edelleen.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com