Làm cách nào để ngăn việc gửi tệp đính kèm đến người nhận CC và BCC khi soạn email trong Outlook?

Như chúng ta đã biết, tất cả người nhận trong các trường “Tới”, “CC” hoặc “BCC” sẽ nhận được tệp đính kèm khi gửi email có tệp đính kèm. Tuy nhiên, một số người dùng chỉ muốn gửi tệp đính kèm cho người nhận “Tới”, với người nhận “CC” và “BCC” chỉ nhận được tin nhắn mà không có tệp đính kèm. Làm thế nào bạn có thể giải quyết công việc này trong Outlook?

Ngăn việc gửi tệp đính kèm đến người nhận CC và BCC khi soạn email bằng mã VBA

Ngăn việc gửi tệp đính kèm đến người nhận CC và BCC khi soạn email bằng mã VBA

Trên thực tế, Outlook không cung cấp tùy chọn để xử lý tác vụ này, nhưng mã VBA sau có thể giúp bạn, vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Ngăn gửi tệp đính kèm đến người nhận CC và BCC:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xNewMail As Outlook.MailItem
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
With xNewMail
    .CC = xMailItem.CC
    .BCC = xMailItem.BCC
    .Subject = xMailItem.Subject
    .HTMLBody = xMailItem.HTMLBody
    .Send
End With
xMailItem.CC = ""
xMailItem.BCC = ""
End Sub

doc cc không có tệp đính kèm 1

3. Sau đó lưu và đóng cửa sổ mã.

4. Kể từ bây giờ, khi gửi email có tệp đính kèm, chỉ những người nhận trong trường Tới mới có thể nhận tệp đính kèm và những người nhận trong CC và BCC chỉ có thể nhận thư mà không có tệp đính kèm.