Si të hiqni shpejt adresat e pavlefshme të marrësve të postës elektronike të padërgueshme nga kontaktet e Outlook

Kur dërgoni email-e te adresa marrëse të pavlefshme, do të merrni njoftime për email-e të padërguara. Në atë pikë, nëse dëshironi t'i hiqni këto adresa email-i nga kontaktet, mund të përdorni metodën e ndarë në këtë postim.

A keni marrë ndonjëherë njoftime me email të papërdorshëm që listojnë adresat e pavlefshme të emailit? Në përgjithësi, ju do të merrni emaile të tilla pasi të dërgoni email në adresa të pavlefshme marrësish. Në këtë situatë, përgjithësisht sugjerohet që këto adresa emaili të hiqen nga kontaktet e Outlook për të parandaluar dërgimin aksidental të postave tek ata herën tjetër. Tani, në vijim, ne do t'ju ndajmë një zgjidhje të shpejtë për ta marrë atë.

Hiqni adresat e pavlefshme të marrësve të emaileve të padorëzuar nga Kontaktet

1. Për të filluar, në dritaren e Outlook, shtypni "Alt + F11" për të hyrë në redaktorin VBA.
2. Më pas, mund të vendosni kodin e mëposhtëm VBA në një projekt ose modul të papërdorur.

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. Pas kësaj, mbyllni dritaren aktuale.
4. Më vonë, shtoni makro të re në shiritin e veglave të aksesit të shpejtë. Ju mund t'i referoheni artikullit - "Si të ekzekutoni kodin VBA në Outlook tuaj".
5. Më në fund, mund ta ekzekutoni këtë makro duke ndjekur hapat e mëposhtëm:

• Në radhë të parë, zgjidhni mesazhet e postës elektronike "të padorëzuar".
• Pastaj, klikoni makro në shiritin e veglave të aksesit të shpejtë.
• Kur makro të përfundojë, do të merrni mesazhin që kërkon "Përfunduar".
• Tani, mund të kontrolloni kontaktet e lidhura, në të cilat janë hequr adresat e pavlefshme të emailit, si pamja e ekranit më poshtë:

Zgjidhja e gabimeve dhe korrupsionit të Outlook

Siç e dimë të gjithë, Outlook mund t'i nënshtrohet çështjeve dhe korrupsionit për arsye të ndryshme. Prandaj, nëse jeni fillestar në Outlook, është më mirë të bëni disa masa paraprake efektive, të tilla si kopjimi periodik i të dhënave, përdorimi i një pajisjeje të fuqishme dhe të besueshme. Riparimi i parashikimeve dobi, si DataNumen Outlook Repair, Dhe kështu me radhë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com