Outlook2003で「件名なし」メールを防止。

やってしまった。「件名なし」メールの送信。
自動的にメーラーが検出出来たらよいのに、と思っていたらVBAで実現できるみたい。
以下サンプルコード。
（Outlook2003->ツール->マクロ->Visual　Basic　Editor->ThisOutlookSession）

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If Item.Subject = "" Then
        If MsgBox("このメッセージには件名がありません。本当に送信してもよいでしょうか？", vbOKCancel + vbExclamation + vbDefaultButton2 + vbMsgBoxSetForeground) = vbCancel Then
            Cancel = True
        End If
    End If
End Sub

自己責任でお願いします。