Preventing a draft email from being sent

"We use something similar to the following script in Outlook 2003: -

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Ignore Non Email Objects
If Item.Class <> olMail Then Exit Sub

'Prevent Sending of email with the word Draft in the Subject
If InStr(1, Item.Subject, ""draft"", vbTextCompare) > 0 Then
Ans = MsgBox(""You are not permitted to send Draft Emails"", vbExclamation + vbOKOnly, ""Draft Emails"")
Cancel = True
End If

End Sub

I should add that it looks for the word Draft in the Message Subject and if found it will prevent the sending of the email."

"I add garbage to the CC: line, like ""ZZZ"". Outlook won't send it that way.

This way you still get to prepare the To line with the proper recipients while composing the mail.

I also tell Outlook to delay all outgoing messages by 2 minutes, as I often remember something important just after I hit Send."