Prilikom slanja e-poruka na bilo koje nevažeće adrese primalaca, primit ćete obavještenja o neisporučivim e-porukama. U tom trenutku, ako želite ukloniti te adrese e-pošte iz kontakata, možete koristiti metodu opisanu u ovom postu.
Jeste li ikada primili e-mail obavještenja koja se ne mogu dostaviti u kojima su navedene nevažeće adrese e-pošte? Općenito, takve e-poruke ćete dobiti nakon što pošaljete e-poštu na nevažeće adrese primatelja. U ovoj situaciji, općenito se predlaže da uklonite ove adrese e-pošte iz Outlook kontakata kako biste spriječili slučajno slanje e-pošte na njih sljedeći put. Sada ćemo vam u nastavku podijeliti brzo rješenje da ga dobijete.
Uklonite nevažeće adrese primatelja e-poruka koje se ne mogu dostaviti iz kontakata
- Za početak, u prozoru Outlooka pritisnite "Alt + F11" da biste pristupili VBA editoru.
- Zatim možete staviti sljedeći VBA kod u neiskorišteni projekat ili modul.
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
- Nakon toga zatvorite trenutni prozor.
- Kasnije dodajte novi makro na alatnu traku za brzi pristup. Možete pogledati članak – “Kako pokrenuti VBA kod u vašem Outlooku".
- Konačno, ovaj makro možete pokrenuti slijedeći korake u nastavku:
- Na prvom mjestu odaberite poruke e-pošte „Ne mogu se isporučiti“.
- Zatim kliknite na makro na traci sa alatkama za brzi pristup.
- Kada se makro završi, dobićete poruku sa upitom “Završeno”.
- Sada možete provjeriti povezane kontakte iz kojih su uklonjene nevažeće adrese e-pošte, kao na slici ispod:
Riješite Outlook greške i oštećenje
Kao što svi znamo, Outlook može biti predmet problema i oštećenja iz različitih razloga. Stoga, ako ste početnik u Outlooku, bolje je da preduzmete neke efikasne mjere predostrožnosti, kao što je pravljenje periodičnih sigurnosnih kopija podataka, korištenje moćnog i pouzdanog Outlook popravak korisnost, kao DataNumen Outlook Repair, i tako dalje.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com