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