'- ここから -
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
Dim strBody As String
strSubject = Item.Subject '件名
strBody = Item.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 Item.Attachments.Count = 0 Then
If MsgBox("添付ファイルを忘れている可能性があります。本当に送信しますか?", vbYesNo + vbQuestion) = vbNo Then
Cancel = True
Exit Sub
End If
End If
End Sub
'- ここまで -