Bỏ qua nội dung chính

Làm cách nào để kiểm tra địa chỉ người nhận trước khi gửi qua Outlook?

Đôi khi, bạn có thể bỏ lỡ việc thêm một số người nhận quan trọng vào các trường Tới, CC hoặc BCC trong khi gửi E-mail qua Outlook. Ở đây, tôi có thể giới thiệu một phương pháp để kiểm tra xem các địa chỉ email cụ thể đã được thêm vào trước khi gửi qua Outlook hay chưa.

Kiểm tra địa chỉ trước khi gửi bằng mã VBA


Kiểm tra địa chỉ trước khi gửi bằng mã VBA

Ở đây tôi có hai mã có thể giúp bạn giải quyết công việc này, bạn có thể chọn bất kỳ ai khi bạn cần.

1. nhấn Alt + F11kmắt để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấn đúp chuột ĐâyOutlookSession từ Project1 để mở trình chỉnh sửa mã, sao chép và dán mã bên dưới vào trình chỉnh sửa.

VBA: kiểm tra địa chỉ người nhận trong trường Tới trước khi gửi

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("", "", "")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc kiểm tra địa chỉ người nhận trước khi gửi 1

Trong mã, bạn có thể thay đổi ("""""") cho những người nhận thực sự mà bạn cần.

3. Sau đó, cũng trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp CÔNG CỤ > dự án. Kiểm tra Thời gian chạy tập lệnh của Microsoft hộp kiểm trong Tài liệu tham khảo-Dự án1 thoại.

doc kiểm tra địa chỉ người nhận trước khi gửi 2 mũi tên doc sang phải doc kiểm tra địa chỉ người nhận trước khi gửi 3

4. nhấp chuột OK và lưu mã.

Bây giờ Nếu những người nhận được chỉ định không xuất hiện trong trường Tới khi gửi email, một hộp thoại sẽ bật ra để nhắc bạn có gửi email hay không.
doc kiểm tra địa chỉ người nhận trước khi gửi 4

Với mã trên, nó chỉ kiểm tra các địa chỉ email trong Đến trường, nếu bạn muốn đăng ký Đến, CCBCC , bạn có thể sử dụng mã dưới đây.

VBA: kiểm tra địa chỉ người nhận trong các trường Đến / CC / BCC trước khi gửi

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = ""
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Với mã này, bạn không cần phải kiểm tra Thời gian chạy tập lệnh của Microsoft hộp kiểm, chỉ cần lưu trực tiếp mã để có hiệu lực.


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations