This code doesn't work when checked Word as editor. When the Outlook is editor it's working fine. Any solution?
[VBA] Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim bCancelSend As Boolean

If TypeName(Item) <> "MailItem" Then Exit Sub

'CHECK FOR BLANK SUBJECT LINE
If Item.Subject = "" Then
bCancelSend = MsgBox("This message does not have a subject." & vbNewLine & _
"Do you wish to continue sending anyway?", _
vbYesNo + vbExclamation, "No Subject") = vbNo
End If

'Cancel sending message if answered yes to the message box.
Cancel = bCancelSend
End Sub
[/VBA]