Enviar newsletter (htm,cdonts,access)

[vgaray]

Este código es para enviar un 'newletter' a un grupo de usuarios.

1.-)Revisa que el componente Cdonts este instalado

2.-)Abre un archivo htm que será el 'newsletter' a enviar

3.-)Abre un 'recordset' con la lista de direcciones de correo agrupandolos por la letra inicial del mismo.

4.-)Envia el correo y actualiza el campo 'enviado' en la tabla de usuario para indicar que un correo ya fué enviado a ese usuario.

5.-)Presentará un sumario de correos enviados.

--------------------------------
<%
Function ComponenteInstalado(ProgId) 'Funcion para revisar la existencia de un componente x
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
ComponenteInstalado = True
Else
ComponenteInstalado = False
End If
Set tmpObject = Nothing
End Function
%>

<%
Function Enviar(email_address,Html_content) ' Funcion para enviar el 'newsletter'
set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.To = email_address
objEMail.From = "newsletter@tu_sitio.com"
objEMail.subject = "Newsletter"
objEMail.body = Html_content
objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.send
set objEMail = nothing
End Function
%>

<%
Function Editar_status(address) ' Funcion para editar status del campo 'enviado'
set Tabla = server.CreateObject("ADODB.Recordset")
Tabla.open "SELECT * from people where address like " & "'" & address & "%'" & " order by address",connVB,3,2
Do while not Tabla.Eof
Tabla("Enviado") = "Yes"
Tabla.Update
Tabla.Movenext
Loop
Tabla.Close
set Tabla = nothing
End Function
%>