Nhiều người dùng hy vọng có thể chặn vô tình gửi email đến một địa chỉ email cụ thể trong Outlook. Vì vậy, trong bài viết này, chúng tôi sẽ giới thiệu một phương pháp để hiện thực hóa nó.
Outlook không cung cấp các tính năng tích hợp sẵn để chặn việc gửi email đến một địa chỉ email cụ thể. Do đó, nếu bạn muốn thực hiện điều này, bạn cần một chút lập trình. Sau đây, chúng tôi sẽ chia sẻ một đoạn mã VBA như vậy. Nếu bạn không biết cách sử dụng VBA, bạn có thể đọc bài viết trước đó – “Cách chạy mã VBA trong Outlook của bạn".
Ngăn gửi email đến một địa chỉ email cụ thể
- Lúc đầu, hãy truy cập trình soạn thảo Outlook VBA thông qua “Alt + F11”.
- Sau đó, đặt đoạn mã sau vào dự án “ThisOutlookSession”.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Dim objRecipient As Outlook.Recipient
If TypeOf Item Is MailItem Then
Set objMail = Item
'Expand the contact groups in Recipients
ContactGroupFound = True
Do While ContactGroupFound = True
Set objRecipients = objMail.Recipients
ContactGroupFound = False
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Loop
'Remove specific email address
For Each objRecipient In objRecipients
If objRecipient.Address = "shelly@datanumen.com" Then
If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
objRecipient.Delete
End If
End If
Next
End If
End Sub
- Sau đó, thoát khỏi cửa sổ “Microsoft Visual Basic for Applications”.
- Cuối cùng, hãy thử nó bằng các bước sau.
- Để bắt đầu, hãy soạn một email và điền vào người nhận.
- Sau đó, nhấp vào nút “Gửi”.
- Ngay lập tức, macro sẽ hoạt động để mở rộng các nhóm liên hệ trong người nhận nếu có và tìm hiểu xem người nhận có chứa địa chỉ email cụ thể hay không.
- Nếu địa chỉ được tìm thấy, bạn sẽ nhận được một thông báo, như thể hiện trong hình dưới đây.
- Nếu bạn chọn “Không”, địa chỉ email cụ thể sẽ bị xóa ngay lập tức.
- Sau khi thư được gửi đi, bạn có thể kiểm tra người nhận thư, chắc chắn không chứa địa chỉ email cụ thể.
Sửa chữa tệp Outlook bị hỏng của bạn
Tệp tin Outlook của bạn đã bao giờ bị hỏng chưa? Phải thừa nhận rằng đó là một trong những vấn đề khó chịu nhất trong Outlook. Khi gặp phải tình trạng này, bạn phải thao tác để khắc phục. PST sửa chữa, đó là một chút thắt nút. Như thường lệ, bạn sẽ nghĩ ngay đến việc sử dụng Scanpst trong lần đầu tiên. Nhưng, thật không may, nó có thể thất bại trong những trường hợp như vậy. Khu nghỉ dưỡng của bạn phải là một công cụ có kinh nghiệm hơn, như DataNumen Outlook Repair, hoặc dịch vụ phục hồi PST chuyên nghiệp.
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 sửa lỗ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