How to Prevent Outlook from Sending an Email with a Blank Subject and Missing Attachement

1.Open your outlook

2.Press Alt+F11 or Tools àMacro àVisual Basic Editor. This opens the Visual Basic editor

3.On the Left Pane, one can see "Microsoft Outlook Objects", expand this. Now one can see the "ThisOutLookSession".

4.Click on "ThisOutLookSession".

5.Copy and Paste the following code in the right pane.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  ‘--> Missing Subject

  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

  ‘--> Missing Attachement

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

    If Item.Attachments.Count = 0 Then

        answer = MsgBox("There's no attachment, send anyway?", vbYesNo)

    If answer = vbNo Then Cancel = True

End If

If Item.Attachments.Count > 0 Then

For Each oAtt In Item.Attachments

    Debug.Print oAtt.Size

      If oAtt.Size < 5200 Then

        GoTo NextAtt

       

       Else

       answer = MsgBox("There's no attachment, send anyway?", vbYesNo)

       If answer = vbNo Then Cancel = True

    End If

NextAtt:

Next oAtt

 

 End If

End If

End Sub

 

6.Save this and Now close the VB Code editor.

7.In Outlook Go to Tools > Macros > Security > In the Security Level Tab > Select the option MEDIUM > OK

8.Now Restart the Outlook, a dialog box pops up to Disable / Enable the macros; select as Enable Macros (this option will pops up when ever you restart outlook.

9.From now on , this macro will make sure you do not make the mistake of sending a mail without subject and attachment

For Missing Subject you will get the below warning

For Missing Attachment you will get the below warning