In outlook making Subject Mandatory

We often forget to write Subject in the outlook mail. These situations lead to embarrassment sometimes. Here’s a help:
1. In MS outlook Press Alt+F11. This opens the Visual Basic Editor and then Press Ctrl+R which in turn open Project-Project 1 (left side)
2. On the Left Pane, one can see "Microsoft Outlook Objects" or "Project1", expand this. Now one can see the "ThisOutLookSession".
3. Double click on "ThisOutLookSession". It will open up a Code Pane on the right hand side.
4. Copy and Paste the following code in the right pane (Code Pane) and save it
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 5. Close Visiul aBasic Now whenever you try to send a mail without subject, a pop-up will be raised to remind you of the blank subject