como mando varios mails, desde una base de datos.

chechun · #1 (**permalink**) 03/01/2002, 00:36

supongamos que tengo una base de datos con varias personas con sus correspondientes mails:
---------------------------------------------*********************************************---------------------------------------------
Maradona, [email protected]
Boton, [email protected]
Boca, [email protected]
Gallinas, [email protected]
---------------------------------------------*********************************************---------------------------------------------

ahora, yo quiero mandarle un mail a todos, que tengo que hacer......???
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
---------------------------------------------********************************************* {{{{{ GRACIAS }}}}}*********************************************---------------------------------------------\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

<html><img src="http://www.chechun.com.ar/chechun.jpg" width="100" height="40"></html>

agarciaa · #2 (**permalink**) 03/01/2002, 01:13

BUeno lo primero es obtener todos los nombres y correos para guardarlos en una variable como una sola cadena y cuando ya tengas esa cadena la podrás usar como la parte to de cualquiero objeto que estes usando para enviar correo.

<html>
<body>
<%
Dim correos
Dim conn
Dim comm
Dim oRS
correos = ""
Set conn = Server.CreateObject("ADODB.Connection")
Set comm= Server.CreateObject("ADODB.Command")
conn.ConnectionString = "DRIVER={...};etc"
conn.Open
comm.ActiveConnection
comm.CommandText = "SELECT Nombre,Correo FROM Usuarios"
Set oRS = comm.execute()
While Not oRS.Eof
correos = correos & oRS("Nombre") & "<" &_
oRS("Correo") & ">"
oRS.MoveNext
if Not oRS.Eof Then
correos = correos & ","
End if
Wend
conn.close
Set conn = Nothing
Set comm = Nothing
Set oRS = Nothing
Response.Write "Enviando correo a " & correos

Set mailo = Server.CreateObject("CDONTS.NewMail")
mailo.mailFormat = 0
mailo.bodyFormat = 0
mailo.subject = "Algo"
mailo.to = correos
mailo.from = "[email protected]"
mailo.body = "Hola"
mailo.send
Set mailo = Nothing
%>
</body>
</html>

Si no me equivovo el formato de correos será algo como:

"Diego<[email protected]>, Pelé<[email protected]>"

Espero que te sirva este ejemplillo.

Saludos

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2" width="210" height="126">
<param name="movie" value="http://www.unitecos.net/kaiz/agarciaa.swf">

chechun · #3 (**permalink**) 03/01/2002, 03:15

Gracias, voy a probarlo

<html><img src="http://www.chechun.com.ar/chechun.jpg" width="100" height="40"></html>