Paano Mabilis na Alisin ang Di-wastong Mga Address ng Tatanggap ng Hindi maihahatid na Mga Email mula sa Mga Contact sa Outlook

Kapag nagpapadala ng mga email sa sinumang hindi wastong address ng tatanggap, makakatanggap ka ng mga notipikasyon sa email na hindi maihahatid. Sa puntong iyon, kung gusto mong alisin ang mga email address na ito sa mga contact, maaari mong gamitin ang paraang ibinahagi sa post na ito.

Nakatanggap ka ba ng hindi matatanggap na mga abiso sa email na nakalista sa hindi wastong mga email address? Sa pangkalahatan, makakakuha ka ng mga nasabing email pagkatapos mong magpadala ng email sa mga hindi wastong address ng tatanggap. Sa sitwasyong ito, iminungkahi sa pangkalahatan na alisin ang mga email address na ito mula sa mga contact sa Outlook upang maiwasan ang hindi sinasadyang pagpapadala ng mga mail sa kanila sa susunod. Ngayon, sa mga sumusunod, magbabahagi kami sa iyo ng isang mabilis na solusyon upang makuha ito.

Alisin ang Di-wastong Mga Address ng Tatanggap ng Hindi Maihahatid na Mga Email mula sa Mga contact

1. Bilang panimula, sa window ng Outlook, pindutin ang "Alt + F11" upang ma-access ang VBA editor.
2. Susunod, maaari mong ilagay ang sumusunod na VBA code sa isang hindi nagamit na proyekto o module.

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. Pagkatapos nito, isara ang kasalukuyang window.
4. Sa paglaon, idagdag ang bagong macro sa Quick Access Toolbar. Maaari kang mag-refer sa artikulo - “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
5. Panghuli, maaari mong patakbuhin ang macro na ito sa pamamagitan ng pagsunod sa mga hakbang sa ibaba:

• Sa unang lugar, piliin ang mga email na "Hindi maihatid" na mga email.
• Pagkatapos, i-click ang macro sa Quick Access Toolbar.
• Kapag natapos ang macro, makakatanggap ka ng mensahe na nag-uudyok sa "Nakumpleto".
• Ngayon, maaari mong suriin ang mga nauugnay na contact, kung saan ang mga hindi wastong email address ay inalis, tulad ng screenshot sa ibaba:

Lutasin ang Mga Error sa Outlook at Korapsyon

Tulad ng alam nating lahat, maaaring mapailalim ang Outlook sa mga isyu at katiwalian sa iba't ibang kadahilanan. Samakatuwid, kung ikaw ay isang baguhan sa Outlook, mas mahusay kang gumawa ng ilang mabisang pag-iingat, tulad ng paggawa ng mga pana-panahong pag-backup ng data, paggamit ng isang malakas at maaasahan Pag-aayos ng Outlook utility, tulad ng DataNumen Outlook Repair, At iba pa.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa