Sany wrote on Wed, 20 Jun 2007 07:48:58 -0700:
Helo,
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. Any help is greatly appreciated.
Example:
Sub sendMail(msg)
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Queues|Critical"
myMail.From="Ex****@us.panasonic.com"
myMail.To="sa*******@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
Given that the delivery receipt might not be received for minutes, hours.,
days, etc after sending, if at all, this isn't a simple thing to accomplish.
Also, a DSN is returned to the From address as an email - this means that
you'd need to poll the POP3/IMAP account for that address looking for the
DSN in order to show the status.
What you might be able to achieve is if you can connect to the recipient's
SMTP server and get an immediate response (ie an error from the Send method)
which would indicate if the account exists or not. It won't always work (for
example, the recipient server might be a simple relay that doesn't validate
the existence of addresses during the SMTP conversation), but as you say
you're sending these internally then this might well be the solution you're
looking for.
Dan