Çatdırılmayan e-poçtların etibarsız alıcı ünvanlarını Outlook kontaktlarından necə tez silmək olar

Yanlış alıcı ünvanlarına e-poçt göndərərkən, çatdırılmayan e-poçt bildirişləri alacaqsınız. Bu zaman, bu e-poçt ünvanlarını kontaktlardan silmək istəyirsinizsə, bu yazıda paylaşılan metoddan istifadə edə bilərsiniz.

Siz heç etibarsız e-poçt ünvanlarını göstərən çatdırılmayan e-poçt bildirişləri almısınızmı? Ümumiyyətlə, etibarsız alıcı ünvanlarına e-poçt göndərdikdən sonra belə e-poçtlar alacaqsınız. Bu vəziyyətdə, növbəti dəfə təsadüfən onlara məktub göndərilməsinin qarşısını almaq üçün bu e-poçt ünvanlarını Outlook kontaktlarından silmək tövsiyə olunur. İndi, aşağıdakılarda, onu əldə etmək üçün sizə sürətli bir həll paylaşacağıq.

Çatdırılmayan E-poçtların Etibarsız Alıcı Ünvanlarını Kontaktlardan silin

1. Başlamaq üçün, Outlook pəncərəsində VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrini basın.
2. Sonra, aşağıdakı VBA kodunu istifadə olunmamış layihə və ya modula yerləşdirə bilərsiniz.

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. Bundan sonra cari pəncərəni bağlayın.
4. Daha sonra yeni makronu Tez Giriş Alətlər Panelinə əlavə edin. Məqaləyə müraciət edə bilərsiniz – “Outlook-da VBA kodunu necə işlətmək olar".
5. Nəhayət, aşağıdakı addımları yerinə yetirərək bu makronu işə sala bilərsiniz:

• İlk növbədə, "Çatdırılmayan" e-poçt mesajlarını seçin.
• Sonra, Tez Giriş Alətlər Panelində makroya klikləyin.
• Makro tamamlandıqda, "Tamamlandı" mesajını alacaqsınız.
• İndi, aşağıdakı ekran görüntüsü kimi etibarsız e-poçt ünvanlarının silindiyi əlaqəli kontaktları yoxlaya bilərsiniz:

Outlook səhvlərini və korrupsiyanı həll edin

Hamımızın bildiyi kimi, Outlook müxtəlif səbəblərdən problemlərə və korrupsiyaya məruz qala bilər. Beləliklə, əgər siz Outlook-da təcrübəsizsinizsə, məlumatların vaxtaşırı ehtiyat nüsxəsini çıxarmaq, güclü və etibarlı proqramlardan istifadə etmək kimi bəzi effektiv ehtiyat tədbirləri görsəniz yaxşı olar. Outlook təmiri kimi faydalılıq DataNumen Outlook Repair, Və s.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com