Avoid Sending Mail Without Subject in MS Outlook

How many times have you realized that you have sent the mail without any subject & felt foolish about the same. It is time you make something about that. Follow these steps and you will never ever sent a mail without a subject line.

Open MS-Outlook.
Press Alt+F11
Expand Project Pane & Microsoft Office Outlook Objects.
Double Click on “ThisOutLookSession”
Paste following contents on the right side pane (code pane) & 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$ = “Are you sure you want to send the Mail without the Subject?” 

If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “Verify Subject”) = vbNo 

Then 

Cancel = True 

End If 

End If 

End Sub

Click on Tools—>Macros—> Security menu & select “Medium”.
Restart MS-Outlook. Click on “Enable Macros” when in the pop-up for security warning.
Try sending mail without subject now.