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

Author: Xiaoyang Last Modified: 2025-08-06

بشكل عام، يقوم 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

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

doc-block-email-to-an-address-1

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

doc-block-email-to-an-address-2

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

doc-block-email-to-an-address-3

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

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

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

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

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