Cara Cepat Menghapus Alamat Penerima yang Tidak Valid dari Email yang Tidak Terkirim dari Kontak Outlook

Saat mengirim email ke alamat penerima yang tidak valid, Anda akan menerima pemberitahuan email yang tidak terkirim. Pada saat itu, jika Anda mungkin ingin menghapus alamat email ini dari kontak, Anda dapat menggunakan metode yang dibagikan di halaman iniost.

Pernahkah Anda menerima pemberitahuan email yang tidak terkirim yang mencantumkan alamat email yang tidak valid? Secara umum, Anda akan mendapatkan email seperti itu setelah Anda mengirim email ke alamat penerima yang tidak valid. Dalam situasi ini, biasanya disarankan untuk menghapus alamat email ini dari kontak Outlook untuk mencegah pengiriman email secara tidak sengaja kepada mereka di lain waktu. Nah berikut ini, kami akan membagikan solusi cepat untuk mendapatkannya.

Hapus Alamat Penerima yang Tidak Valid dari Email yang Tidak Terkirim dari Kontak

1. Untuk sebagaitart, di jendela Outlook, tekan "Alt + F11" untuk mengakses editor VBA.
2. Selanjutnya, Anda dapat memasukkan kode VBA berikut ke dalam proyek atau modul yang tidak digunakan.

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. Setelah itu, tutup jendela aktif.
4. Nanti, tambahkan makro baru ke Bilah Alat Akses Cepat. Anda dapat merujuk ke artikel - “Cara Menjalankan Kode VBA di Outlook Anda".
5. Terakhir, Anda dapat menjalankan makro ini dengan mengikuti langkah-langkah di bawah ini:

• Pertama-tama, pilih pesan email "Tidak terkirim".
• Lalu, klik makro di Bilah Alat Akses Cepat.
• Saat makro selesai, Anda akan menerima pesan yang meminta "Selesai".
• Sekarang, Anda dapat memeriksa kontak terkait, di mana alamat email yang tidak valid telah dihapus, seperti gambar di bawah ini:

Atasi Kesalahan dan Korupsi Outlook

Seperti yang kita semua tahu, Outlook dapat terkena masalah dan korupsi karena berbagai alasan. Oleh karena itu, jika Anda seorang pemula di Outlook, Anda sebaiknya melakukan beberapa tindakan pencegahan yang efektif, seperti membuat cadangan data berkala, menggunakan perangkat lunak yang kuat dan andal. Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair, Dan sebagainya.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com