HTML a ASP para enviar por correo

Spychaser · #1 (**permalink**) 13/09/2006, 21:50

Buenas, tengo la siguiente consulta, es posible pasar el codigo de una web html a asp para enviar por correo de forma automatica, con algun soft o algo similar.
Es decir que ingrese automaticamente cada

Código:

mail.Body = mail.Body  & vbCrlf & vbCrlf &

Muchas gracias

Ascariz · #2 (**permalink**) 14/09/2006, 03:20

Creo que una de las dos es lo que quieres hacer ????

Tu tienes el codigo HTML creado desde asp y por programacion de asp enviar ese cogido, supongo que sera como un boletin o publicidad por email

O tienes el Fichero de HTML y quieres un programa que envie ese codigo en html por correo

Cual es de las 2 opciones ????

Spychaser · #3 (**permalink**) 14/09/2006, 07:20

Cita:

Tu tienes el codigo HTML creado desde asp y por programacion de asp enviar ese cogido, supongo que sera como un boletin o publicidad por email

Exacto tengo el codigo html quiero por programacion de asp enviar ese cogido.
Hay alguna manera de agregar el codigo que necesita automatica.

Myakire · #4 (**permalink**) 14/09/2006, 07:24

Supongo que el objeto Server.CreateObject("Microsoft.XMLHTTP") te serviría, hay post en las respuestas anteriores, revísalos y nos cuentas si hay dudas.

Saludos

Ascariz · #5 (**permalink**) 14/09/2006, 07:44

si hay una manera muy sencilla de hacerlo, lo miro y esta tarde te pongo como hacer.

Spychaser · #6 (**permalink**) 14/09/2006, 07:53

Joya, muchas gracias por la mano, espero respuestas.

Spychaser · #7 (**permalink**) 14/09/2006, 15:27

Ascariz, andas por ahi? alguna novedad de como poder formatear el html para enviar por correo asp.
Tengo uno armado (pego el codigo a continuacion) pero quiero modificarlo y al no poder ver en pantalla me resulta complicado poder acomodar las tablas, etc.
Alguna solucion.
Muchas Gracias

Código:

Mail.Subject = "Newsletter Nº"&news&" - "&titulo& ""

mail.Body =  " <style type='text/css'>.Estilo6 {	font-family: Arial, Helvetica, sans-serif;font-weight: bold;font-size: 18px}"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "body,td,th {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}.Estilo9 {font-size: 24px;font-weight: bold;color: #FFFFFF;} "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  ".Estilo10 {font-size: 18px}.Estilo11 {color: #FFFFFF;font-weight: bold;font-family: Tahoma;font-size: 9;}.Estilo12 {font-family: Tahoma;font-size: 9px;} "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  ".Estilo13 {font-size: 16px;font-weight: bold;}.Estilo14 {color: #335A93}a.Estilo11:link {color: #FFFFFF;text-decoration: none;}a.Estilo11:visited {color: #FFFFFF;text-decoration: none;}a.Estilo11:hover {color: #efefef;text-decoration: none;}a.Estilo11:active {color: #FFFFFF;text-decoration: none;}</style> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<table width='680' border='0' align='center' cellpadding='0' cellspacing='0' id='Tabla_01'><tr><td> <img src='http://sitio.com.ar/newsletter/amb/caja/noticias_01.jpg' width='29' height='8' alt=''></td>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<td background='http://sitio.com.ar/newsletter/amb/caja/noticias_02.jpg'> <img src='http://sitio.com.ar/newsletter/amb/caja/noticias_02.jpg' width='200' height='8' alt=''></td><td> <img src='http://freijejuan.com.ar/newsletter/amb/caja/noticias_03.jpg' width='10' height='8' alt=''></td></tr><tr>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<td width='1%' valign='top' background='http://sitio.com.ar/newsletter/amb/caja/noticias_07.jpg'><img src='http://sitio.com.ar/newsletter/amb/caja/noticias_07.jpg' width='29' height='18'> </td> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <td width='99%' valign='top'><table width='100%'  border='0' cellspacing='0' cellpadding='4'><tr bgcolor='#FEFEF6'>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <td bgcolor='#FEFEF6'><div align='center'><span class='Estilo13'> <span class='Estilo14'>Newsletter</span> N&ordm; :"&(Recordset1.Fields.Item("news").Value)&"</span><span class='Estilo4 Estilo115'>"
mail.Body = mail.Body  & vbCrlf & vbCrlf &  "</span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='right'> <table width='100%'  border='0' cellspacing='0' cellpadding='0'> "
mail.Body = mail.Body  & vbCrlf & vbCrlf &  " <tr><td>&nbsp;</td><td>&nbsp;</td></tr></table><span class='Estilo4 Estilo115'></span> </div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><table width='96%'  border='0' cellspacing='0' cellpadding='6'><tr><td>"%>
<%if (Recordset1.Fields.Item("Foto").Value) <> "" then %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<img src='http://sitio.com.ar/newsletter/"&(Recordset1.Fields.Item("Foto").Value)&"'><font size='2'> "%>
<% else %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "<span class='Estilo4'><img src='http://sitio.com.ar/newsletter/amb/banner.jpg' width='590' height='60' border='0'></span> "%>
<% end if %>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  " </td></tr></table>"%>
<%mail.Body = mail.Body  & vbCrlf & vbCrlf &  "</font> <span class='Estilo4'></span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><div align='center'> "%>

sqa212 · #8 (**permalink**) 14/09/2006, 17:07

Asi lo puedes ver en pantalla:
Le he quitado las imagenes, el Recordset1 y el if, para hacerlo mas rapido

, esta seria la forma de verlo por pantalla.

Código:

<%
cuerpoemail =  "<style type='text/css'>.Estilo6 {font-family: Arial, Helvetica, sans-serif;font-weight: bold;font-size: 18px}"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "body,td,th {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}.Estilo9 {font-size: 24px;font-weight: bold;color: #FFFFFF;}"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  ".Estilo10 {font-size: 18px}.Estilo11 {color: #FFFFFF;font-weight: bold;font-family: Tahoma;font-size: 9;}.Estilo12 {font-family: Tahoma;font-size: 9px;}"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  ".Estilo13 {font-size: 16px;font-weight: bold;}.Estilo14 {color: #335A93}a.Estilo11:link {color: #FFFFFF;text-decoration: none;}a.Estilo11:visited {color: #FFFFFF;text-decoration: none;}a.Estilo11:hover {color: #efefef;text-decoration: none;}a.Estilo11:active {color: #FFFFFF;text-decoration: none;}</style>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<table width='680' border='0' align='center' cellpadding='0' cellspacing='0' id='Tabla_01'><tr><td> <img src='' width='29' height='8' alt=''></td>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<td background=''> <img src='' width='200' height='8' alt=''></td><td> <img src='' width='10' height='8' alt=''></td></tr><tr>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<td width='1%' valign='top' background=''><img src='> </td> "
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " <td width='99%' valign='top'><table width='100%'  border='0' cellspacing='0' cellpadding='4'><tr bgcolor='#FEFEF6'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " <td bgcolor='#FEFEF6'><div align='center'><span class='Estilo13'> <span class='Estilo14'>Newsletter</span> N&ordm; :"& NOW() &"</span><span class='Estilo4 Estilo115'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "</span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='right'> <table width='100%'  border='0' cellspacing='0' cellpadding='0'> "
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " <tr><td>&nbsp;</td><td>&nbsp;</td></tr></table><span class='Estilo4 Estilo115'></span> </div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><table width='96%'  border='0' cellspacing='0' cellpadding='6'><tr><td>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<img src=''><font size='2'>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "<span class='Estilo4'><img src='' width='590' height='60' border='0'></span> "
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  " </td></tr></table>"
cuerpoemail = cuerpoemail  & vbCrlf & vbCrlf &  "</font> <span class='Estilo4'></span></div></td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'><div align='center'>"
Response.Write cuerpoemail
%>

Spychaser · #9 (**permalink**) 14/09/2006, 23:59

Buenas, sigo intentando hacer unos cambios en un html que envio por correo. Lo que quiero hacer es dividir una columna en 2 filas para poder indicarle al contenido que se encuentra en la primera fila que debe ir al "top" y el contenido de la segunda fila debe ir "bottom"
El problema se me presenta porque es me pierdo en la cantidad de codigo, hay forma de facilitar esta tarea, sin borrar lineas, usando el codigo asi como esta.
Muchas Gracias
Les paso mi codigo en el siguiente link debido a su extencion:
http://www.sitio.com.ar/codigoaspemail.asp