Når du sender e-post til ugyldige mottakeradresser, vil du motta e-postvarsler om at e-postadressene ikke kan leveres. Hvis du da vil fjerne disse e-postadressene fra kontaktene dine, kan du bruke metoden som er delt i dette innlegget.
Har du noen gang mottatt e-postvarsler som ikke kan leveres med ugyldige e-postadresser? Generelt vil du motta slike e-poster etter at du har sendt e-post til ugyldige mottakeradresser. I denne situasjonen anbefales det vanligvis å fjerne disse e-postadressene fra Outlook-kontakter for å forhindre at e-post sendes til dem ved et uhell neste gang. Nå, i det følgende, vil vi dele deg en rask løsning for å få den.
Fjern de ugyldige mottakeradressene til e-poster som ikke kan leveres fra kontakter
- For å starte med, trykk «Alt + F11» i Outlook-vinduet for å få tilgang til VBA-editoren.
- Deretter kan du sette følgende VBA-kode inn i et ubrukt prosjekt eller 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
- Etter det, lukk gjeldende vindu.
- Senere legger du til den nye makroen i verktøylinjen for hurtigtilgang. Du kan referere til artikkelen - "Hvordan kjøre VBA-kode i Outlook".
- Til slutt kan du kjøre denne makroen ved å følge trinnene nedenfor:
- For det første, velg e-postmeldingene som ikke kan leveres.
- Klikk deretter på makroen i hurtigtilgangsverktøylinjen.
- Når makroen er ferdig, vil du motta meldingen som ber "Completed".
- Nå kan du sjekke de tilknyttede kontaktene, der de ugyldige e-postadressene er fjernet, som skjermbildet nedenfor:
Løs Outlook-feil og korrupsjon
Som vi alle vet, kan Outlook bli utsatt for problemene og korrupsjonene av forskjellige årsaker. Derfor, hvis du er en nybegynner i Outlook, bør du ta noen effektive forholdsregler, for eksempel å ta periodiske sikkerhetskopier av data, bruke en kraftig og pålitelig Outlook reparasjon nytte, som DataNumen Outlook Repair, Og så videre.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med