26/02/2005, 10:00
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Con FSO levantás el contenido del txt. Luego le hacés un split por la coma para convetilo en un array y finalmente "loopeas" el array para mandar los mails:
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Contenido = filesys.OpenTextFile(Server.MapPath("archivodemail s.txt"), 1, false)
Mails = Contenido.ReadAll
Set Contenido = Nothing
Set FSO = Nothing
Mails = Split(Mails, ",")
For i = 0 To UBound(Mails)
' acá tu código para enviar correos
' El destinatario lo tenés en Mails(i):
Response.wRITE Mails(i)
Next
%>
__________________
...___... |