Hogyan lehet megakadályozni a mellékletek küldését a CC és BCC címzetteknek, amikor e-mailt ír az Outlook programban?

Mint mindannyian tudjuk, a „Címzett”, „CC” vagy „BCC” mezőkben szereplő összes címzett megkapja a mellékleteket, amikor e-maileket küld a mellékletekkel. Néhány felhasználó azonban csak a „Címzett” címzetteknek akarja elküldeni a mellékleteket, és a „CC” és „BCC” címzettek csak a mellékletek nélkül kapják meg az üzenetet. Hogyan oldhatná meg ezt a munkát az Outlook programban?

Akadályozzuk meg a mellékletek küldését CC és BCC címzetteknek, amikor VBA kóddal írunk e-mailt

Akadályozzuk meg a mellékletek küldését CC és BCC címzetteknek, amikor VBA kóddal írunk e-mailt

Valójában az Outlook nem kínál lehetőséget ennek a feladatnak a kezelésére, de a következő VBA-kód jót tehet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA kód: A mellékletek CC és BCC címzetteknek történő küldésének megakadályozása:

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 melléklet nélkül 1

3. Ezután mentse el és zárja be a kódablakot.

4. Mostantól a mellékletekkel ellátott e-mail küldésekor csak a Címzett mezőben lévő címzettek fogadhatják a mellékleteket, a CC és BCC címzettek pedig csak mellékletek nélkül kaphatják meg az üzenetet.