How to overcome mail without subject in Outlook.

Once I forgot to put subject in an official mail. Its really feeling bad later 🙁 . A mail without subject brings a bad impression on us.

After a little search got a very good script to avoid this and like to share.

Just follow the simple steps mentioned below and see the result.
1. Open your Outlook
2. Press Alt+F11. This opens the Visual Basic editor and then Press Ctrl+R which in turn opens a Project-Project 1 (left side)
3. On the Left Pane, expand Projet1 -> Microsoft Office Outlook Objects -> ThisOutlookSession
4. Double click on “ThisOutLookSession”. It will open up a Code pane.
5. Copy and Paste the following code in the right 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

Now whenever you try to send mail without subject it will warn you.

Enjoy 😆

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.