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

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

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


قم بحظر رسائل البريد الإلكتروني الصادرة إلى عنوان محدد برمز VBA

يمكن أن يقدم لك رمز VBA التالي خدمة ، يرجى القيام بذلك على النحو التالي:

1. قم بتشغيل Outlook ، ثم اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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 = "" 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. بعد إرسال البريد الإلكتروني ، يمكنك التحقق من المستلمين في ملف المواد المرسلة المجلد ، تم استبعاد عنوان بريد إلكتروني معين من المستلمين ، انظر الصورة:


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

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations