Sūtot e-pastus uz nederīgām adresātu adresēm, jūs saņemsiet paziņojumus par nepiegādājamiem e-pastiem. Ja vēlaties noņemt šīs e-pasta adreses no kontaktpersonām, varat izmantot šajā ierakstā kopīgoto metodi.
Vai esat kādreiz saņēmis nepiegādājamus e-pasta paziņojumus, norādot nederīgas e-pasta adreses? Parasti jūs saņemsit šādus e-pastus pēc tam, kad esat nosūtījis e-pastu uz nederīgām adresātu adresēm. Šajā situācijā parasti tiek ieteikts šīs e-pasta adreses noņemt no Outlook kontaktiem, lai nākamajā reizē netiktu nejauši sūtīti e-pasta ziņojumi. Turpmāk mēs jums pastāstīsim par ātru risinājumu, kā to iegūt.
No kontaktpersonām noņemiet nepiegādāto e-pastu nederīgās adresātu adreses
- Lai sāktu, Outlook logā nospiediet taustiņu kombināciju “Alt + F11”, lai piekļūtu VBA redaktoram.
- Pēc tam jūs varat ievietot šādu VBA kodu neizmantotā projektā vai 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
- Pēc tam aizveriet pašreizējo logu.
- Vēlāk pievienojiet jauno makro ātrās piekļuves rīkjoslai. Jūs varat atsaukties uz rakstu - “Kā palaist VBA kodu programmā Outlook".
- Visbeidzot, jūs varat palaist šo makro, veicot šādas darbības:
- Pirmkārt, atlasiet e-pasta ziņojumus “Nepiegādājami”.
- Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro.
- Kad makro būs pabeigts, jūs saņemsit ziņojumu ar aicinājumu “Pabeigts”.
- Tagad jūs varētu pārbaudīt saistītās kontaktpersonas, kurās ir noņemtas nederīgās e-pasta adreses, piemēram, zemāk redzamo ekrānuzņēmumu:
Atrisiniet Outlook kļūdas un korupciju
Kā mēs visi zinām, Outlook dažādu iemeslu dēļ var pakļauties problēmām un bojājumiem. Tādējādi, ja esat iesācējs programmā Outlook, labāk veiciet dažus efektīvus piesardzības pasākumus, piemēram, periodiski veiciet datu dublēšanu, izmantojot spēcīgu un uzticamu Outlook remonts lietderība, piemēram DataNumen Outlook Repair, un tā tālāk.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar