Надсилаючи електронні листи на будь-які недійсні адреси одержувачів, ви отримуватимете сповіщення про недоставлені листи. У такому разі, якщо ви захочете видалити ці адреси електронної пошти з контактів, ви можете скористатися методом, описаним у цій публікації.
Ви коли-небудь отримували повідомлення про недоступність електронної пошти з переліком недійсних адрес електронної пошти? Загалом, ви отримаєте такі електронні листи після надсилання електронних листів на недійсні адреси одержувачів. У цій ситуації зазвичай рекомендується видалити ці адреси електронної пошти з контактів Outlook, щоб уникнути випадкової надсилання їм електронної пошти наступного разу. Тепер, далі, ми поділимося швидким рішенням для його отримання.
Видаліть з контактів недійсні адреси одержувачів неможливо доставити електронні листи
- Для початку у вікні 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».
- Нарешті, ви можете запустити цей макрос, виконавши наведені нижче дії:
- Перш за все, виберіть повідомлення електронної пошти "Неможливо доставити".
- Потім клацніть макрос на панелі швидкого доступу.
- Коли макрос закінчиться, ви отримаєте повідомлення із запитом «Завершено».
- Тепер ви можете перевірити пов'язані контакти, у яких були видалені недійсні адреси електронної пошти, як на скріншоті нижче:
Усунення помилок та пошкоджень Outlook
Як ми всі знаємо, Outlook може піддаватися проблемам та пошкодженням з різних причин. Отже, якщо ви новачок у програмі Outlook, то краще дотримуйтесь деяких ефективних запобіжних заходів, таких як періодичне резервне копіювання даних, використовуючи потужний та надійний Ремонт Outlook утиліта, типу DataNumen Outlook Repair, І так далі.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com