Cambiar de objeto CDONTS->CDO.Message

[gauss15]

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]

[trasgukabi]

Está por ahí puesto hasta la saciedad!!!! HAY QUE HACER USO DE LA BÚSQUEDA DEL FORO!!!

Código:

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "TITULO DEL EMAIL"
objMessage.Sender = "EL QUE MANDA EL MENSAJE"
objMessage.To = "EL QUE LO RECIBE"
ObjMessage.HTMLBody ="CUERPO DEL MENSAJE (EN ESTE CASO HTML)"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing

[jocan]

Está propuesto hasta la saciedad pero NO FUNCIONA!!!
Incluso los que los que proponen a CDOSYS como una solucion mejorada a CDONTS, no les ha funcionado.

[jocan]

Yo al final opté en registrar la CDONTS.DLL en WIN XP y funciona a la perfeccion.
Si tienes algun S.O. que no traiga el CDONTS como 2000 o XP, bájala y regístrala.
Yo la baje de este foro,... no pude citar el msg como referencia pero búscalo.

[trasgukabi]

Perdona, pero tengo 3 páginas hechas con funciones cdosys y SÍ funciona. Otra cosa es que no hayais sabido hacerlo funcionar. Hay que investigar un poquito más.

[gauss15]

Vale, muchas gracias. Una cosilla mas donde introduzco lo eso en el script que he puesto.

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "TITULO DEL EMAIL"
objMessage.Sender = "EL QUE MANDA EL MENSAJE"
objMessage.To = "EL QUE LO RECIBE"
ObjMessage.HTMLBody ="CUERPO DEL MENSAJE (EN ESTE CASO HTML)"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing

[trasgukabi]

Código:

<%
'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
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = var_asunto
objMessage.Sender = var_nombre & "<" & var_correo & ">"
objMessage.To = var_destinatario
ObjMessage.HTMLBody =var_mensaje
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>

Acuerdate de poner tu servidor SMTP