Pues es que no veo el problema...
Vamos a ver:
Tu tienes un string -Mensaje- que es el contenido html de la pagina. Inicialmente, pones algo como:
mensaje = "<table> <tr>"
haces la consulta a la bd y con un datareader vas leyendo:
do while dr.read()
mensaje &= "<td>" & dr("TITULAR") & "</td></tr>"
mensaje &= "<td>" & dr("NOTICIA") & "</td></tr>"
loop
mensaje &= "</table>"
de las etiquetas html que he puesto no hagas mucho caso pero seria algo asi
Despues, te traes un datareader con las direcciones de los usuarios
Dim _mm As New System.Web.Mail.MailMessage
Do While dr.Read
_mm.To = CStr(dr("Email"))
_mm.From = "
[email protected]"
_mm.Subject = "Algun título"
_mm.BodyFormat = Mail.MailFormat.Html 'opcional
_mm.Body = "Mensaje"
System.Web.Mail.SmtpMail.SmtpServer = "tu_smtp"
Try
System.Web.Mail.SmtpMail.Send(_mm)
Catch ex As Exception
End Try
Loop
Lo ves claro ya?
Salu2
