كيف تتحقق من عناوين المستلمين قبل الإرسال عبر Outlook؟

في بعض الأحيان ، قد تفوتك إضافة بعض المستلمين المهمين إلى حقول "إلى" أو "نسخة إلى" أو "نسخة مخفية الوجهة" أثناء إرسال رسائل بريد إلكتروني عبر Outlook. هنا ، يمكنني تقديم طريقة للتحقق مما إذا كانت عناوين البريد الإلكتروني المحددة قد تمت إضافتها قبل إرسالها عبر Outlook.

تحقق من العناوين قبل الإرسال برمز VBA

تحقق من العناوين قبل الإرسال برمز VBA

هنا لدي رمزان يمكنهما مساعدتك في حل هذه الوظيفة ، يمكنك اختيار أي شخص تريده.

1. صحافة Alt + F11 كEys لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. نقرتين متتاليتين هذه الجلسة تبدأ من Project1 لفتح محرر الكود ، انسخ والصق الكود أدناه للمحرر.

فبا: تحقق من عنوان المستلم في الحقل "إلى" قبل الإرسال

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("example1@126.com", "example2@126.com", "example3@126.com")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

في الكود، يمكنك تغيير ("example1@126.com"، "example2@126.com"، "example3@126.com") إلى المستلمين الحقيقيين الذين تحتاجهم.

3. ثم أيضا في ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > مراجع حسابات. الاختيار وقت تشغيل البرمجة لـ Microsoft خانة الاختيار في المراجع - مشروع 1 الحوار.

4. انقر OK وحفظ الكود.

الآن إذا لم يظهر المستلمون المحددون في الحقل "إلى" أثناء إرسال رسائل البريد الإلكتروني ، فسيظهر مربع حوار لتذكيرك إذا كنت تريد إرسال البريد الإلكتروني.

باستخدام الكود أعلاه ، فإنه يتحقق فقط من عناوين البريد الإلكتروني الموجودة إلى الحقل ، إذا كنت تريد تسجيل الوصول إلى, CC و BCC الحقول ، يمكنك استخدام الرمز أدناه.

VBA: تحقق من عنوان المستلم في حقول To / CC / BCC قبل الإرسال

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

مع هذا الرمز ، لا تحتاج إلى التحقق وقت تشغيل البرمجة لـ Microsoft مربع الاختيار ، فقط احفظ الكود مباشرة ليصبح ساري المفعول.

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

قم بتبسيط مهام Outlook اليومية باستخدام AI Mail Assistant من Kutools for Outlook. تتعلم هذه الأداة القوية من رسائل البريد الإلكتروني السابقة الخاصة بك لتقديم ردود ذكية ودقيقة، وتحسين محتوى بريدك الإلكتروني، ومساعدتك في صياغة الرسائل وتحسينها دون عناء.

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

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

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

• ردود البريد الإلكتروني الذكية
• محتوى محسن
• المسودات القائمة على الكلمات الرئيسية
• تمديد المحتوى الذكي
• تلخيص البريد الإلكتروني
• ترجمة متعددة اللغات

أفضل ما في الأمر هو أن هذه الميزة متاحة بالكامل مجاني إلى الأبد! لا تنتظر—قم بتنزيل AI Mail Assistant الآن واستمتع!

---

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

أخبار عاجلة: Kutools for Outlook يطلق نسخة مجانية!

استمتع بتجربة الإصدار المجاني الجديد تمامًا من Kutools for Outlook مع أكثر من 70 ميزة مذهلة، يمكنك استخدامها إلى الأبد! انقر للتنزيل الآن!

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

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

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

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

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

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

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

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

افتح Kutools for Outlook فورًا بنقرة واحدة. لا تنتظر، حمل الآن وعزز كفاءتك!

قائمة ميزات Kutools لبرنامج Outlook      تحميل نسخة مجانية      الترقية إلى الاحترافية