انتقل إلى المحتوى الرئيسي

كيفية عمل نسخة مخفية الوجهة تلقائيًا لجميع رسائل البريد الإلكتروني التي ترسلها في Outlook؟

عندما ترسل رسالة بريد إلكتروني ولديك مستلم سري دائم ولكنك لا تريد أن يرى المستلمون الآخرون عنوانه ، يجب عليك استخدام وظيفة نسخة مخفية الوجهة. ولكن عندما نحتاج إلى نسخة مخفية الوجهة ، يتعين علينا إظهار حقل نسخة مخفية الوجهة يدويًا وتحديد جهة اتصال له. لتجنب هذه العمليات اليدوية ، ستوضح لك المقالة التالية كيفية تعديل النظرة إلى عنوان بريد إلكتروني مخفي تلقائيًا على جميع رسائل البريد الإلكتروني التي ترسلها.


افتراضي تلقائي نسخة مخفية الوجهة في Outlook باستخدام VBA

يمكنك تطبيق رمز VBA أدناه لتكوين قاعدة Bcc التلقائية في Outlook. يرجى القيام بما يلي:

1. اضغط على قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر نقرًا مزدوجًا فوق ملف هذه الجلسةفي جزء المشروع ، ثم الصق رمز فبا أدناه في النافذة الافتتاحية. انظر لقطة الشاشة أدناه:

رمز فبا: نسخة مخفية الوجهة تلقائيًا عند إرسال جميع رسائل البريد الإلكتروني

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = ""
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

ملحوظة: يرجى استبدال "" في الكود أعلاه مع عنوان البريد الإلكتروني الذي سترسل إليه نسخة مخفية الوجهة.

3. احفظ رمز VBA وأغلق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا ، لن تحتاج إلى ملء العنوان في حقل نسخة مخفية الوجهة. عندما ترسل بريدًا إلكترونيًا من منظورك ، فسيتم تلقائيًا إرسال نسخة مخفية الوجهة إلى المستلم الذي تريده أثناء تنفيذ رمز VBA.


Auto bcc في Outlook باستخدام Kutools for Outlook

يعد كود VBA أعلاه صعبًا ومزعجًا بالنسبة لنا للمبتدئين ، وهنا أداة سهلة وسريعة - Kutools لبرنامج Outlook لمساعدتك في إرسال نسخة مخفية الوجهة تلقائيًا لجميع رسائل البريد الإلكتروني أو رسائل البريد الإلكتروني المحددة التي ترسلها في Outlook.

كوتولس لتوقعات: مجموعة أدوات Outlook النهائية التي تحتوي على أكثر من 100 أداة سهلة الاستخدام. جربه مجانًا لمدة 60 يومًا، بدون قيود، ولا تقلق!   اقرأ أكثر...   ابدأ النسخة التجريبية المجانية الآن!

بعد تثبيت Kutools for Outlook ، يرجى القيام بما يلي:

1. انقر كوتولس > CC السيارات / BCC > مدير القاعدة، انظر لقطة الشاشة:

2. في مدير السيارات CC / BCC مربع الحوار، انقر فوق جديد .

3. في معالج القواعد ، حدد الشروط التي ستقوم بتصفية رسائل البريد الإلكتروني وفقًا لها. في حالتي ، أضع علامة في بكلمات محددة في الجسد الخيار ، ثم انقر فوق النص الذي تحته خط من كلمات محددة لتحريره.

4. في مربع الحوار "يحتوي النص" ، انقر فوق جديد زر لإضافة كلمات جديدة.

5. في مربع حوار نص البحث ، اكتب كلمة في ملف نص بحث جديد مربع، انقر فوق أضف ، ثم انقر فوق OK .
نصائح: لإضافة كلمات متعددة في نفس الوقت ، تحتاج إلى كتابة كلمة واحدة في ملف نص بحث جديد مربع وانقر فوق أضف ، ثم كرر هذه العملية لإضافة كلمات أخرى واحدة تلو الأخرى ، وأخيراً انقر فوق OK .

6. الآن يعود إلى مربع حوار يحتوي على النص. إذا لزم الأمر ، يمكنك المتابعة للنقر فوق جديد زر لإضافة كلمات أخرى حسب حاجتك ، ثم انقر فوق الزر "موافق" لحفظ هذه الكلمات.
تلميحات: إذا أضفت عدة كلمات في نفس مربع نص البحث في نفس الوقت ، فإن العلاقة بين هذه الكلمات تكون "لأي لبس". إذا قمت بإضافة كلمات متعددة عن طريق النقر فوق جديد الزر على التوالي ، فإن العلاقة بين هذه الكلمات هي "OR".

7. ثم يعود إلى "معالج القواعد" ، وحدد الشروط الأخرى التي تريدها ، وانقر فوق التالى .

8. في معالج القواعد الثاني ، حدد الاستثناءات أو لا تحدد أي استثناءات حسب حاجتك ، وانقر فوق التالى .

9. في معالج القواعد الثالث ، يرجى كتابة اسم لقاعدة نسخة مخفية الوجهة الجديدة هذه في ملف اسم القاعدة ، أدخل أوصافًا للقاعدة في ملف ملاحظات القاعدة مربع، انقر فوق مستلم لإضافة مستلمين Cc أو Bcc ، حدد خيارات التشغيل في ملف عيِّن خيارات القاعدة ، ثم انقر فوق OK .

10. في Auto CC / BCC Manager ، تأكد من تحديد قاعدة Cc / Bcc الجديدة ، واضغط على الزر موافق لإغلاق مربع الحوار.

11. انتقل إلى النقر فوق Kutools> CC / BCC> تمكين Auto CC / BCC في واجهة Outlook الرئيسية لتمكين القاعدة.

وانقر فوق OK زر في مربع حوار إعادة التأكيد المنبثق.

حتى الآن تم إنشاء قاعدة نسخة مخفية الوجهة ، عند إرسال بريد إلكتروني ، سيتم إرسال نفس الرسالة إلى مستلم نسخة مخفية الوجهة في نفس الوقت.

ملاحظة:
(1) مع هذه الوظيفة ، يمكنك ضبط دائمًا CC القواعد كذلك.
(2) يمكنك إنشاء قواعد متعددة حسب حاجتك باستخدام هذه الأداة.
(3) إذا كنت تريد إغلاق القواعد ، يمكنك النقر فوق تفعيل Auto CC / BCC، ولن تعمل جميع القواعد. كما يمكنك إلغاء تحديد اسم القواعد في ملف مدير السيارات CC / BCC مربع الحوار لتعطيل بعض القواعد المحددة.


مقالة ذات صلة:

كيف يمكنني نسخ نفسي تلقائيًا دائمًا في Outlook؟


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
Hi guys, I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd. Is anyone able to check that I have it constructed correctly please? ******* Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim Msg As Outlook.MailItem Dim onsMapi As Outlook.NameSpace Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String If Item.Subject = "Ref" Then strBcc = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" End If Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
This comment was minimized by the moderator on the site
If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to: [quote]If Item.Subject = "ref" then strBcc = ""[/quote] Personally, I would also add an [else strBcc = ""] just to cover your bases. Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try: [quote]If instr(Item.Subject,"ref",1) 0[/quote] The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer"). If you want all emails with subjects that start with "ref" with anything following it, then you can use the following: [quote]If instr(Item.Subject,"ref",1) = 1[/quote] This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations