Puedes hacerlo con un datareader o un while...
Ejemplo..:
Cita: 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
Con ello irás recorriendo los registros que traes de tu query..y enviarás el mail a cada uno de tus usuarios.
Espero que te sirva éste ejemplo:
Saludos
