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

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

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

الرد على جميع استبعاد نفسي في النظرة

عندما نستخدم الرد على كل الوظائف في Outlook ، يمكننا إضافة حساباتنا إلى حقل "إلى" أيضًا إذا كانت رسائل البريد الإلكتروني التي تلقيتها تحتوي على حسابين آخرين. في هذه الحالة ، قد ترغب في إزالة حساباتك من الحقلين إلى و. Ktools لبرنامج Outlook's اسمي يمكن أن تفعل لك معروفا لحل هذه المهمة بسرعة. تحتاج فقط إلى نقرة واحدة ، ستتم إزالة جميع حسابات myt في Outlook من الحقلين إلى و. انقر لمدة شنومك أيام تجريبية مجانية!

كوتولس ل أوتلوك: مع العشرات من مفيد توقعات الإضافية الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

هنا لدي اثنين من الرموز يمكن أن تساعدك على حل هذه المهمة ، يمكنك اختيار أي شخص حسب احتياجك.

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

2. نقرتين متتاليتين ThisOutlookSession من عند Project1 جزء لفتح محرر رمز ، نسخ ولصق تحت رمز لمحرر.

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

Private Sub Application_ItemSend (ByVal Item As Object، Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () كـ Dimer Dim xAddress كما سلسلة Dim Dim xRecipient كـ مستلم Dim Dim xPrompt باسم سلسلة Dim xYesNo As Integer Dim xDictionary كـ Scripting.Dictionary عند خطأ استئناف التالي SetDD xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com"، "example2@126.com"، "example3@126.com") لـ i = LBound (xAddressArr) إلى UBound (xAddressArr) xDictionary.Add xAddressArr (i ) ، صحيح التالي i لكل xRecipient في Item.Recipients إذا كان xRecipient.Type = olTo ثم If xDictionary.Exists (xRecipient.Address) ثم xDictionary.Remove xRecipient.Address End If Next إذا كان xDictionary.Count = 0 ثم GoTo L1 لـ i = 0 إلى xDictionary.Count - 1 إذا كان xAddress = "" ثم xAddress = xDictionary.Keys (i) Else xAddress = xAddress + "؛" & xDictionary.Keys (i) End If Next i xPrompt = "أنت لا ترسل هذا إلى: "& xAddress &". هل أنت متأكد من أنك تريد إرسال البريد؟ " xYesNo = MsgBox (xPrompt، vbQuestion + vbYesNo، "Kutools for Outlook") إذا كان xYesNo = vbNo ثم Cancel = True L1: Set xRecipient = Nothing Set xDictionary = Nothing End Sub

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

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

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 ثم قم بإنهاء المجموعة الفرعية xRecipients = Item.Recipients xAddress = "example1@gmail.com" لكل xRecipient في xRecipients xPos = InStr (LCase (xRecipient.Address) ، xAddress) إذا كان xPos = 0 ثم xPrompt = "أنت ترسل هذا إلى "& xAddress &". هل أنت متأكد من أنك تريد إرساله؟ " xYesNo = MsgBox (xPrompt، vbYesNo + vbQuestion + 4096، "Kutools for Outlook") إذا كان xYesNo = vbNo ثم Cancel = True End If التالي xRecipient End Sub

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

كوتولس ل أوتلوك

أكثر من 100 Advanced Functions لـ Outlook 2010 و 2013 و 2016 و 2019 و 365

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف