VB Μαζική Αποστολή email σε email απο την βάση

[ilectronio]

Καλησπέρες..

 

Θέλω να φτιάξω μία φόρμα που να τραβάει με κάποιο Select όλα

τα email της βάσης και εκεί που λέει email.to()  να του εισάγω

το Querry της SQL.

 

Δηλαδή να φτιάξω ένα πολλαπλό String που να χωράει όλα τα mail.

 

 

Ο κώδικας που έχω τώρα είναι:

 Private Sub send_btn_Click(sender As System.Object, e As System.EventArgs) Handles send_btn.Click
        Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        SmtpServer.Credentials = New Net.NetworkCredential("UserID", "passwordhere")
        SmtpServer.Host = "smtp.google.com" 'so what goes here?'
        SmtpServer.Port = "567" 'or apparently you can use 587, do i actually have to define the port, and would the port depend on the host?'
        SmtpServer.EnableSsl = True


        mail.From = New MailAddress("[email protected]")
        mail.To.Add("")


        mail.Subject = subject.Text

        mail.IsBodyHtml = True
        mail.Body = message.Text

[vacilis]

http://msdn.microsoft.com/en-us/library/fksx3b4f.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1