كيف تحصل على تحذير عند إرسال بريد إلكتروني إلى مجال خارجي في Outlook؟
أثناء استخدام Outlook ، كيف يمكنك منع إرسال رسائل البريد الإلكتروني عن طريق الخطأ إلى مستلمين خارج شركتك؟ في الواقع ، يمكنك عرض مربع تحذير عند إرسال بريد إلكتروني إلى مجال خارجي في Outlook. ستقدم هذه المقالة طريقة VBA لتحقيق ذلك.
احصل على تحذير عند إرسال بريد إلكتروني إلى مجال خارجي برمز VBA
احصل على تحذير عند إرسال بريد إلكتروني إلى مجال خارجي برمز VBA
يمكن أن يساعدك رمز VBA التالي في الحصول على تحذير عند إرسال بريد إلكتروني إلى مجال خارجي في Outlook. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة لفتح ThisOutlookSession (رمز) نافذة ، ثم انسخ رمز VBA أدناه في النافذة. انظر لقطة الشاشة:
كود فبا: احصل على تحذير عند إرسال بريد إلكتروني إلى مجال خارجي
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
ملاحظات: في الكود ، "@ addin99.com"هو مجال البريد الإلكتروني الداخلي الذي سترسل إليه رسائل البريد الإلكتروني. من فضلك غيره كما تريد.
من الآن فصاعدًا ، عند النقر فوق الزر "إرسال" لإرسال رسائل البريد الإلكتروني إلى مجال البريد الإلكتروني الخارجي (وليس مجال البريد الإلكتروني الداخلي الذي حددته في رمز VBA) ، سيظهر مربع تحذير كما هو موضح أدناه.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!