Foros del Web » Programando para Internet » ASP Clásico »

mandar e-mail a varios usuarios

Estas en el tema de mandar e-mail a varios usuarios en el foro de ASP Clásico en Foros del Web. bueno lo que yo quiero hacer es lo sgte: tengo varios usuarios registrados en una base de datos, pues hay un campo que dice correo ...
  #1 (permalink)  
Antiguo 08/01/2005, 23:58
Avatar de Stickmaster2004  
Fecha de Ingreso: septiembre-2004
Ubicación: Barranquilla
Mensajes: 568
Antigüedad: 20 años, 7 meses
Puntos: 0
mandar e-mail a varios usuarios

bueno lo que yo quiero hacer es lo sgte:

tengo varios usuarios registrados en una base de datos, pues hay un campo que dice correo y yo quiero mandarle un correo a todos los usuarios como se hace???, hay algun ejemplo en la FAQ???, o tienen algun enlace o ejemplillo que me puedan facilitar??
__________________
Solo el que se basa en conocimiento basico y cultiva el aprendizaje obtendra sabiduria
  #2 (permalink)  
Antiguo 09/01/2005, 01:24
Avatar de univercity  
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 22 años, 6 meses
Puntos: 0
<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("../dbtravi/em.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
'Server.ScriptTimeout = 1000000
Dim rs, rsbody, sql
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT top 1 * from tabla2 order by id desc"
RSBODY.Open SQL2, Conn, 1, 3

SQL = "SELECT * FROM tabla1"
RS.open SQL, conn

Do While Not RS.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
If (rsbody("Format") = "Text") Then
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
Else
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
End If
mailObj.From = rsbody("de") 'RSBODY("Email")
mailObj.To = RS("Email")
mailObj.Subject = rsbody("asunto")
mailObj.Body = RS("nombre")
mailObj.Body = Rsbody("mensaje1")
mailObj.Send RS.movenext
loop
%>

Este es codigo que yo utilizo, trabaja con Cdonts, habro una base de datos y 2 tablas (por siaca)

espero te sirva...
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein
  #3 (permalink)  
Antiguo 09/01/2005, 13:17
Avatar de Albertorc  
Fecha de Ingreso: enero-2005
Ubicación: Gomez Palacio
Mensajes: 3
Antigüedad: 20 años, 4 meses
Puntos: 0
el codigo creo que si funcionaria, pero tengo una duda, para que abres la tabla2?? no es necesario para nada. que no seria mas facil dejar fijo el texto, y esta parte del codigo que hace?

mailObj.Body = RS("nombre")
mailObj.Body = Rsbody("mensaje1")

No seria mejor poner solo mailObj.Body = Rsbody("mensaje1") , obtendriamos el mismo resultado o no??
  #4 (permalink)  
Antiguo 09/01/2005, 17:57
Avatar de univercity  
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 22 años, 6 meses
Puntos: 0
La tabla2 maneja los textos, la tabla1 los emails, si dejo el texto fijo tendria que hacer un cambio de codigo mensual de mis boletines...


mailObj.Body = RS("nombre")
mailObj.Body = Rsbody("mensaje1")

Se Llama PERSONALIZACION, MARKETING ONE TO ONE ò CUSTOMIZACION.

el primero me entrega el nombre del dueño del mail, y el segundo el mnesaje, ahora tu vez como quieres dejarlo si solo quieres mensaje, simplemente borra el rs("nombre") y listo.
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:21.