Hope this will be useful.
Forgot to mention subject, while writing an official mail and feel bad later?
Yes. It’s a concern for all. A mail without a subject brings a bad impression on us.
To avoid this, Just follow the simple steps mentioned below and see the result.
Here below 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.
5. Copy and Paste the following code in the right pane. (Code Pane)
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. Do you still want to send the Mail?”
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, “Check for Subject”) = vbNo Then
Cancel = True
MsgBox “Give meaningful text in subjectline”, vbApplicationModal, “Edit Subjectline”
6. Save and close vbeditor window.
7. down the security level from high to medium from tools menu >> macro >> security.
8. Exit (select exit from file menu) Microsoft outlook and open it again.
9. click on “Enable” when it ask for “ThisOutlookSession” contain macros. (this you have to select everytime you start outlook.
10.Now whenever u try to send a mail without subject, which will raise a pop-up to remind you.
notes: when you copy paste above code in vb editor window; the following statements should be in a single line.
 the 1st line –>> starting with Private Sub……….. Cancel as Boolean)
[2.1] the 6th line If MsgBox………….=vbNo Then
[2.2] the 6th line should contain normal quotes and note smart quotes. if you see the line in red colour then it contains smart quotes. please retype the quotes with keyboard