आउटलुक में ईमेल लिखते समय सीसी और बीसीसी प्राप्तकर्ताओं को अटैचमेंट भेजने से कैसे रोकें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-05-03

जैसा कि हम सभी जानते हैं, "टू", "सीसी" या "बीसीसी" फ़ील्ड में सभी प्राप्तकर्ताओं को अनुलग्नकों के साथ ईमेल भेजते समय अनुलग्नक प्राप्त होंगे। हालाँकि, कुछ उपयोगकर्ता अनुलग्नकों को केवल "प्रति" प्राप्तकर्ताओं को भेजना चाहते हैं, जबकि "सीसी" और "बीसीसी" प्राप्तकर्ताओं को अनुलग्नकों के बिना ही संदेश प्राप्त होता है। आप आउटलुक में इस कार्य को कैसे हल कर सकते हैं?

VBA कोड के साथ ईमेल लिखते समय CC और BCC प्राप्तकर्ताओं को अनुलग्नक भेजने से रोकें

VBA कोड के साथ ईमेल लिखते समय CC और BCC प्राप्तकर्ताओं को अनुलग्नक भेजने से रोकें

वास्तव में, आउटलुक इस कार्य से निपटने के लिए कोई विकल्प प्रदान नहीं करता है, लेकिन, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है, कृपया ऐसा करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: सीसी और बीसीसी प्राप्तकर्ताओं को अनुलग्नक भेजने से रोकें:

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

3. फिर कोड विंडो को सेव करें और बंद करें।

4. अब से, अनुलग्नकों के साथ एक ईमेल भेजते समय, केवल To फ़ील्ड में प्राप्तकर्ता अनुलग्नक प्राप्त कर सकते हैं, और CC और BCC में प्राप्तकर्ता केवल अनुलग्नकों के बिना संदेश प्राप्त कर सकते हैं।