在Outlook中撰寫電子郵件時，如何防止向CC和BCC收件人發送附件？

眾所周知，在發送帶有附件的電子郵件時，“收件人”，“抄送”或“密件抄送”字段中的所有收件人都將獲得附件。但是，某些用戶只希望將附件發送給“收件人”收件人，而“ CC”和“ BCC”收件人則只收到不帶附件的郵件。您如何在Outlook中解決這項工作？

使用VBA代碼編寫電子郵件時，防止向CC和BCC收件人發送附件

使用VBA代碼編寫電子郵件時，防止向CC和BCC收件人發送附件

實際上，Outlook沒有提供處理此任務的選項，但是，以下VBA代碼可以幫您一個忙，請這樣做：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。

VBA代碼：防止向CC和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

沒有附件的文件副本 1