Como hacer esto con ASPDONTS

Gracias por adelantado.
El problema quizá sea incluso difícil de explicar.
Estoy realizando una lista de distribución con componentes CDONTS de asp y tengo el siguiente problema.
Intento enviar una página Web directamente para que cuando el colistero habra el mensaje le aparezca en el cuerpo de dicho mensaje la página web que le envío, de tal forma que la página no sea un adjunto, sino que directamente vaya en el cuerpo del mensaje de outlook, que es el que utilizaré como predeterminado.
El problema principal que veo es el mandar el HTML como un todo ya que tiene imágenes y tendría que hacer muchos pasos para enviarlo.
Gracias y ante cualquier duda no dudes en contactar conmigo.

2 Respuestas

Respuesta
1
Te recomendatría que indiques que el formato del body es html, así: objeto.BodyFormat=0
Y poneindo el html de la página que querés mandar como body.
Atentamente: Manuel Fernández.
Respuesta
1
Este ejemplo:
Set nemail = CreateObject ("CDONTS.Newmail")
nemail.to = "soporte@lomasbuscado.net"
nemail.From = "registro@lomasbuscado.net"
nemail.Subject = "Registro realizado correctamente"
nemail.BodyFormat = 0
nemail.MailFormat = 0
strbody = "<html><body oncontextmenu=""return false"" onselectstart=""return false"" ondragstart=""return false"">"
strbody = strbody & "<A href=""http://www.lomasbuscado.org""><img src=""http://www.lomasbuscado.net/images/logo.gif"" border=""0""></a><br>"
strbody = strbody & "<script language=""JavaScript"">"
strbody = strbody & "statuss();"
strbody = strbody & "function statuss()"
strbody = strbody & "{"
strbody = strbody & "window.status = ""© LO + BUSCADO "";"
strbody = strbody & "setTimeout(""statuss()"", 1);"
strbody = strbody & "}"
strbody = strbody & "</script>"
Strbody = strbody & "<b>Se acaba de registrar en la Web LO + BUSCADO</b>, <u>hay dos tipos de registro FULL y LIGHT</u>, <b>usted se acaba de registrar en el LIGHT</b>. Si desea saber que opciones le da este registro vaya a la web y lea la información."
strbody = strbody & "<br><br>"
strbody = strbody & "<br> "
strbody = strbody & "Sus datos son:<br>"
strbody = strbody & "<br>"
strbody = strbody & "<b>Agente: </b>" & Request.Form("txtUser") & "<br>"
strbody = strbody & "<b>Clave: </b>" & strPassword & " (Podrá cambiarla cuando quiera)" & "<br>"
strbody = strbody & "<b>E-Mail: </b>" & strEmail & "<br>"
strbody = strbody & "<br> "
strbody = strbody & "<br> "
strbody = strbody & "PD: <u>Cambie la clave que le proporcionamos por una propia</u>, asi la recordara mas facil.<br>"
strbody = strbody & " <br>"
if Request.Form("EMail")="True" then
Strbody = strbody & "Usted ha elejido contratar una cuenta de E-Mail de nosotros, dicha cuenta aun no se encuentra activa, por lo que aun no puede entrar en las secciones restringidas. Para ello debe ver el E-Mail de registro donde se encuentra la clave temporal los datos de su cuenta son: <br><br>"
strbody = strbody & "<b>Pop3 = </b>pop3.lomasbuscado.net <br>"
strbody = strbody & "<b>Cuenta = </b>" & Request.Form("txtemail1") & "/lomasbuscado.net<br>"
strbody = strbody & "<b>SMTP = </b>smtp.lomasbuscado.net (Recuerda que puedes usar el de otra compañia)<br>"
strbody = strbody & "<b>Clave = </b>" & Request.Form("passnet")
strbody = strbody & "<br>"
strbody = strbody & "<br>"
Strbody = strbody & "Una Vez más le recordamos que su cuenta no está activa y debe esperar. Para verificar si se encuentra activa intente entrar con esos datos repetidamente.<br><br>"
end if
strbody = strbody & "Atentamente LO + BUSCADO<br>"
strbody = strbody & "www.lomasbuscado.org<br>"
strbody = strbody & "<br> "
strbody = strbody & "<br> "
strbody = strbody & "<i>==== English Version ====</i><br>"
strbody = strbody & "<br> "
strbody = strbody & "<b>Hello and welcome on LO + BUSCADO</b><br>"
strbody = strbody & "<br> "
strbody = strbody & "<b>Your demand for accomodation has been accepted</b><br>"
strbody = strbody & "<br> "
strbody = strbody & "<b>Your ID is : </b> " & Request.Form("txtUser") & "<br>"
strbody = strbody & "<b>Your Password is : </b>" & strPassword & " (You can change when you want)" & "<br>"
strbody = strbody & "<b>Your E-Mail is : </b>" & strEmail & "<br>"
strbody = strbody & "<br> "
strbody = strbody & "Your account will be available in a few seconds<br>"
strbody = strbody & "Thank you for your confidence<br>"
strbody = strbody & "The team of lomasbuscado.org<br>"
strbody = strbody & " <br>"
strbody = strbody & " <br>"
strbody = strbody & "NOTE: <i> Change your password now</i>, if you don't change your password you can forget<br>"
strbody = strbody & " <br>"
strbody = strbody & " <br>"
strbody = strbody & " <br>"
strbody = strbody & "<i>==== Fancais Version ====</i>"
strbody = strbody & " <br>"
strbody = strbody & "<b>Bonjour et bienvenue sur LO + BUSCADO</b><br>"
strbody = strbody & " <br>"
strbody = strbody & "Vos identifiants sont:<br>"
strbody = strbody & " <br>"
strbody = strbody & "<b>Identifiant : </b>" & Request.Form("txtUser") & "<br>"
strbody = strbody & "<b>Mot de passe : </b>" & strPassword & " (You can change when you want)" & "<br>"
strbody = strbody & "<b>E-Mail : </b>" & strEmail & "<br>"
strbody = strbody & " <br>"
strbody = strbody & "Votre compte sera actif dans quelques seconds<br>"
strbody = strbody & "En vous remerciant de votre confiance<br>"
strbody = strbody & "L'equipe de lomasbuscado.org<br>"
strbody = strbody & "<br> "
strbody = strbody & "<br><br><center>"
strbody = strbody & "<iframe src=""http://www.lomasbuscado.net/banner.html"" marginwidth=""0"" marginheight=""0"" width=""468"" height=""60"" hspace=""0"" vspace=""0"" frameborder=""0"" scrolling=""no"" ></iframe>"
strbody = strbody & " "
strbody = strbody &"<ilayer src=""http://www.lomasbuscado.net/banner.html"" width=""468"" height=""60""></ilayer>"
strbody = strbody &"</center>"
nemail.body=strbody
nemail.Send
Set nemail = Nothing

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Especificaciones técnicas para crear un foro

Necesitaria toda la información posible, sobre este tema para mi proyecto.
7 respuestas

Código para cambiar el fondo del registro activo en un formulario del programa Microsoft Access

Leyendo una respuesta tuya a una pregunta efectuada hace algún tiempo sobre distintos colores en fondos de formulario, comentas en tu último párrafo: "Existe código para hacer que cambie el fondo del registro activo en un formulario continuo". ¿Me...
3 respuestas

Alguien me podria ayudar a traducir esta carta

Hello, my dear one, First, I thank you for your reply to my e-mail, in accordance with the report that I sent to you. How is your night in your country, ¿I believe that if you have a pleasant evening and there arthmosphere that your country is very...
53 respuestas

Web.Show_Document

Deseo saber si existe la posibilidad de esconder la barra de direcciones del explorer que abre esta función, es decir, estoy utilizando el Web. Show_Document desde forms 6i para abrir un reporte en la web, pero resulta que explorer que abre esta...
36 respuestas

Oracle 8.1.7 personal en Windows 2000

He instalado Oracle 8.1.7 personal en un Pc con Windows 2000 profesional (esta en una red). La instalación ha sido correcta hasta que al intentar crear la B.D. De prueba me ha dado el siguiente error: ORA-03113: fin de fichero en el canal de...
1 respuesta

Juegos Windows xp

Tengo un ordenador nuevecito con windows xp, y tengo problemas para instalar juegos con cd originales, por ejemplo el flsimulator o se.anillos, cuando va a leer algun fichero tipo cab aparece un mensaje que dice low memory imposible leer fichero, el...
1 respuesta

Correo interno en red local

Tengo una red local con 4 ordenadores. Hasta ahora tenía los 4 con WINDOWS XP HOME EDITION, usando el OUTLOOK 2000 para mensajes de correo internos (configurado con el servicio "Microsoft Mail") entre los 4. Ahora uno de los equipos lo he sustituido...
3 respuestas