Newsletter con aspemail

potenkin · #1 (**permalink**) 13/02/2008, 12:16

hola,
quiero crear un newsletter utilizando aspemail en el servidor (es el que tienen alojado en arsys). Alguien conoce algun ejemplo?

salut

Shiryu_Libra · #2 (**permalink**) 13/02/2008, 15:14

bueno un newsletter no es otra cosa que una pequeña pagina HTML como ESTE EJEMPLO, entonces lo que debes generar es algo similar y en tu codigo del correo, cambiar el atributo del contenido a HTML

Código PHP:

  Function EnviarCorreo(contenido)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = "Tu nombre o titular"
Mailer.FromAddress= "Tu correo"
Mailer.RemoteHost = "HOST"
Mailer.AddRecipient "Nombre destinatario", "Correo destinatario"
Mailer.Subject    = "Titulo del mensaje"
Mailer.BodyText   = contenido
Mail.IsHTML = True
if Mailer.SendMail then
  Response.Write "Correo Enviado..."
else
  Response.Write "Falla en envio de correo. Error " & Mailer.Response
end if
end function

y como sera algo dinamico, ya una ves que tengas tu estructura del HTML que te mencion anteriormente, solo lo agregas como una variable

Cita:

estructura = "<html><body><h1>Dear Stephen</h1>" & VbCrLf & "<p><strong>Your widgets order has been processed! </strong></p></body></html>"

EnviarCorreo(estructura)

intentalo y en dudas, postea de nuevo

rcalle66 · #3 (**permalink**) 14/02/2008, 05:03

No estoy seguro si aspemail soporta autenticación, es decir, si pretendes enviar emails a cuentas de correo diferentes a las de tu dominio entonces es necesario que el email sea autenticado. te recomiendo mejor jmail

potenkin · #4 (**permalink**) 15/02/2008, 05:47

Muchas gracias a los dos,
en verdad lo que necesito es algo un poco más complejo, se trata de enviar un newsletter utilizando las noticias que se generan en una tabla de noticias en una base de datos Access. Ya he hecho algo similar: crear una noticia, recuperarla en la plantilla del newsletter y hacer el envio a un listado de e.mails.

El problema que me encuentro ahora es que necesitaria que poder enviar varias noticias en el mismo newsletters, por ejemplo 5, recuperar las ultimas 5 noticias y enviar el newsletter farmateado adecuadamente.

os pongo el codigo que utilizo ahora para el envio de una sola noticia, donde recupero el titulo, la fecha y el texto de la misma:

<%

' change to address of your own SMTP server

strHost = "smtp.dominio.com"

If Request("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")

' enter valid SMTP host

Mail.Host = strHost

Mail.Port = 25

Mail.Username = "usuario"

Mail.Password = "clave"

Mail.From = Request("From") ' From address

Mail.FromName = Request("FromName") ' optional

Mail.AddBcc Request("To")

' message subject

Mail.Subject = Request("Subject")

' message body

Mail.IsHTML = True

Mail.Body = "<HTML><BODY bgcolor='#F0F0F0'><table width='570' border='0' cellpadding='15' cellspacing='1' bgcolor='#CCCCCC' align='center'><tr><td bgcolor='#FFFFFF'><img src='http://www.dominio.com/img/correos/logo_540.gif' width='540' height='90' /></td></tr><tr><td bgcolor='#FFFFFF'><p><Font Face='Geneva, Verdana, Arial, Sans serif' Size='1' Color='#000000'><br>Fruites <b>" & Request("Dias") & "</b><br><br></font><br><Font Face='Geneva, Verdana, Arial, Sans serif' Size='4' Color='#CC6600'><b>" & Request("Subject") & "</b></font></p><p><font face='Geneva, Verdana, Arial' size='1'>" & replace(Request("Body"),vbCrLf,"<br>") & "</font></p><br><br></td></tr><tr><td bgcolor='#FFFFFF'><font face='Verdana, Arial' size='1'><strong>Trecoop Fruites</strong><br>c/ Segre, 1 · 25173 · Sudanell · Lleida · Tel. 973 258 200 · <a href='mailto:[email protected]'>trecoop@dominio. com</a></font></td></tr></table></BODY></HTML>"

strErr = ""

bSuccess = False

On Error Resume Next ' catch errors

Mail.Send ' send message

If Err <> 0 Then ' error occurred

strErr = Err.Description

else

bSuccess = True

End If

End If

%>

----
recojo los campos de la base de datos en un formulario:

<input name="Subject" type="text" value="<%=(Recordset1.Fields.Item("tit_cat").Value )%>" size="35" />

<textarea name="Body" cols="40" rows="12"><%TEXT=Server.HTMLEncode(Recordset1.Fiel ds.Item("txt_cat").Value)
TEXT = REplace(TEXT,vbCrLf,"<br>")%><%=TEXT%>
</textarea></td>

<input name="Dias" type="text" id="Imatge" value="<%=(Recordset1.Fields.Item("fecha").Value)% >" size="35" />

ya veis que pongo el envio en html.
Para recuperar las ultimas 5 noticias de la tabla, quizás se podria utilizar un "Repetir regiion", sabeis si es posible hacerlo, y si es así como se hace?

salut

lishu · #5 (**permalink**) 24/05/2008, 18:03

tengo un problema similar al tuyo.
quiero enviar un nuewsletter todos los dias, si mi cliente subio una noticia.
y quiero que se envie esa noticia nueva.
pudiste resolver este problema para mandar codigo asp?
gracias!