Envio de Boletines

[tatoman]

Hola a todos de nuevo, os comento mi consulta, tengo una base de datos en sql que gestiona un completo sisitema de foros, y lo que estoy intentando programar es una aplicacion que envie un boletin que sea aparente, con imagenes, en fin tipo pagina web, y que lo envie a las direcciones de correo de los usuarios de esta base de datos.

En el servidor tengo instalado aspmail, aspupload y asp jpeg, en fin, que lo unico que me falta es un buen sistema de boletines para mis usuarios.

Os agradezco de antemano cualquier sugerencia que podais plantear. En concreto recibo algunos boletines de DMXZONE.COM que son una pasada y es parecido el estilo que quiero proporcionar, si no tan complejo algo mas sencillo pero aparente.

Gracias a todos y feliz dia!!

[ftmad]

es facil.


realizas el boletin como si fuera una pagina web normal (con todos los enlaces y img src con refencia absoluta.

luego mandas el mail con aspemail y sendto queue.

el cuerpo del mail es html y lo cojes directamente del fichero con FSO.

si quieres personalizar el boletin con el nombre, solo tienes que añadir en la pagina creada (el boletin) una cadena facilemente identificable como "***nombre***"
y cuando vas a mandar el mail haces un replace.
mensaje=replace(mensaje,"***nombre***", conexion("nombre"))


espero te sirva de algo.

un saludo

[tatoman]

De emucho, muchisimas gracias por tu posteo, espero afinar al maximo ya que le da un look a los servicios prestados que no tiene comparacion.

[tatoman]

por cierto, que quiere decir FSO? el resto lo tengo claro, te refieres a copiar directamente el body?

[ftmad]

FSO es el comando File system object.

para que veas de que se trata te pego codigo :

Código:

<!-- usamos FSO para leer el fichero y meterle entero en una variable-->
fName = server.mappath("../ficheros/boletin.htm")
Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.openTextFile(fName)
	Mensaje = a.readall
	a.Close
	set a = nothing
	set fs = nothing
<!-- ahora el contenido del fichero boletin.htm esta en la variable mensaje-->

Set Mail=Server.CreateObject("Persits.MailSender")
<!-- reemplazamos la cadena ***nombre** por el nombre de cada remitente. y despues el envio del mail... falta el bucle para que lo haga para cada registro-->

cuerpo=replace(mensaje,"***nombre***",nombre)
Mail.Host = ""
Mail.username = ""
Mail.password = ""
Mail.From = ""
Mail.FromName = ""
Mail.Subject = ""
Mail.IsHTML = True
Mail.body = cuerpo
Mail.addaddress 
Mail.Sendtoqueue

espero te sirva de algo

un saludo

[tatoman]

Gracias de nuevo amigo, es un placer ver como dia a dia aprendemos algo mas entre todos y gracias a personas como tu.
Un saludo

[epa2]

Oye, muchas gracias a los dos por este post. es super interesante


Por cierto Ftmad, ¿como sería el bucle que falta?

Te espero

[ftmad]

pues el codigo k he puesto manda un email.

Si lo k kieres es mandar un boletin sera a muchos usuarios.

etonces estos usuarios estan en una base de datos.
pongamos que la conexion a la tabla de usuarios se llame cxmail.
y k dentro de esa tabla el campo donde esta la dirección de mail se llama "email".

lo que tienes k hacer es poner

Código:

mail.addaddress cxmail("email")

luego haces un bucle sencillo como :

Código:

<!-- nos vamos al primer registro-->
<%cxtabla.movefirst

do while not cxtabla.eof

      ...........
      mail.addaddress cxmail("email")
      ...........
      mail.sendtoqueue
      mail.reset
cxtabla.movenext
loop%>

este bucle manda el mail a todos los usuarios contenidos en la tabla.

un saludo.

[epa2]

Muchas gracias por la explicación.



Un saludo

(me encanta este foro, (y el de javascript tambien))
se aprende un montón, más que en la uni.

[tatoman]

Ok muchas gracias amigo,

La verdad es que estan quedando genial los boletines

[nriccitelli]

hola a todos.!!
por casualidad ya que tenes armado el boletin, me podrias pasar el codigo completo ya que tenia algo pero es plano y queria poner un envio de boletines para la web del trabajo.
muchas gracias!!

[epa2]

Muy buena idea, amigo.

Simplifiquemos la cuestión y vayamos al grano

Espero