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

Author: Sun Last Modified: 2025-08-06

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

التحقق من العناوين قبل الإرسال باستخدام كود VBA

التحقق من العناوين قبل الإرسال باستخدام كود VBA

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

1. اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر نقرًا مزدوجًا فوق ThisOutlookSession من جزء Project1 لفتح محرر الأكواد، ثم قم بنسخ ولصق الكود أدناه في المحرر.

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

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

doc check recipient address before sending 1

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

3. بعد ذلك أيضًا في نافذة Microsoft Visual Basic for Applications، انقر فوق أدوات > مراجع. تحقق من خانة الاختيار Microsoft Scripting Runtime في مربع الحوار References-Project1.

doc check recipient address before sending 2

doc check recipient address before sending 3

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

الآن إذا لم تظهر المستلمين المحددين في حقل إلى أثناء إرسال الرسائل الإلكترونية، ستظهر نافذة منبثقة لتذكيرك إذا كنت تريد إرسال البريد الإلكتروني أم لا.
doc check recipient address before sending 4

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

VBA: التحقق من عنوان المستلم في حقول إلى/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 Scripting Runtime، فقط احفظ الكود مباشرة ليصبح فعالاً.

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

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

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

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

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