כיצד להשבית או לבטל את אזהרת 'אין נושא' ב-Outlook?

Author: Siluvia Last Modified: 2025-05-30

כאשר אתה משתמש ב-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 יכנס לתוקף. כאשר תשלח הודעה ללא נושא, תיבת האזהרה 'אין נושא' לא תופיע יותר.

הערה: ודא שהאפשרות "אפשר לכל המאקרו" מסומנת. (אנא בדוק זאת על ידי לחיצה על "קובץ" > "הגדרות" > "מרכז האמון" > "הגדרות מרכז האמון", ובתיבת הדו-שיח "מרכז האמון", בחר "הגדרות מאקרו" > "אפשר לכל המאקרו"), ראה צילום המסך: