Aca hay una función que uso y me funciona sin problemas:
Código:
<%
Function envia_correo(fromName,from,rcpt,subject,body,html)
Dim objMail'Crea el objeto mail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = FromName&"<"&From&">"
objMail.To = rcpt
objMail.Subject= Subject
If html = "Y" then
objMail.HTMLBody = Cstr(Body)
Else
objMail.TextBody = Cstr(Body)
End if
'Envía el correo
objMail.Send
if err <> 0 then
response.Write(" ERROR:"&err.description&" codigo:"&err)
end if
'limpia el objeto mail
Set objMail = Nothing
end Function
%>
Y la forma de llamar la función:
Código:
<%
email_usuario = "[email protected]"
cuerpo = "Esto es una prueba de envío de correo con CDO"
call envia_correo("Tu empresa", "[email protected]", email_usuario, "Titulo del email", cuerpo, "N")
'OJO : Si la variable cuerpo lleva código HTML entonces el último parametro de la función es "Y"
%>
Espero que te sirva...
Saludos,
Luis