PrivateSub Application_ItemSend(ByVal Item AsObject, Cancel AsBoolean)

OnErrorResumeNext
 ' use lower case for the address
 ' LCase converts all addresses in the To field to lower case
If StrComp((Item.SenderEmailAddress),"bad.email@gmail.com")Then
    ExitSub
EndIf

        Prompt$="You sending this from "& Item.SenderEmailAddress &". Are you sure you want to send it?"
       If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground,"Check Address")= vbNo Then
         Cancel =True
       EndIf

EndSub