How to make Microsoft Outlook prompt on empty subject

It’s important and mandatory that the emails we send have relevant “subject” to it. Almost all email clients have this feature, where it will prompt user about the empty subject.

Unfortunately, when i started using Microsoft Office Outlook (previously i was using Thunderbird) as this is what my new company is using, i notice that Ms Outlook doesn’t prompt if i missed out the subject.

Then i Google it and found the solution for it. Please follow the simple steps below which will prevent you from sending a mail without a subject.

Here are the below steps:

  1. Open Microsoft Office Outlook
  2. Press Alt+F11. This opens the Visual Basic editor
  3. On the Left Pane, one can see Project1 → Microsoft Office Outlook Objects → “ThisOutlookSession”
  4. Click on “ThisOutlookSession”
  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(strSubject) = 0 Then
    Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
    If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Message without subject") = vbNo Then
    Cancel = True
    End If
    End If
    End Sub
  6. Now save the code (Ctrl+S) and close the Visual Basic editor.

That’s all, now you can test by sending an email without subject. If it doesn’t prompt, you may try re-start your Ms Office Outlook application.