Note: The other languages of the website are Google-translated. Back to English
English English

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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة