როგორ სწრაფად წაშალოთ Outlook-ის კონტაქტებიდან არასასურველი ელ.ფოსტის არასწორი მიმღების მისამართები

არასწორი მიმღების მისამართებზე ელფოსტის გაგზავნისას, თქვენ მიიღებთ ელფოსტის მიუწვდომლობის შესახებ შეტყობინებებს. ამ ეტაპზე, თუ გსურთ ამ ელფოსტის მისამართების კონტაქტებიდან წაშლა, შეგიძლიათ გამოიყენოთ ამ პოსტში გაზიარებული მეთოდი.

ოდესმე მიგიღიათ ელ.ფოსტის მიუწვდომელი შეტყობინებები არასწორი ელ.ფოსტის მისამართების სიით? ზოგადად, ასეთ ელ.ფოსტებს მიიღებთ არასწორი მიმღების მისამართებზე ელ.ფოსტის გაგზავნის შემდეგ. ასეთ სიტუაციაში, როგორც წესი, რეკომენდებულია ამ ელ.ფოსტის მისამართების წაშლა Outlook-ის კონტაქტებიდან, რათა თავიდან აიცილოთ მათთვის შემთხვევითი ელ.ფოსტის გაგზავნა შემდეგ ჯერზე. ახლა, ქვემოთ, ჩვენ გაგიზიარებთ სწრაფ გადაწყვეტას, თუ როგორ მიიღოთ ეს.

კონტაქტებიდან წაშალეთ მიუწვდომელი ელფოსტის მიმღების არასწორი მისამართები

1. დასაწყებად, Outlook ფანჯარაში, VBA რედაქტორზე გადასასვლელად დააჭირეთ „Alt + F11“.
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. მოგვიანებით, დაამატეთ ახალი მაკრო სწრაფი წვდომის პანელში. შეგიძლიათ იხილოთ სტატია – „როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
5. და ბოლოს, ამ მაკროს გაშვება შეგიძლიათ ქვემოთ მოცემული ნაბიჯების შესრულებით:

• პირველ რიგში, აირჩიეთ „მიუწოდებელი“ ელფოსტის შეტყობინებები.
• შემდეგ, დააწკაპუნეთ მაკროზე სწრაფი წვდომის ინსტრუმენტთა პანელში.
• მაკროს დასრულების შემდეგ, თქვენ მიიღებთ შეტყობინებას „დასრულებულია“.
• ახლა შეგიძლიათ შეამოწმოთ დაკავშირებული კონტაქტები, რომლებშიც არასწორი ელექტრონული ფოსტის მისამართები წაიშალა, როგორც ეს ქვემოთ მოცემულ ეკრანის სურათზეა ნაჩვენები:

Outlook-ის შეცდომებისა და კორუფციის გამოსწორება

როგორც ყველამ ვიცით, Outlook-ს შეიძლება სხვადასხვა მიზეზის გამო პრობლემები და კორუფცია შეექმნას. ამიტომ, თუ Outlook-ში ახალბედა ხართ, უმჯობესია მიიღოთ რამდენიმე ეფექტური სიფრთხილის ზომა, მაგალითად, პერიოდული მონაცემთა სარეზერვო ასლის შექმნა, ძლიერი და საიმედო პროგრამის გამოყენებით. Outlook შეკეთება სასარგებლო, როგორიცაა DataNumen Outlook Repair, და ასე შემდეგ.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად