Querria poder mandar correo desde ASP, pero sin que saltara el outlook
express... y sin tener que usar formularios. He probado con el CDONTS, y
este codigo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"
http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<%
'Vamos a mandar un mail!
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="E-Mail de prueba desde ASP"
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP." & VbCrLf
sCuerpo = sCuerpo & "Acabaré gestionando una lista de correo algún día!" &
VbCrLf
sCuerpo = sCuerpo & VbCrlf & VbCrLf & "Ah! Lo aprendí en www.aspfacil.com"
sDestinatario="XXX@hotmail.com"
'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")
'Establecemos las propiedades del objeto
oMail.From = "ASPFácil ejemplo de Mail " 'Pon aquí tu mombre y dirección
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo
' Enviamos el email!
oMail.Send
set oMail = nothing
Response.Write ("Mensaje enviado.")
%>
</body>
</html>
Me sale mensaje enviado... pero no llega... PERO, si me voy a la carpeta
Badmail (dentro de INETPUB), pues me sale un fichero .BAD con este
contenido:
X-Sender: ASPFácil ejemplo de Mail
X-Receiver: XXX@hotmail.com
From: <ASPFácil ejemplo de Mail>
To: <XXX@hotmail.com>
Subject: E-Mail de prueba desde ASP
Date: Sun, 23 Jan 2005 12:41:53 +0100
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
Este es mi primer mensaje enviado desde ASP.
Acabaré gestionando una lista de correo algún día!
Ah! Lo aprendí en www.aspfacil.com
O sea, que llegar llega.. pero no como deberia.. alguna idea?
Leer las respuestas