Microsoft Outlook 2000

To avoid sending an email without Subject in outlook, Here you go……

·        Open your outlook.

·        Press Alt+F11. This opens the Visual Basic editor.

·        Press Ctrl+R which in turn open Project-Project 1 (left side).

·        On the Left Pane, one can see "Project1", expand this to find "Microsoft Outlook Objects",    expand this to find "This Outlook Session".

·        Double click on "This Outlook Session ".  It will open up a code pane.

·        Copy and Paste the following code snippet in the 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$ = "Missing Subject!  Do you want to send anyway (Y/N)?"*

*If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then*

*Cancel = True*

*End If*

*End If*

*End Sub                                                                                                                               *

Now whenever you send an email without subject, it will raise a pop-up to remind you.