Outlook Tips : To prevent sending mails without mentioning 'subject'

To prevent sending mails without mentioning 'subject' use this code.
Steps - Open ur outlook, press alt+f11.On left pane in 'Microsoft Outlook objects', expand to see 'This outlook session'.Double click to open the editor.Copy and paste the following code and save the session.

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