Enviar coreo sin CDONTS

[garcef]

Ahora bien, que sucede si a partir de la ultima parte desde

--------------------------

coloco esto

Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
Dim objMail
set objMail = server.createobject("JMail.SMTPMail")
objMail.Sender = sFromEmail
objMail.ServerAddress = sEmailServer
objMail.AddRecipient = sToEmail
objMail.Subject = sSubject
objMail.Body = sText
if objMail.Execute then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing
End Function

Este es por Jmail, que si es soportado pero tambien utilizo el Bamboo
;)