Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
Dim strBody As String


strSubject = Application.ActiveInspector.CurrentItem.Subject '件名
strBody = Application.ActiveInspector.CurrentItem.Body '本文

'件名がありませんか
If Trim(strSubject) = "" Then
If MsgBox("このメッセージには件名がありません。本当に送信しますか？", vbYesNo + vbExclamation) = vbNo Then
Cancel = True
Exit Sub
End If
End If

'添付ファイル忘れてませんか
If InStr(strSubject & strBody, "添付") > 0 And Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
If MsgBox("添付ファイル忘れてませんか? 本当に送信しますか？", vbYesNo + vbQuestion) = vbNo Then
Cancel = True
Exit Sub
End If
End If

End Sub