Come rimuovere rapidamente gli indirizzi dei destinatari non validi delle e-mail non consegnabili dai contatti di Outlook

Quando si inviano email a indirizzi di destinatari non validi, si riceve una notifica di mancata consegna. A quel punto, se si desidera rimuovere questi indirizzi email dai contatti, è possibile utilizzare il metodo descritto in questo articolo.

Hai mai ricevuto notifiche e-mail non consegnabili che elencano gli indirizzi e-mail non validi? In generale, riceverai tali e-mail dopo aver inviato e-mail a indirizzi di destinatari non validi. In questa situazione, si consiglia generalmente di rimuovere questi indirizzi e-mail dai contatti di Outlook per evitare di inviare loro messaggi accidentalmente la volta successiva. Ora, di seguito, ti condivideremo una soluzione rapida per ottenerlo.

Rimuovi dai contatti gli indirizzi dei destinatari non validi delle e-mail non consegnabili

1. Innanzitutto, nella finestra di Outlook, premi "Alt + F11" per accedere all'editor VBA.
2. Successivamente, puoi inserire il seguente codice VBA in un progetto o modulo inutilizzato.

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. Successivamente, chiudi la finestra corrente.
4. Successivamente, aggiungi la nuova macro alla barra di accesso rapido. Puoi fare riferimento all'articolo - "Come eseguire il codice VBA in Outlook".
5. Infine, puoi eseguire questa macro seguendo i passaggi seguenti:

• In primo luogo, seleziona i messaggi e-mail "Non recapitabili".
• Quindi, fare clic sulla macro nella barra di accesso rapido.
• Al termine della macro, riceverai il messaggio che richiede "Completato".
• Ora puoi controllare i contatti associati, in cui gli indirizzi email non validi sono stati rimossi, come lo screenshot qui sotto:

Risolvi errori e corruzione di Outlook

Come tutti sappiamo, Outlook può essere soggetto a problemi e corruzioni per vari motivi. Quindi, se sei un principiante di Outlook, è meglio prendere alcune precauzioni efficaci, come eseguire backup periodici dei dati, utilizzando un software potente e affidabile Riparazione di Outlook utilità, come DataNumen Outlook Repair, E così via.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com