I sent a e-mail to a senior person in a company without a subject line. People will be receiving hundreds of mails and going through whole of the mail is really a difficult task. Its also rude and improper to send a mail without subject lines in a corporate world.This is really an embarrassing moment for the sender. But there is one way you can prevent sending mails without subject line in Microsoft Office Outlook.
1. Open Office outlook
2. Open Visual Basic editor by pressing Alt+F11
3. Go to “Microsoft Outlook Objects” in the Project explorer window, expand it and select “ThisOutLookSession”.
4. Paste the following code in the Code window.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(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
Save it and close.
From now on whenever you send a mail without a subject a prompt box will appear.
