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.