Cara Cepat Mengalih Keluar Alamat Penerima Tidak Sah E-mel Tidak Boleh Dihantar daripada Kenalan Outlook

Apabila menghantar e-mel ke mana-mana alamat penerima yang tidak sah, anda akan menerima pemberitahuan e-mel yang tidak dapat dihantar. Pada ketika itu, jika anda ingin mengalih keluar alamat e-mel ini daripada kenalan, anda boleh menggunakan kaedah yang dikongsi dalam siaran ini.

Pernahkah anda menerima pemberitahuan e-mel yang tidak boleh dihantar yang menyenaraikan alamat e-mel yang tidak sah? Secara umum, anda akan mendapat e-mel sedemikian selepas anda menghantar e-mel ke alamat penerima yang tidak sah. Dalam keadaan ini, biasanya dicadangkan untuk mengalih keluar alamat e-mel ini daripada kenalan Outlook untuk mengelakkan menghantar mel kepada mereka secara tidak sengaja pada masa akan datang. Sekarang, dalam perkara berikut, kami akan berkongsi anda penyelesaian pantas untuk mendapatkannya.

Alih keluar Alamat Penerima Tidak Sah bagi E-mel Tidak Boleh Dihantar daripada Kenalan

1. Sebagai permulaan, dalam tetingkap Outlook, tekan "Alt + F11" untuk mengakses editor VBA.
2. Seterusnya, anda boleh meletakkan kod VBA berikut ke dalam projek 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. Selepas itu, tutup tetingkap semasa.
4. Kemudian, tambahkan makro baharu pada Bar Alat Akses Pantas. Anda boleh rujuk artikel – “Cara Menjalankan Kod VBA di Outlook Anda".
5. Akhir sekali, anda boleh menjalankan makro ini dengan mengikuti langkah-langkah di bawah:

• Pertama sekali, pilih mesej e-mel "Tidak boleh dihantar".
• Kemudian, klik makro dalam Bar Alat Akses Pantas.
• Apabila makro selesai, anda akan menerima mesej yang menggesa "Selesai".
• Sekarang, anda boleh menyemak kenalan yang berkaitan, di mana alamat e-mel yang tidak sah telah dialih keluar, seperti tangkapan skrin di bawah:

Selesaikan Ralat dan Rasuah Outlook

Seperti yang kita sedia maklum, Outlook boleh tertakluk kepada isu dan rasuah atas pelbagai sebab. Oleh itu, jika anda seorang pemula dalam Outlook, lebih baik anda membuat beberapa langkah berjaga-jaga yang berkesan, seperti membuat sandaran data berkala, menggunakan peranti yang berkuasa dan boleh dipercayai. Pembaikan Outlook utiliti, seperti DataNumen Outlook Repair, Dan sebagainya.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulihkan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com