Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Item.Subject = "" Then MsgBox "Please add a subject line to this message." Cancel = True End If End Sub