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.
