Khi gửi email đến bất kỳ địa chỉ người nhận không hợp lệ nào, bạn sẽ nhận được thông báo email không gửi được. Trong trường hợp đó, nếu bạn muốn xóa các địa chỉ email này khỏi danh bạ, bạn có thể sử dụng phương pháp được chia sẻ trong bài viết này.
Bạn đã bao giờ nhận được thông báo email không gửi được liệt kê các địa chỉ email không hợp lệ chưa? Nói chung, bạn sẽ nhận được những email như vậy sau khi gửi email đến những địa chỉ người nhận không hợp lệ. Trong tình huống này, thông thường bạn nên xóa những địa chỉ email này khỏi danh bạ Outlook để tránh việc vô tình gửi thư cho họ vào lần tiếp theo. Bây giờ, trong phần tiếp theo, chúng tôi sẽ chia sẻ cho bạn một giải pháp nhanh chóng để có được nó.
Xóa địa chỉ người nhận không hợp lệ của các email không thể gửi được khỏi Danh bạ
- Trước tiên, trong cửa sổ Outlook, nhấn tổ hợp phím “Alt + F11” để truy cập trình chỉnh sửa VBA.
- Tiếp theo, bạn có thể đặt mã VBA sau vào một dự án hoặc mô-đun không sử dụng.
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
- Sau đó, đóng cửa sổ hiện tại.
- Sau đó, thêm macro mới vào Thanh công cụ truy cập nhanh. Bạn có thể tham khảo bài viết – “Cách chạy mã VBA trong Outlook của bạn".
- Cuối cùng, bạn có thể chạy macro này bằng cách thực hiện theo các bước bên dưới:
- Đầu tiên, hãy chọn các email “Không thể gửi được”.
- Sau đó, bấm vào macro trong Thanh công cụ truy cập nhanh.
- Khi macro kết thúc, bạn sẽ nhận được thông báo nhắc “Đã hoàn thành”.
- Bây giờ, bạn có thể kiểm tra các liên hệ được liên kết, trong đó các địa chỉ email không hợp lệ đã bị xóa, như ảnh chụp màn hình bên dưới:
Giải quyết lỗi và tham nhũng của Outlook
Như chúng ta đã biết, Outlook có thể gặp phải các vấn đề và lỗi vì nhiều lý do. Do đó, nếu bạn là người mới sử dụng Outlook, tốt hơn hết bạn nên thực hiện một số biện pháp phòng ngừa hiệu quả, chẳng hạn như sao lưu dữ liệu định kỳ, sử dụng một công cụ mạnh mẽ và đáng tin cậy. Sửa chữa Outlook tiện ích, như DataNumen Outlook Repair, Và như vậy.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm