كيف يمكن حظر رسائل البريد الصادرة المُرسَلة إلى عنوان بريد إلكتروني معيَّن في Outlook؟

بشكل عام، يُرسل Outlook رسائل البريد الإلكتروني إلى جميع عناوين البريد الإلكتروني العادية، ولا يدعم حظر إرسال الرسائل إلى عنوان بريد إلكتروني معيَّن. لكن قد تحتاج أحيانًا إلى منع إرسال رسائل إلى عنوان بريد إلكتروني محدَّد في Outlook. وفي هذه الحالة، يقدِّم لك هذا البرنامج التعليمي كود VBA لحل هذه المهمة.

حظر رسائل البريد الصادرة الموجَّهة إلى عنوان معيَّن باستخدام كود VBA

يمكن أن يساعدك كود VBA التالي، يرجى اتباع الخطوات التالية:

1. افتح Outlook، ثم اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. بعد ذلك، انقر نقرًا مزدوجًا علىThisOutlookSession من جزءProject-Project1، ثم انسخ والصق الكود أدناه في نافذة الكود الفارغة:

كود VBA: حظر رسائل البريد الصادرة الموجَّهة إلى عنوان معيَّن

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

3. بعد ذلك، احفظ وأغلق نافذة الكود هذه. الآن، عند إرسال رسالة بريد إلكتروني، إذا وُجد عنوان البريد الإلكتروني المعيَّن في قائمة المستلمين، ستظهر رسالة تنبيه كما في لقطة الشاشة أدناه. انقر علىلا، وسيتم حذف عنوان البريد الإلكتروني المعيَّن فورًا.

4.بعد إرسال الرسالة، يمكنك التحقق من مستلميها في مجلدالرسائل المرسلة، حيث تم استبعاد عنوان البريد الإلكتروني المعيَّن من قائمة المستلمين، انظر لقطة الشاشة:

مساعد البريد الذكي في Outlook: ردود أذكى، وتواصل أوضح (سحر بنقرة واحدة!)

بسِّط مهام Outlook اليومية مع مساعد البريد الذكي من Kutools لـ Outlook! تعلّم هذه الأداة القوية من بريدك السابق لتقدّم لك ردودًا ذكية ودقيقة، وتحسّن محتوى رسائلك، وتساعدك في صياغتها وتنقيحها بسلاسة ودون أي جهد.

يدعم هذا الميزة:

• الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
• قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
• الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
• الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
• التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
• الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.

يدعم هذا الميزة:

• الردود الذكية على البريد الإلكتروني
• المحتوى المُحسَّن
• مسودات مبنية على الكلمات المفتاحية
• تمديد المحتوى الذكي
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

لا تنتظر—نزّل مساعد البريد الذكي الآن واستمتع بـ!

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

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

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

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

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة