Agregar mas datos al cuerpo de un mail

[LluviaRamirez]

Hola,
Estoy haciendo un envio de mail con los datos de la clave de un articulo, TEngo una tabla la cual voy leyendo y por cada articulo que encuentre un status=N debe enviar un aviso por mail, esto ya lo hago, quisiera optimizar mi envio poniendo todos los articulos generados de la consulta en un solo mail, pero no se como podria hacer esto.
Ejemplo: Tengo unos 15 articulos con status N lo que significa 15 correos con 3 palabras cada uno, me gustaria enviar 1 solo correo con 15 renglones.
Se puede ??

[Saruman]

para armar el body del correo hazlo asi:

supongamos:

sql = "select descripcion from tabla where campo='N'"
set RSDatos = Master.Execute(sSQL)

strTagHTML = ""
while not RSDatos.eof
strTagHTML = strTagHTML & RSDatos("descripcion") & "<br>"
RSDatos.movenext
wend

y en el body del mail pones la variable strTagHTML

[Myakire]

Pues claro, un solo correo

¿Recuerdas la subconsulta del post anterior?, pues esa debes usar para formar el cuerpo del correo:

vBody = ""
....
sql = "select * from facturas where statusAlgo = 'N'"
rs.Open sql
while not rs.eof
vbody = vbody & rs("articulo")
rs.movenext
loop

Ya si quieres format HTML en el cuerpo del mensaje, pues estaría mejor. Chécate algún ejemplo para enviar correos dependiendo del componente que uses (aspmail, cdosys, etc)

Saludos

[LluviaRamirez]

Muy buena solucion, gracias, pero le puedo agregar los campos que se necesiten??

Mira mi codigo va asi:

strTagHTML = ""
while not rsDatos.eof
strTagHTML = strTagHTML & "Clave Articulo:" & rsDatos("ClaveArtCMK") & "<br>" & "Descripción:" & rsDatos("Descripcion") & "<br>" "Precio: " & rsDatos("PrecioU")
rsDatos.movenext
wend

PERO me marca este error
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/cinemarkdesarrollo/FacturasDistribuidores/Codigos/enviomail2.asp, línea 20, columna 129
strTagHTML = strTagHTML & "Clave Articulo:" & rsDatos("ClaveArtCMK") & "<br>" & "Descripción:" & rsDatos("Descripcion") & "<br>" "Precio: " & rsDatos("PrecioU")
--------------------------------------------------------------------------------------------------------------------------------^

[LluviaRamirez]

Si muchas gracias, de hecho esa consulta me facilito muchisisimo la vida, pero aun asi estoy enviando un mail por cada articulo aunque ahora estoy probando el ejemplo de Saruman que es parecido al tuyo pero me marca un error de que espera final de instruccion :(

[Myakire]

strTagHTML = strTagHTML & "Clave Articulo:" & rsDatos("ClaveArtCMK") & "<br>" & "Descripción:" & rsDatos("Descripcion") & "<br>" & "Precio: " & rsDatos("PrecioU")

[LluviaRamirez]

UPS!! que pena!! jaja Mil gracias, ya no veo muy bien
Ya funciono

Saludos

[LluviaRamirez]

Una pregunta mas acerca del tema, el salto de linea no me lo toma en cuenta, lo pone como si fuera texto,
Alguna sugerencia?

[Myakire]

Es que no has especificado en tu envio de correo que quieres HTML

Aque una de dos: O quitas los <br> por vbCrLf (texto = Replace(texto,"<BR>",vbCrLf)) o especificas que deseas un envio en HTML

¿Que componente usas para el correo?

[u_goldman]

Necesitas indicarle a tu componente con el que envias el mail que se trata de un mail en HTML.

La otra es utilizar los espacios para VB

variable & vbCrLf

Salu2,

[LluviaRamirez]

Set objetoMail = Server.CreateObject ( "CDONTS.NewMail" )

Gracias

[u_goldman]

Creo que la propiedad es BodyFormat = 0, pero no recuerdo bien

[Myakire]

http://www.devguru.com/features/tuto...TS/cdonts.html

[LluviaRamirez]

Gracias, ya quedo con vbCrLf.

Saludos