Listing 1: Watching for Outgoing Items with Blank Subject Lines

Private Sub Application_ItemSend _
  (ByVal Item As Object, Cancel As Boolean)
    If Item.Subject = "" Then
        Cancel = True
        MsgBox "Please fill in the subject before sending.", _
                     vbExclamation, "Missing Subject"
    End If
End Sub