How to Avoid Mailing without Subject Line

Sometimes in a hurry we tend to send mail without subject line. It will be so annoying if its an official mail. I got a forward in my official Id somedays back how to avoid sending mail without subject line. So I thought to put it here so that lot many people will make better use of it.

To avoid this, just follow the simple steps mentioned below and see the result.

Here are the steps: -

1. Open your Outlook,

2. Press Alt+F11. This opens the Visual Basic Editor and then Press Ctrl+R which in turn open Project-Project 1 (left side)

3. On the Left Pane, one can see "Microsoft Outlook Objects" or "Project1", expand this. Now one can see the "ThisOutLookSession".

4. Double click on "ThisOutLookSession". It will open up a Code Pane on the right hand side.

5. Copy and Paste the following code in the right pane (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$ = "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

6. Now whenever u try to send a mail without subject, a pop-up is raised to remind you of the blank subject.

If you happen to have any other tricks like this.. I would like to know. Do drop it as a comment .I'll check it and post it .

If you're interested in this post, you can subscribe here.
To subscribe to your feed reader , click --->> here <<---