Όταν στέλνετε email σε μη έγκυρες διευθύνσεις παραληπτών, θα λαμβάνετε ειδοποιήσεις email για μη παραδοτέα. Σε αυτό το σημείο, εάν θέλετε να καταργήσετε αυτές τις διευθύνσεις email από τις επαφές, μπορείτε να χρησιμοποιήσετε τη μέθοδο που αναφέρεται σε αυτήν την ανάρτηση.
Έχετε λάβει ποτέ μη παραδοτέες ειδοποιήσεις μέσω email που να αναφέρουν τις μη έγκυρες διευθύνσεις ηλεκτρονικού ταχυδρομείου; Γενικά, θα λάβετε τέτοια μηνύματα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου σε μη έγκυρες διευθύνσεις παραληπτών. Σε αυτήν την περίπτωση, συνιστάται γενικά να αφαιρέσετε αυτές τις διευθύνσεις ηλεκτρονικού ταχυδρομείου από τις επαφές του Outlook για να αποτρέψετε κατά λάθος την αποστολή μηνυμάτων σε αυτές την επόμενη φορά. Τώρα, στα ακόλουθα, θα σας μοιραστούμε μια γρήγορη λύση για να το αποκτήσετε.
Καταργήστε τις μη έγκυρες διευθύνσεις παραληπτών μη παραδοτέων email από τις επαφές
- Για αρχή, στο παράθυρο του Outlook, πατήστε "Alt + F11" για να αποκτήσετε πρόσβαση στον επεξεργαστή VBA.
- Στη συνέχεια, μπορείτε να βάλετε τον ακόλουθο κώδικα VBA σε ένα αχρησιμοποίητο έργο ή ενότητα.
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
- Μετά από αυτό, κλείστε το τρέχον παράθυρο.
- Αργότερα, προσθέστε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης. Μπορείτε να ανατρέξετε στο άρθρο - "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Τέλος, μπορείτε να εκτελέσετε αυτήν τη μακροεντολή ακολουθώντας τα παρακάτω βήματα:
- Κατ 'αρχάς, επιλέξτε τα μηνύματα email "Μη παραδοτέα".
- Στη συνέχεια, κάντε κλικ στη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Όταν ολοκληρωθεί η μακροεντολή, θα λάβετε το μήνυμα με το μήνυμα "Ολοκληρώθηκε".
- Τώρα, θα μπορούσατε να ελέγξετε τις σχετικές επαφές, στις οποίες έχουν καταργηθεί οι μη έγκυρες διευθύνσεις ηλεκτρονικού ταχυδρομείου, όπως το παρακάτω στιγμιότυπο οθόνης:
Επίλυση σφαλμάτων και διαφθοράς του Outlook
Όπως όλοι γνωρίζουμε, το Outlook μπορεί να υπόκειται σε ζητήματα και αλλοιώσεις για διάφορους λόγους. Ως εκ τούτου, εάν είστε αρχάριος στο Outlook, καλύτερα να κάνετε μερικές αποτελεσματικές προφυλάξεις, όπως να κάνετε περιοδικά αντίγραφα ασφαλείας δεδομένων, χρησιμοποιώντας ένα ισχυρό και αξιόπιστο Επισκευή του Outlook χρησιμότητα, όπως DataNumen Outlook Repair, και ούτω καθεξής.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com