Delivery Receipt

I am using myMail.DSNOptions = 14 n a script that uses CDO.Message to
send an internal mail. Is there a way to access the delivery status in
the same script and report a bad route...below is an example I would
like to achieve.

Example:

Sub sendMail(msg)
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Queues|Critical"
myMail.From="ExMgmt@us.panasonic.com"
myMail.To="santhoshs@in.ibm.com"
myMail.TextBody=msg
myMail.DSNOptions = 14
myMail.Send
set myMail=nothing

<----------------------------If message not delivered Wscript.echo
"mesage not delivered" else "great job" end if ------------->

End Sub