Hola a todos, tengo el siguiente script para enviar un e-mail desde una página, como vereis usa el objeto
CDONTS, y cuando lo colgue, no funcionaba, y me han dicho desde el servidor que no funciona el objeto
CDONTS, que use
CDO.Message, alguien sabria modificarme el script para usar
CDO.Message. Muchas gracias.
SCRIPT
<%
'Modificar este valor con su direccion de correo a la que se enviara el formulario
var_destinatario = "[email protected]"
'No es necesario modificar el codigo restante
'Creacion de variables para almacenar los campos del formulario
var_nombre = Request.Form("nombre")
var_correo = Request.Form("correo")
var_empresa = Request.Form("empresa")
var_telefono = Request.Form("telefono")
var_asunto = Request.Form("asunto")
var_comentarios = Request.Form("comentarios")
'Creacion del cuerpo del mensaje
var_mensaje = "Mensaje enviado desde el formulario web: " & nombre & chr(10) & chr(10)_
& "Nombre: " & var_nombre & chr(10)_
& "Empresa: " & var_empresa & chr(10)_
& "Telefono: " & var_telefono & chr(10)_
& "Correo Electronico: " & var_correo & chr(10) & chr(10)_
& "Asunto: " & var_asunto & chr(10)_
& "Comentarios: " & var_comentarios
'Procesamiento del envio de correo
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = var_nombre & "<" & var_correo & ">"
Mailer.To = var_destinatario
Mailer.Subject = var_asunto
Mailer.Body = var_mensaje
Mailer.BodyFormat = 1
Mailer.MailFormat = 1
Mailer.Importance = 2
Mailer.Send
set Mailer = nothing
%>
Muchas gracias a todos
[email protected]