Prevent Messages Without Subjects in Outlook
How to prevent Outlook from sending an email with a blank Subject line? – eCharcha.Com
Sometimes we forget to put the SUBJECT
in the mails which we send. That could be deadly sometimes when you are
communicating to the clients; to avoid such a situation, follow the
steps below. There after when you send a mail without subject, a pop up
window asks for your confirmation. You can try it !
Steps:
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)
Code:
<b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b>Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> Dim strSubject As String</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> strSubject = Item.Subject</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> If Len(strSubject) = 0 Then</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo </b></font></font></font></font></font></b><b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><b>Then</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> Cancel = True</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> End If</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b> End If</b></font></font></font></font></font></b> <b><font face="Tahoma"><font size="1"><font color="#333399"><font color="#333399"><font face="Tahoma"><br /><b>End Sub</b></font></font></font></font></font></b>
6.Save this and Now close the VB Code editor.
7.In Outlook Go to Tools > Macros > Security > In the Security Level Tab > Select the option MEDIUM > OK
8.Now Restart the Outlook, a dialog box pops up to Disable / Enable the macros; select as Enable Macros (this option will pops up when ever you restart outlook.
9.From now on , this macro will make sure you do not make the mistake of sending a mail without subject
