Enviar newsletter (htm,cdonts,access)

[vgaray]

'Continuación...

<%
If ComponenteInstalado("CDONTS.NewMail") Then 'revisar que tengas instalado el Cdonts

Archivo_html_a_enviar = "Pagina.htm" 'el archivo htm a mandar en el 'nesletter'

set connVB = server.createobject("ADODB.Connection")
Users_database = "Usuarios.mdb"
connVB.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(Users_database)

For x=65 to 90 ' De la A a la Z (solo para enviar los grupos)

set Table = server.CreateObject("ADODB.Recordset")

sql = "SELECT distinct * from people " ' direcciones únicas
sql = sql & " where address like " & "'" & chr(x) & "%'" ' la direccion empiece con...
sql = sql & " and Enviado='No' order by address" ' que aun no se le haya enviado el correo

Table.open sql,connVB,3,2

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Dim objTextStream
File = server.MapPath(".") & "\" & Archivo_html_a_enviar
fsoForReading = 1
If objFSO.FileExists(File) then ' Revisar que exista el archivo htm a ser enviado

Html_content = ""
Set objTextStream = objFSO.OpenTextFile(File, fsoForReading)
Html_content = Html_content & objTextStream.ReadAll 'Abrir el archivo y obtener el contenido
'Response.Write "" & Html_content & "" ' activa esta linea si deseas ver como sera el correo enviado
objTextStream.Close
Set objTextStream = Nothing
Count = 0
Do while not Table.EOF
email_address = Table("address")
Enviar email_address,Html_content 'Enviar el correo
Editar_status email_address 'Actualizar el campo 'enviado' para esta cuenta de correo
Count = Count + 1
Table.MoveNext
Loop