كيفية إيقاف أو تعطيل تحذير عدم وجود موضوع في Outlook؟

Author: Siluvia Last Modified: 2025-08-06

عند استخدامك لـ Outlook 2010 و2013، إذا قمت بإرسال رسائل بريد إلكتروني بدون مواضيع، سيظهر مربع تنبيه بعدم وجود موضوع في كل مرة لتذكيرك. إذا كنت لا تريد حقًا كتابة الموضوع، فإن تحذير عدم وجود الموضوع سيكون مشكلة كبيرة بالنسبة لك. لمساعدة مستخدمي Outlook على التخلص من تحذير عدم وجود الموضوع، نقدم مهارة في البرنامج التعليمي التالي.

إيقاف أو تعطيل تحذير عدم وجود موضوع في Outlook

إيقاف أو تعطيل تحذير عدم وجود موضوع في Outlook

في Outlook 2007، لا يوجد تحذير إذا قمت بإرسال رسالة بريد إلكتروني بدون موضوع. تم تفعيل هذه الوظيفة في Outlook 2010 و2013. ومع ذلك، لا توجد ميزة تتيح لك إيقاف أو تعطيل هذا التحذير مباشرةً. في هذا البرنامج التعليمي، سنوضح لك كود VBA لتحقيق ذلك.

1. يرجى الضغط على مفتاح "Alt" + "F11" لفتح مربع الحوار "Microsoft Visual Basic for Applications".

2. قم بتوسيع "Project1" > "Microsoft Outlook Objects" عن طريق النقر عليهما مرتين. ثم انقر مرتين على "ThisOutlookSession" لفتح نافذة "VbaProject.OTM".

the screenshot of turning off or disable no subject warning in Outlook 1

3. انسخ والصق الكود البرمجي VBA أدناه في النافذة.

VBA: إيقاف أو تعطيل تحذير عدم وجود موضوع

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. انقر على زر "حفظ" لحفظ كود VBA.

5. أعد تشغيل تطبيق Outlook.

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

ملاحظة: تأكد من أن خيار "تمكين جميع الماكروز" محدد. (يرجى التحقق من خلال النقر على "ملف" > "الخيارات" > "مركز التوثيق" > "إعدادات مركز التوثيق"، وفي مربع حوار "مركز التوثيق"، اختر "إعدادات الماكروز" > "تمكين جميع الماكروز")، انظر إلى لقطة الشاشة: