Envio de newsletters en formato html

[vgaray]

Saludos.

Crea una pagina en tu sitio con el contenido y diseño que quieras en html. Luego crea una página asp con el siguiente código...

<%
Function enviar(direccion_correo,contendido_del_correo)
set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.To = direccion_correo
objEMail.From = "tu_cuenta@tu_server_mail.com"
objEMail.subject = "Newsletter"
objEMail.body = contendido_del_correo
objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.send
set objEMail = nothing
End Function
%>

<!--#include file="../conexiones_sql/users.inc" -->
<%
set tabla = server.CreateObject("ADODB.Recordset")
tabla.open "SELECT address from people ",connVB,3,2
c = 0
Response.write "Sending newsletter <br>"

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Dim objTextStream
archivo = server.MapPath(".") & "\" & request.querystring("archivo")
const fsoForReading = 1
If objFSO.FileExists(archivo) then
Set objTextStream = objFSO.OpenTextFile(archivo, fsoForReading)
'Response.Write "" & objTextStream.ReadAll & ""
a = a & objTextStream.ReadAll
response.write a
objTextStream.Close
Set objTextStream = Nothing
Else
a = "nada"
End If
Set objFSO = Nothing

Do while not tabla.EOF

direccion = tabla("address")
enviar direccion,a
c = c + 1
Response.write c & ".-: Enviando Newsletter a la dirección... <b> " & direccion & "</b><br>"

tabla.MoveNext
Loop

tabla.Close
set tabla = nothing

connVB.Close
set connVB = nothing
%>


Lo que hace este código es abrir el archivo .htm que le mandes como parámetro (pagina_asp.asp?archivo=tu_newsletter_en_formato_h tml.htm) y lo mandará a un listado de direcciones electrónicas. Personalizalo a tus requerimientos.


---------------------
Espero que esto ayude...