Când trimiteți e-mailuri către adrese de destinatari nevalide, veți primi notificări prin e-mail nelivrabile. În acel moment, dacă doriți să eliminați aceste adrese de e-mail din contacte, puteți utiliza metoda prezentată în această postare.
Ați primit vreodată notificări prin e-mail care nu pot fi livrate în care sunt enumerate adresele de e-mail nevalide? În general, veți primi astfel de e-mailuri după ce trimiteți e-mail la adrese nevalide ale destinatarilor. În această situație, se recomandă, în general, să eliminați aceste adrese de e-mail din contactele Outlook pentru a preveni trimiterea accidentală de e-mailuri către ei data viitoare. Acum, în cele ce urmează, vă vom împărtăși o soluție rapidă pentru a o obține.
Eliminați adresele de destinatar nevalide ale e-mailurilor nelivrabile din contacte
- Pentru început, în fereastra Outlook, apăsați „Alt + F11” pentru a accesa editorul VBA.
- Apoi, puteți pune următorul cod VBA într-un proiect sau modul neutilizat.
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
- După aceea, închideți fereastra curentă.
- Mai târziu, adăugați noua macrocomandă la Bara de instrumente Acces rapid. Puteți consulta articolul – „Cum să rulați codul VBA în Outlook".
- În cele din urmă, puteți rula această macrocomandă urmând pașii de mai jos:
- În primul rând, selectați mesajele de e-mail „Nelivrabile”.
- Apoi, faceți clic pe macrocomandă din Bara de instrumente Acces rapid.
- Când macrocomandă se termină, veți primi mesajul care vă solicită „Terminat”.
- Acum, puteți verifica contactele asociate, în care adresele de e-mail nevalide au fost eliminate, ca în captura de ecran de mai jos:
Rezolvați erorile și corupția Outlook
După cum știm cu toții, Outlook poate fi supus problemelor și corupțiilor din diverse motive. Prin urmare, dacă sunteți începător în Outlook, ar fi mai bine să luați câteva măsuri de precauție eficiente, cum ar fi să faceți copii de rezervă periodice ale datelor, folosind un sistem puternic și de încredere. Repararea Outlook utilitate, cum ar fi DataNumen Outlook Repair, Și așa mai departe.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com