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("example1@126.com", "example2@126.com", "example3@126.com")
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
Trong mã, bạn có thể thay đổi ("example1@126.com", "example2@126.com", "example3@126.com") thành 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.
 |  |  |
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.
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, CC và BCC , 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 = "example1@gmail.com"
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 SubVớ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.
Trợ lý thư AI trong Outlook: Trả lời thông minh hơn, liên lạc rõ ràng hơn (thần kỳ chỉ bằng một cú nhấp chuột!) MIỄN PHÍ
Hợp lý hóa các tác vụ Outlook hàng ngày của bạn với AI Mail Assistant từ Kutools for Outlook. Công cụ mạnh mẽ này học hỏi từ các email trước đây của bạn để đưa ra phản hồi thông minh và chính xác, tối ưu hóa nội dung email của bạn cũng như giúp bạn soạn thảo và tinh chỉnh thư một cách dễ dàng.
Tính năng này hỗ trợ:
- Trả lời thông minh: Nhận câu trả lời được tạo từ các cuộc trò chuyện trước đây của bạn—được điều chỉnh, chính xác và sẵn sàng hoạt động.
- Nội dung nâng cao: Tự động tinh chỉnh văn bản email của bạn để rõ ràng và có tác động.
- Sáng tác dễ dàng: Chỉ cần cung cấp từ khóa và để AI xử lý phần còn lại, với nhiều kiểu viết.
- Tiện ích mở rộng thông minh: Mở rộng suy nghĩ của bạn bằng các đề xuất nhận biết ngữ cảnh.
- Tóm tắt: Nhận thông tin tổng quan ngắn gọn về các email dài ngay lập tức.
- Phạm vi tiếp cận toàn cầu: Dịch email của bạn sang bất kỳ ngôn ngữ nào một cách dễ dàng.
Tính năng này hỗ trợ:
- Trả lời email thông minh
- Nội dung được tối ưu hóa
- Bản nháp dựa trên từ khóa
- Tiện ích mở rộng nội dung thông minh
- Tóm tắt email
- Bản dịch đa ngôn ngữ
Điều tuyệt vời nhất là tính năng này hoàn toàn tự do mãi mãi! Đừng đợi—tải xuống AI Mail Assistant ngay bây giờ và tận hưởng!
Công cụ năng suất văn phòng tốt nhất
Tin nóng: Kutools cho Outlook ra mắt Phiên bản miễn phí!
Trải nghiệm Kutools hoàn toàn mới cho Outlook Phiên bản MIỄN PHÍ với hơn 70 tính năng đáng kinh ngạc, bạn có thể sử dụng MÃI MÃI! Bấm để tải xuống ngay bây giờ!
🤖 Kutools AI : Sử dụng công nghệ AI tiên tiến để xử lý email một cách dễ dàng, bao gồm trả lời, tóm tắt, tối ưu hóa, mở rộng, dịch và soạn email.
📧 Tự động hoá email: Trả lời tự động (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ẻ ...
📨 Quản lý email: 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 ...
📁 Tệp đính kèm chuyên nghiệp: Lư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 ...
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Nhắc nhở bạn khi có email quan trọng đến / Thu nhỏ Outlook thay vì đóng ...
👍 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 ...
👩🏼🤝👩🏻 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 ...
