Qabul qiluvchining noto'g'ri manzillarini Outlook kontaktlaridan qanday qilib tezda olib tashlash mumkin.

Noto'g'ri qabul qiluvchi manzillariga elektron pochta xabarlarini yuborganingizda, siz yetkazib berilmaydigan elektron pochta xabarnomalarini olasiz. Shunda, agar siz ushbu elektron pochta manzillarini kontaktlardan olib tashlamoqchi bo'lsangiz, ushbu postda ulashgan usuldan foydalanishingiz mumkin.

Siz hech qachon noto'g'ri elektron pochta manzillari ko'rsatilgan e-pochta xabarnomalarini olganmisiz? Umuman olganda, siz qabul qiluvchining noto'g'ri manzillariga elektron pochta xabarlarini yuborganingizdan so'ng, bunday xatlarni olasiz. Bunday vaziyatda, odatda, keyingi safar tasodifiy xat yubormaslik uchun ushbu elektron pochta manzillarini Outlook kontaktlaridan olib tashlash tavsiya etiladi. Endi, quyida biz sizga uni olishning tezkor yechimini aytib beramiz.

Kontaktlardan etkazilmaydigan elektron pochta xabarlarini qabul qiluvchining noto'g'ri manzillarini olib tashlang

1. Boshlash uchun, Outlook oynasida VBA muharririga kirish uchun "Alt + F11" tugmalarini bosing.
2. Keyinchalik, foydalanilmagan loyiha yoki modulga quyidagi VBA kodini qo'yishingiz mumkin.

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. Shundan so'ng, joriy oynani yoping.
4. Keyinchalik, yangi makrosni Tez kirish asboblar paneliga qo'shing. Siz maqolaga murojaat qilishingiz mumkin - "Outlook-da VBA kodini qanday ishlatish kerak".
5. Nihoyat, quyidagi amallarni bajarib, ushbu makrosni ishga tushirishingiz mumkin:

• Birinchi navbatda, "Etkazib bo'lmaydigan" elektron pochta xabarlarini tanlang.
• Keyin, Tez kirish asboblar panelidagi makrosni bosing.
• Makros tugagach, siz "Bajarildi" degan xabarni olasiz.
• Endi siz quyidagi skrinshot kabi noto'g'ri elektron pochta manzillari o'chirilgan bog'langan kontaktlarni tekshirishingiz mumkin:

Outlook xatolarini va buzilishlarini hal qiling

Barchamizga ma'lumki, Outlook turli sabablarga ko'ra muammolar va buzilishlarga duch kelishi mumkin. Shunday qilib, agar siz Outlook-da yangi boshlovchi bo'lsangiz, vaqti-vaqti bilan ma'lumotlarning zaxira nusxasini yaratish, kuchli va ishonchli dasturlardan foydalanish kabi samarali choralarni ko'rganingiz ma'qul. Outlook-ni ta'mirlash kabi foydali dastur DataNumen Outlook Repair, va hokazo.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com