Enviar email en formato html con

José Molina · #1 (**permalink**) 22/04/2002, 13:52

Saludos.

Estoy enviando un email en asp utilizando el SMTPsvg.Mailer

Ok. Ya la tengo funcionando. Envia el email en formato plano. Ahora el asunto es poderlo enviar en formato HTML.

Tendrán alguna idea de como hacerlo utilizando SMTPsvg.Mailer

El cógido que estoy usando es el siguiente:

<%
Dim Mailer
Dim BodyText

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Prueba."
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "mail.mundojeep.com"
Mailer.AddRecipient "PREUBA", "[email protected]"
Mailer.Subject = "¡Prueba!"

BodyText = "Nombre: " & Request.Form("Nombre") & vbCrLf _
& "Email: " & Request.Form("Correo")

Mailer.BodyText = BodyText

If (Mailer.SendMail) then Response.Redirect("prueba.asp") else Response.Redirect("prueba.asp?error=" & chr(34) & replace(Mailer.Response, " ", "%20") & chr(34))

Set Mailer=nothing
%>

Gracias

José Molina

jpablo52 · #2 (**permalink**) 22/04/2002, 15:59

Mirá mano yo tengo este código que me funciona a la perfección

<html>
<head>
<title>Untitled Document</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Archivo= "volante.html" 'el archivo html a mandar en el 'newsletter'
Dim objTextStream
File = server.MapPath(".") & "/" & Archivo
fsoForReading = 1
sHTML=" "
Set objTextStream = objFSO.OpenTextFile(File, fsoForReading)
sHTML=sHTML & objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing

Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.ContentBase = "http://www.miweb.com/"
objMail.ContentLocation = "pruebasp/"
objMail.Body = sHTML
objMail.Send
Set objMail = Nothing
response.write "si"
%>
</body>
</html>

Esto lee un html como txt y lo pone en el body del correo.

Si tenes fotos en volante.html le tenes que poner toda la ruta para que sagan si no no te sale. Orale mano.

José Molina · #3 (**permalink**) 22/04/2002, 16:29

Saludos.

Gracias, pero el problema es que no puedo usar CDONTS.Newmail

Gracias

José Molina

urjose · #4 (**permalink**) 22/04/2002, 16:37

Yo tengo un código que te servirá, si por la noche no has tenido respuesta yo te lo posteo

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

José Molina · #5 (**permalink**) 23/04/2002, 08:51

Saludos.

Gracias urjose. Muho te agradecería me enviaras la información que puedas al respecto.

Gracias

José Molina

Potro · #6 (**permalink**) 23/04/2002, 10:49

Hola jose ...

No te puedo ayudar hacer lo que pides pero yo quisiera recibir tu ayuda si me pudieras mandar el codigo para enviar formularios a un mail en asp.

Nos vemos...

Enviamelo a [email protected]

<div align=center>
<param name=movie value=http://www.guerrerohermida.com.mx/firma.swf>
<param name=quality value=high><embed src=http://www.guerrerohermida.com.mx/firma.swf WIDTH=200 HEIGHT=75>
</embed></div>

José Molina · #7 (**permalink**) 23/04/2002, 11:15

Saludos

Bueno lo primero es crear el formulario en html de lo más normal. En el form el action envialo a la página que te procesará los datos. Lo puedes hacer todo en una misma página, pero práctica mejor con 2 archivos.

En esa página donde procesaras la información puedes colocar el código que yo deje en el primer mensaje.

Lo que tienes que modificar son los email "[email protected]" y el servidor de correo mail.prueba.com por tus email y tu servidor isp.

Claro debes contatenar las variables...según esten nombradas en tu formulario.

José Molina

urjose · #8 (**permalink**) 23/04/2002, 22:32

Sorry por la tardanza

tienes que poner algo asi

Mailer.ContentType = "text/html"
Mailer.BodyText = Scuerpo

donde Scuerpo trae algo asi

Scuerpo="<html><body>"
Scuerpo=Scuerpo&"<table border=1 >"
Scuerpo=Scuerpo&" <tr>"
Scuerpo=Scuerpo&" <td ><img border=0 src=format1.gif></td>"
Scuerpo=Scuerpo&" <td >"
...
etc

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

José Molina · #9 (**permalink**) 24/04/2002, 08:50

Saludos

Muchas Gracias.

José Molina