Visual Basic

Dan O'Riordan wrote:

All of the code I am using is placed on this thread.

Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=FigClubs;Integrated Security=True;Pooling=False")

Dim cmd As SqlCommand = New SqlCommand("SELECT Email FROM Members", con)

con.Open()

Dim myDA As SqlDataAdapter = New SqlDataAdapter(cmd)

Dim myDataTable As DataTable = New DataTable

myDA.Fill(myDataTable)

con.Close()

con = Nothing

Try
      Dim Smtp_Server As New SmtpClient
      Dim e_mail As New MailMessage()
      Smtp_Server.UseDefaultCredentials = False
      Smtp_Server.Credentials = New Net.NetworkCredential(My.Settings.ClubEmail, My.Settings.EmailPassword)
      Smtp_Server.Port = 587
      Smtp_Server.EnableSsl = True
      Smtp_Server.Host = "smtp.gmail.com"

      e_mail = New MailMessage()
      e_mail.From = New MailAddress(TextBox4.Text)
      e_mail.To.Add(EmailTextBox.Text)
      e_mail.Subject = TextBox1.Text
      e_mail.IsBodyHtml = False
      e_mail.Body = TextBox2.Text
      Smtp_Server.Send(e_mail)
      MsgBox("Your email has been sent.")

  Catch error_t As Exception
      MsgBox(error_t.ToString)
  End Try

Me.MembersTableAdapter.Fill(Me.MembersDataSet.Members)

string[] addresses myDataTable.Rows.Cast<DataRow>().Select(row => (string)row[0]).ToArray();
EmailTextBox.Text = string.Join(", ", addresses);

SELECT Stuff((SELECT ', ' + Email FROM Members FOR XML PATH(''), TYPE).value('.', 'varchar(max)'), 1, 2, '') As Email;

Dan O'Riordan wrote:

So, if you read my first post in this thread, it explains the issue in detail.

' Determine the mailMessage.To property based on CheckBox checked status

If CheckBox1.Checked = True Then

    For Each dr As DataRow In myDataTable.Rows

        mailMessage.To.Add(New MailAddress(dr.Item(0).ToString))

    Next

Else

    mailMessage.To.Add(New MailAddress(EmailTextBox.Text.Trim()))

End If

"SELECT * FROM DB.Members"

"Select * FROM DB.MailMsg WHERE Subject = 'How do I'"

For i = 0 to DBData.rows - 1
MailTo.AppendText(DBData.rows(i).Item(0) & ";")

Dim newForm As New Form2()
newForm.Show()

Dim newForm As New Form2()
newForm.Show(Me)