Puedo enviar mis newsletters pero solo en formato de texto al e-mail del usuario. Necesito saber como se hace pra enviarlas en formato html.
Muchisimas gracias. :)
| |||
Envio de newsletters en formato html Puedo enviar mis newsletters pero solo en formato de texto al e-mail del usuario. Necesito saber como se hace pra enviarlas en formato html. Muchisimas gracias. :) |
| |||
Re: Envio de newsletters en formato html El objeto CDONTS te permite darle formato al cuerpo del mensaje que quieres enviar. set mail=server.createobject("CDONTS.newmail" ;) mail.bodyformat=1 mail.to= [email protected] mail.from= remitente mail.body= mesaje 'Puedes incluir el codigo fuente de tu pagina diseñada en dreamweaver u otro software de diseño.. mail.send Existen muchos comentarios malos acerca del objeto CDONTS, pero estoy investigando si existen otros objetos que me den la flexibilidad de CDONTS |
| |||
Re: Envio de newsletters en formato html 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... |