Ինչպես արագ հեռացնել Outlook-ի կոնտակտներից չառաքվող նամակների անվավեր հասցեները

Երբ էլ.փոստեր եք ուղարկում անվավեր ստացողի հասցեներին, դուք կստանաք չառաքվող էլ.փոստի ծանուցումներ: Այդ դեպքում, եթե ցանկանաք հեռացնել այս էլ.փոստի հասցեները կոնտակտներից, կարող եք օգտագործել այս գրառման մեջ ներկայացված մեթոդը:

Երբևէ ստացե՞լ եք անվավեր էլփոստի ծանուցումներ, որոնցում նշված են անվավեր էլփոստի հասցեները: Ընդհանրապես, դուք կստանաք այդպիսի նամակներ այն բանից հետո, երբ նամակներ ուղարկեք անվավեր հասցեներով: Այս իրավիճակում, ընդհանուր առմամբ, առաջարկվում է հեռացնել այս էլփոստի հասցեները Outlook-ի կոնտակտներից՝ հաջորդ անգամ նրանց պատահական նամակներ ուղարկելը կանխելու համար: Այժմ, հետևյալում, մենք ձեզ կկիսվենք այն ստանալու արագ լուծումով:

Հեռացրեք Կոնտակտներից չառաքվող նամակների անվավեր հասցեները

1. Սկսելու համար, Outlook պատուհանում սեղմեք «Alt + F11»՝ VBA խմբագրիչ մուտք գործելու համար։
2. Հաջորդը, դուք կարող եք տեղադրել հետևյալ VBA կոդը չօգտագործված նախագծի կամ մոդուլի մեջ:

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. Դրանից հետո փակեք ընթացիկ պատուհանը:
4. Ավելի ուշ ավելացրեք նոր մակրո Quick Access Toolbar-ում: Կարող եք անդրադառնալ հոդվածին – «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
5. Ի վերջո, դուք կարող եք գործարկել այս մակրոն՝ հետևելով ստորև նշված քայլերին.

• Սկզբում ընտրեք «Անհանձնվող» էլփոստի հաղորդագրությունները:
• Այնուհետև կտտացրեք մակրո արագ մուտքի գործիքագոտում:
• Երբ մակրոն ավարտվի, դուք կստանաք «Ավարտված» հաղորդագրությունը:
• Այժմ դուք կարող եք ստուգել կապակցված կոնտակտները, որոնցում անվավեր էլփոստի հասցեները հեռացվել են, ինչպես ստորև ներկայացված սքրինշոթը.

Լուծել Outlook-ի սխալները և կոռուպցիան

Ինչպես բոլորս գիտենք, Outlook-ը կարող է ենթարկվել խնդիրների և կոռուպցիայի տարբեր պատճառներով: Հետևաբար, եթե դուք սկսնակ եք Outlook-ում, ապա ավելի լավ է որոշ արդյունավետ նախազգուշական միջոցներ ձեռնարկեք, օրինակ՝ տվյալների պարբերական կրկնօրինակում, հզոր և հուսալի Outlook- ի նորոգում օգտակարություն, ինչպես DataNumen Outlook Repair, Եւ այլն:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com