Outlook: Warnung bei leerer Betreffzeile?

Gibt es eine Möglichkeit, bei fehlender Betreffzeile eine Warnung anzeigen zu lassen? Im Netz habe ich folgendes Makro gefunden:

Zitat

Private Sub Application_ItemSend(ByVal Item as Object, Cancel as Boolean)
If Item.Subject = "" Then
MsgBox "You forgot the subject."
Cancel = True
End If
End Sub

Alles anzeigen

Das habe ich in DieseOutlookSitzung kopiert und gespeichert, allerdings immer noch keine Warnung.