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
%>
