Y para enviar mails desde un servidor? p.ej.
www.domainlx.com
Habrá q añadir algunas lineas,no?
LEs pongo codigo:
ej1)
<%
Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.RemoteHost = "mail.toniarnau.com"
mailobj.from = request.form("remitente")
mailobj.to = request.form("destinatario")
mailobj.subject = request.form("asunto")
mailobj.body = request.form("cuerpo")
mailobj.send
%>
ej2)
<%
'Creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")
'Servidor SMTP
Mail.Host = "mail.melange.net"
'Cabecera del mensaje
'Mail.From = Request("From")
'Mail.FromName = "Victor Cuervo"
'Mail.AddAddress Request("to")
'Tema del mensaje
'Mail.Subject = "Email de aulambra.com"
'Cuerpo del mensaje
'Mail.Body = "Mensaje enviado desde aulambra.com"
'Capturamos el posible error
'On Error Resume Next
'Mandamos el mensaje
'Mail.Send
Response.Write (Mail.AddAddress Request("to"))
'If Err <> 0 Then
' Response.Write(Err.Description)
'else
' Response.Write ("El mensaje ha sido enviado satisfactoriamente")
'End If
%>
ej3)
<%
'Modificar este valor con su direccion de correo a la que se enviara el formulario
'var_destinatario = Request.Form ("destinatario")
var_destinatario = "
[email protected]"
'No es necesario modificar el codigo restante
'Creacion de variables para almacenar los campos del formulario
'---Campo nombre de el formulario
'var_nombre = Request.Form("nombre")
var_nombre = "Toni"
'---Campo mail de el formulario
'var_correo = Request.Form("mail")
var_correo= "avin04.melange.net"
'---Campo asunto de el formulario
'var_asunto = Request.Form("asunto")
var_asunto = "Saludos"
'---Campo comentario de el formulario
'var_comentario = Request.Form("comentario")
var_comentario = "Desde ASP"
'Creacion del cuerpo del mensaje
var_mensaje = "Mensaje enviado desde el formulario web : " & nombre & chr(10) & chr(10)_
& "Nombre: " & var_nombre & chr(10)_
& "Correo Electronico: " & var_correo & chr(10) & chr(10)_
& "Asunto: " & var_asunto & chr(10)_
& "comentario: " & var_comentario & chr(10)_
'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 = 0
Mailer.Importance = 2
Mailer.Send
set Mailer = nothing
Response.redirect ("www.toniarnau.com/forca/index.htm")
%>
Alguien me puede decir q hago mal y/o como lo puedo solucionar?
Gracias.
P.D. Creo entender en un correo de domainlx q ellos no dan soporta a enviar correo. aunq he leido en algun post q si q tiene soporte a aspmail.