Při odesílání e-mailů na neplatné adresy příjemců budete dostávat oznámení o nedoručitelných e-mailech. Pokud v takovém případě budete chtít tyto e-mailové adresy z kontaktů odstranit, můžete použít metodu uvedenou v tomto příspěvku.
Obdrželi jste někdy nedoručitelná e-mailová oznámení se seznamem neplatných e-mailových adres? Obecně tyto e-maily obdržíte po odeslání e-mailu na neplatné adresy příjemců. V této situaci se obecně doporučuje odebrat tyto e-mailové adresy z kontaktů aplikace Outlook, aby se zabránilo náhodnému odeslání e-mailů na ně příště. V následujících bodech vám nyní poskytneme rychlé řešení, jak ho získat.
Odeberte z kontaktů neplatné adresy příjemců nedoručitelných e-mailů
- Pro začátek stiskněte v okně Outlooku klávesy „Alt + F11“ pro přístup k editoru VBA.
- Dále můžete vložit následující kód VBA do nepoužívaného projektu nebo modulu.
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
- Poté zavřete aktuální okno.
- Později přidejte nové makro na panel nástrojů Rychlý přístup. Můžete se podívat na článek - „Jak spustit kód VBA ve vašem Outlooku".
- Nakonec můžete toto makro spustit podle následujících kroků:
- Za prvé vyberte e-mailové zprávy „Nedoručitelné“.
- Poté klikněte na makro na panelu nástrojů Rychlý přístup.
- Po dokončení makra se zobrazí zpráva s výzvou „Dokončeno“.
- Nyní můžete zkontrolovat přidružené kontakty, ze kterých byly odstraněny neplatné e-mailové adresy, například snímek obrazovky níže:
Vyřešte chyby a korupci v Outlooku
Jak všichni víme, Outlook může být předmětem problémů a poškození z různých důvodů. Proto, pokud jste v aplikaci Outlook nováčkem, měli byste udělat některá účinná opatření, například pravidelné zálohování dat, používání výkonného a spolehlivého Oprava aplikace Outlook nástroj, jako DataNumen Outlook Repair, A tak dále.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com