Pri odosielaní e-mailov na neplatné adresy príjemcov budete dostávať upozornenia na nedoručiteľné e-maily. Ak v takom prípade budete chcieť tieto e-mailové adresy odstrániť z kontaktov, môžete použiť metódu uvedenú v tomto príspevku.
Dostali ste niekedy nedoručiteľné e-mailové upozornenia so zoznamom neplatných e-mailových adries? Spravidla dostanete takéto e-maily po odoslaní e-mailu na neplatné adresy príjemcov. V tejto situácii sa všeobecne odporúča odstrániť tieto e-mailové adresy z kontaktov programu Outlook, aby sa zabránilo náhodnému odosielaniu e-mailov na ne. Teraz vás budeme v nasledujúcich komentároch zdieľať s rýchlym riešením, ako ho získať.
Odstráňte z kontaktov neplatné adresy príjemcov nedoručiteľných e-mailov
- Na začiatok v okne Outlooku stlačte klávesy „Alt + F11“ pre prístup k editoru VBA.
- Ďalej môžete vložiť nasledujúci kód VBA do nepoužívaného projektu alebo 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
- Potom zatvorte súčasné okno.
- Neskôr pridajte nové makro na panel s nástrojmi Rýchly prístup. Môžete sa odvolať na článok - „Ako spustiť kód VBA v programe Outlook".
- Nakoniec môžete toto makro spustiť podľa pokynov uvedených nižšie:
- Na prvom mieste vyberte e-mailové správy „Nedoručiteľné“.
- Potom kliknite na makro na paneli s nástrojmi Rýchly prístup.
- Po dokončení makra sa zobrazí správa s výzvou „Dokončené“.
- Teraz môžete skontrolovať priradené kontakty, z ktorých boli odstránené neplatné e-mailové adresy, napríklad snímka obrazovky nižšie:
Vyriešte chyby a korupciu v Outlooku
Ako všetci vieme, Outlook môže byť predmetom problémov a poškodení z rôznych dôvodov. Preto, ak ste v aplikácii Outlook nováčikom, mali by ste urobiť nejaké účinné preventívne opatrenia, napríklad pravidelné zálohovanie údajov, používanie výkonného a spoľahlivého Oprava Outlook užitočnosť, ako DataNumen Outlook Repair, A tak ďalej.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S