Buenas estoy tratando de hacer un envio de correos masivos, aunque me funciona perfect lo q tengo, me estaba preguntando como hago para enviar correos a los usuarios q tengo en la database, es decir
Tengo una tabla llamada correo donde tengo 3 campos id, nombres, correos
Bueno lo que qiero tomar es solo el campo correos, pero como soy medio nuevo no tengo la capacidad de ver las opciones.
Si podrian echarme una mano o guiarme les agredeceria
saludos.
aqui les dejo el codigo
Código PHP:
Imports System.Web.Mail
Partial Class contacto
Inherits System.Web.UI.Page
Public Correo As New System.Net.Mail.MailMessage
Public SMTP As New System.Net.Mail.SmtpClient
Public Resultado As Boolean = True
Protected Sub BtnEnvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEnvia.Click
Try
For i As Integer = 0 To Me.LstCorreo.Items.Count
Correo.From = New System.Net.Mail.MailAddress(Me.LstCorreo.Items(i).Text)
Correo.To.Add(Me.LstCorreo.Items(i).Text)
Correo.Subject = Me.TxtAsunto.Text
Correo.IsBodyHtml = True
'Mensaje a enviar
Correo.Body = "<Html>"
Correo.Body &= "<Body>"
Correo.Body &= "<Center><i><B><Font Style='Font-Size: 30pt;' Size='7' Face='Tahoma'>Prueba</Font></B></i></Center>"
Correo.Body &= "<Center><i><font style='font-size: 20pt;' size='5' face='Tahoma'>hm</font></i><br></Center>"
Correo.Body &= "<B>Asunto:</B> " & Me.TxtMensaje.Text
Correo.Body &= "</Body>"
Correo.Body &= "</Html>"
Correo.Priority = Net.Mail.MailPriority.Normal
SMTP.Host = "smtp.gmail.com"
SMTP.Port = 587
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "xxxxx")
SMTP.EnableSsl = True
Try
SMTP.Send(Correo)
'------------------------
Response.Write("<div style='z-index: 103; left: 61px; width: 438px; position: absolute; top: 538px; height: 100px'>")
Response.Write("<B>Mensaje Enviado a:</B> " & Me.LstCorreo.Items(i).Text & "<Br>")
Response.Write("</div>")
'-----------------------
Correo.To.Clear()
Catch ex As Exception
'
End Try
Next
Catch ex As Exception
End Try
End Sub
Protected Sub BtnAgregarCorreo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnAgregarCorreo.Click
Me.LstCorreo.Items.Add(Me.TxtCorreo.Text)
End Sub
End Class