Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Using the ItemSend Event

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