Prilikom slanja e-pošte na bilo koju nevažeću adresu primatelja, primit ćete obavijesti o neisporučivoj e-pošti. U tom trenutku, ako želite ukloniti te adrese e-pošte iz kontakata, možete upotrijebiti metodu opisanu u ovom postu.
Jeste li ikada primili obavijesti o neisporuci e-pošte s popisom nevažećih adresa e-pošte? Općenito, takve ćete e-poruke dobiti nakon što pošaljete e-poštu na nevažeće adrese primatelja. U ovoj situaciji općenito se predlaže uklanjanje ovih adresa e-pošte iz Outlookovih kontakata kako bi se spriječilo slučajno slanje e-pošte sljedeći put. Sada, u nastavku, podijelit ćemo s vama brzo rješenje kako ga dobiti.
Uklonite nevažeće adrese primatelja e-pošte koja se ne može isporučiti iz kontakata
- Za početak, u prozoru Outlooka pritisnite "Alt + F11" za pristup VBA editoru.
- Zatim možete staviti sljedeći VBA kod u neiskorišteni projekt 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 novu makronaredbu na alatnu traku za brzi pristup. Možete pogledati članak – “Kako pokrenuti VBA kod u vašem Outlooku".
- Konačno, ovu makronaredbu možete pokrenuti slijedeći korake u nastavku:
- Na prvom mjestu odaberite poruke e-pošte "Neisporučivo".
- Zatim kliknite makro na alatnoj traci za brzi pristup.
- Kada makronaredba završi, primit ćete poruku s upitom "Dovršeno".
- Sada možete provjeriti pridružene kontakte u kojima su nevažeće adrese e-pošte uklonjene, kao na slici ispod:
Riješite Outlook pogreške i korupciju
Kao što svi znamo, Outlook može biti predmet problema i oštećenja iz raznih razloga. Stoga, ako ste početnik u Outlooku, bolje bi bilo da poduzmete neke učinkovite mjere opreza, poput izrade povremenih sigurnosnih kopija podataka, koristeći snažan i pouzdan Outlook popravak korisnost, poput DataNumen Outlook Repair, I tako dalje.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com