Send a mail without forgetting the Subject

I was looking for a way to make sure that whenever I sent a mail from Outlook, I should not be able to send without a subject line. Finally got a way to do it and here it is:

1. Open your outlook.
2.Press Alt+F11. This opens the Visual Basic editor.
3.On the Left Pane, one can see “Microsoft Outlook Objects”, expand this. Now one can see the “ThisOutLookSession.”
4.Click on “ThisOutLookSession”.
5.Copy and Paste the following code in the right pane.(Code Pane)

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(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

6. Save this and now close the VB Code editor

This macro makes sure I don't send a mail without subject.