كيف تمنع المستخدمين من إرسال رسائل بريد إلكتروني في Outlook دون إدخال عنوان؟

عند إرسال رسالة بريد إلكتروني عبر Outlook، قد تُرسل أحيانًا دون إدخال عنوان — وهو أمرٌ غير مستحسن على الإطلاق. فهل من طريقة تُلزِم المستخدمين بإدخال عنوان قبل إرسال البريد في Outlook؟

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

---

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

لا سبيل لحل هذه المشكلة سوى باستخدام كود VBA.

1. شغّل Outlook، ثم اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

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

VBA: منع إرسال بريد إلكتروني دون عنوان

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
    .Global = True: .Pattern = "^\x20*$"
    If .test(Item.Subject) = True Then
        MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
        Cancel = True
    End If
End With
End Sub

3. احفظ الكود، وستظهر لك نافذة منبثقة الآن لتذكيرك بإدخال العنوان إذا حاولت إرسال بريد إلكتروني دونه.

ملاحظة:يعمل كود VBA هذا مع جميع الحسابات في Outlook