Cookie giúp chúng tôi cung cấp dịch vụ của chúng tôi. Bằng cách sử dụng dịch vụ của chúng tôi, bạn đồng ý sử dụng cookie.
Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Cách 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 chưa.

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

Trả lời tất cả loại trừ bản thân tôi trong triển vọng

Khi chúng tôi sử dụng chức năng Trả lời tất cả trong Outlook, chúng tôi cũng có thể thêm tài khoản của mình vào trường Đến nếu email bạn nhận được chứa thêm hai tài khoản của bạn. Trong trường hợp này, bạn có thể muốn xóa tài khoản của mình khỏi các trường Đến và CC. Ktools cho Outlook's Tên tôi là có thể giúp bạn giải quyết công việc này một cách nhanh chóng. Chỉ cần một cú nhấp chuột, tất cả tài khoản myselft trong Outlook sẽ bị xóa khỏi các trường Đến và CC. Nhấp chuột cho 45 ngày dùng thử miễn phí!
doc reply excluded account
doc arrow dowm

doc reply loại trừ tài khoản 2
Kutools for Outlook: với hàng chục tiện ích Outlook add-ins, miễn phí để thử mà không bị hạn chế trong 45 ngày.

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

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

1. nhấn Alt + F11 keys để bật Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấn đúp chuột ThisOutlookSession 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 To trước khi gửi

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Như biến thể Dim xAddress Như String Dim xRecipient Khi người nhận Dim xPrompt Như String Dim xYesNo As Integer Dim xDictionary Như Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Đối với i = LBound (xAddressArr) Để UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Tiếp theo i Đối với mỗi xRecipient Trong Item.Recipients Nếu xRecipient.Type = olTo Sau đó, nếu xDictionary.Exists (xRecipient.Address) Sau đó xDictionary.Remove xRecipient.Address End Nếu Next Nếu xDictionary.Count = 0 Sau đó GoTo L1 For i = 0 Để xDictionary.Count - 1 Nếu xAddress = "" Sau đó xAddress = xDictionary.Keys (i) Khác xAddress = xAddress + ";" & xDictionary.Keys (i) Kết thúc Nếu Tiếp theo i xPrompt = "Bạn không gửi nó đến: "& xAddress &". Bạn có chắc chắn muốn gửi Thư không? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools cho Outlook") Nếu xYesNo = vbNo Sau đó Cancel = True L1: Đặt xRecipient = Nothing Set xDictionary = Không có gì 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 ("example1@126.com", "example2@126.com", "example3@126.com") với những người nhận thực sự 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 Microsoft hộp kiểm trong Tài liệu tham khảo-Project1 thoại.

doc kiểm tra địa chỉ người nhận trước khi gửi 2 doc arrow right 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 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 nếu gửi email.
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 địa chỉ email trong Đến trường, nếu bạn muốn đăng ký Đến, CCBCC các trường, bạn có thể sử dụng mã bên dưới.

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

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Như Outlook.Recipients Dim xRecipient Như Outlook.Recipient Dim xPos Như Integer Dim xYesNo As Integer Dim xPrompt Như String Dim xAddress Như String On Error Resume Next Nếu Item. Class <> olMail Sau đó thoát Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Đối với mỗi xRecipient Trong xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Nếu xPos = 0 Sau đó xPrompt = "Bạn gửi đi này để "& xAddress &". Bạn có chắc chắn muốn gửi nó? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools cho Outlook") Nếu xYesNo = vbNo Sau đó Cancel = True End Nếu xRecipient End Sub kế tiếp

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 Microsoft hộp kiểm, chỉ cần trực tiếp lưu mã để có hiệu lực.



Kutools cho Outlook

Nhiều hơn các chức năng nâng cao 100 cho Outlook 2010, 2013, 2016, 2019 và 365

kutools chụp màn hình cho triển vọng nhỏ cho banner 201812

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.