כדאי מאוד להמנע ממצב שבו תשלח הודעה במייל או הזמנה לפגישה ללא נושא.
לשם כך אתה צריך לבנות חלונית אזהרה שתצוץ בכל פעם שתשכח…
בסך הכל שני שלבים (כאשר אתה בתוך ה Outlook כמובן):
להפעלת VB לחץ על על צירוף המקשים ALT+F11
והעתק את המחרוזת להלן:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
End Sub












