Jak szybko usunąć nieprawidłowe adresy odbiorców wiadomości e-mail, których nie można dostarczyć, z kontaktów programu Outlook

Wysyłając e-maile na nieprawidłowe adresy odbiorców, otrzymasz powiadomienia o niedostarczeniu wiadomości. W takim przypadku, jeśli chcesz usunąć te adresy e-mail z kontaktów, możesz skorzystać z metody opisanej w tym poście.

Czy kiedykolwiek otrzymałeś powiadomienia e-mail o niemożności dostarczenia zawierające nieprawidłowe adresy e-mail? Generalnie takie wiadomości e-mail otrzymasz po wysłaniu wiadomości e-mail na nieprawidłowe adresy odbiorców. W tej sytuacji ogólnie zaleca się usunięcie tych adresów e-mail z kontaktów programu Outlook, aby zapobiec przypadkowemu wysyłaniu do nich wiadomości e-mail następnym razem. Teraz, poniżej, udostępnimy Ci szybkie rozwiązanie, aby to uzyskać.

Usuń nieprawidłowe adresy odbiorców wiadomości e-mail, których nie można dostarczyć, z Kontaktów

1. Na początek w oknie Outlook naciśnij „Alt + F11”, aby uzyskać dostęp do edytora VBA.
2. Następnie możesz umieścić następujący kod VBA w nieużywanym projekcie lub module.

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. Następnie zamknij bieżące okno.
4. Później dodaj nowe makro do paska narzędzi szybkiego dostępu. Możesz odnieść się do artykułu - „Jak uruchomić kod VBA w swoim Outlooku".
5. Na koniec możesz uruchomić to makro, wykonując poniższe czynności:

• W pierwszej kolejności wybierz wiadomości e-mail „Niedostarczalne”.
• Następnie kliknij makro na pasku narzędzi Szybki dostęp.
• Po zakończeniu działania makra zostanie wyświetlony komunikat „Ukończono”.
• Teraz możesz sprawdzić powiązane kontakty, w których nieprawidłowe adresy e-mail zostały usunięte, jak na poniższym zrzucie ekranu:

Rozwiązywanie błędów i korupcji programu Outlook

Jak wszyscy wiemy, program Outlook może podlegać problemom i uszkodzeniom z różnych powodów. Dlatego jeśli jesteś nowicjuszem w Outlooku, lepiej zastosuj skuteczne środki ostrożności, takie jak okresowe tworzenie kopii zapasowych danych, korzystanie z potężnego i niezawodnego Naprawa programu Outlook narzędzie, jak DataNumen Outlook RepairI tak dalej.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com