Outlook, Sending Emails without Subject

Since couple of days i was facing a crazy outlook issue in one of my user's pc.

Although he write Subject and body, Outlook was sending email without. Even this user cannot see the subject of email from his sent Items. On other side Recipient was not getting subject in email.

It’s important and mandatory that the emails we send have relevant “subject” to it. At times, we miss to mention the subject and send email.

googled many times, MS KBs I found nothing.

What all I found is just to enable your outlook warn you in case of you are sending email without subject which is available and turned on by default in all outlook versions. Which was also helpless in this case.

However i found some other thing to do the same thing manually instead of outlook but with your piece of code inserted into a outlook program .

Which is as below and it fixed my issue now user is able to see the subject in sent items and the recipient in his received email.

• Open your outlook
• Press Alt+F11. This opens the Visual Basic editor
• On the Left Pane, one can see “Microsoft Outlook Objects”, expand this. Now one can see the “ThisOutLookSession.”
• Click on “ThisOutLookSession”.
• Copy and Paste the following code.
  

-------------------------------------------------------------------------
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 this and now close the VB Code editor and take a breath. From now on, this macro will make sure you or the outlook itself do not make mistake of sending an email without subject.