Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/12/2008, 08:16
gomisianuro
 
Fecha de Ingreso: diciembre-2008
Ubicación: En chile
Mensajes: 1
Antigüedad: 16 años, 4 meses
Puntos: 0
Sonrisa Respuesta: Novato en CDONT

te mando un ejemplo como para que practiques


<html>
<head>
<title>Mail Masivo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<%
Set base = Server.CreateObject("ADODB.Connection")
base.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;DATA SOURCE=" & "Ruta base de datos C://aaa/aaa.mdb"

base.open
Set rs = Server.Createobject("ADODB.Recordset")
rs.activeconnection = base
rs.locktype = 3
rs.cursortype = 3

contador = 0

rs.source="SELECT * FROM esp"
rs.open

rs.movefirst

do while rs.EOF = False
Set fso=Server.CreateObject("Scripting.FileSystemObjec t")
Set archivo=fso.OpenTextFile(server.MapPath("mail-masivo.htm"))'
'ThisFile=Server.MapPath("TEL-PDF-POR-FIN-GC.pdf") ' Archivo adjunto
plantilla=archivo.ReadAll
archivo.Close
set archivo=Nothing
set fso=Nothing
plantilla = replace(plantilla,"//nombre//",rs("funcionario"))
plantilla = replace(plantilla,"//empresa//",rs("empresa"))
set correo=server.CreateObject("cdonts.newmail")
correo.mailformat=0
correo.bodyformat=0
correo.From= "NameAction.com <[email protected]>"
correo.to = "[email protected]" 'rs("email") '
'correo.Cc=""'
'correo.CCO="[email protected]"'
'correo.Bcc=""'

correo.Subject= "Asunto del email ." '
correo.body=plantilla
'correo.AttachFile ThisFile ' Archivo adjunto

'correo.send
Set correo=nothing
rs.movenext
Loop
rs.Close
base.Close
Set base=Nothing
Set rs=Nothing
%>
</body>
</html>


En pimer lugar


Los correos los saco de una base da datos
create una en access
ademas creo un archivo html que es el que envio lo adapto a mis requerimientos y listo queda en la raiz donde esta el archivo correo-send.asp

Funciona de la siguiente manera

el script anterior abre la db lee los correos de los destinatarios
ademas lee un archivo html que es mail que compuse anteriormente (un HTML)

la plantilla o el replace lo que hace es sacar de la db el nombre del usuario y lo remplaza con los comodines que agrego algo asi como

Estimado //usuario//
y Luego queda
Estimado Sr Mandolino

algo por el estilo

Puedes modificar el script a tus requerimientos es bastante sencillo prueba enviandotelo a ti mismo

si quieres puedes sacar la conexion con db (base de datos) y pasarle los datos directamente a modo de pruebas

espero te sirva.

mzm