controlar errores al envio de mail con cdont

[bitshoot]

hola a todos, me gustaria saber si es factible hacer algo como lo siguiente:

On Error Resume Next
strDESDE = trim(rsDestinatario("Email"))
strPARA = trim(rsDestinatario("Email"))

Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = strDESDE
mailobj.to = strPARA
mailobj.subject = "SE ENCUENTRA DISPONIBLE UNA NUEVA ENCUESTA"
mailobj.body = texto
mailobj.send

response.write(rsDestinatario("Email"))

If Err <> 0 Then
enviado = "si"
else
enviado = "no"
end if

si el mail es enviado la variable toma el valoe si, en caso contrario toma el valor no.