Reading a Database to list in Vb - vb.net

Question

The program is suppose to take the values in a specific Column and send 4 emails to each one. Each of the 4 emails is a major cell company email. The data in the list is the phone number but im having trouble implementing it. What am i doing wrong? Any suggestions?
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ContactsDataSet.VBQuery' table. You can move, or remove it, as needed.
Me.VBQueryTableAdapter.Fill(Me.ContactsDataSet.VBQuery)
' Set the caption bar text of the form.
Me.Text = "Texting From Email"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Dim self As New MailAddress("blank#gmail.com")
Dim strCarriers As New List(Of String)
Dim colIndex As Integer
Dim strList As New List(Of String)
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("blank#gmail.com", "password3")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
strCarriers.Add("#pm.sprint.com")
strCarriers.Add("#vtext.com")
strCarriers.Add("#tmomail.net")
strCarriers.Add("#txt.att.net")
colIndex = 4
If rad1.Checked = True Then
Dim NumToCall As String
For i As Integer = 0 To DataGridView1.Rows.Count - 1
' dont need
'strList.Add(DataGridView1.Item(colIndex, i).Value.ToString)
NumToCall = DataGridView1.Item(colIndex, i).Value.ToString
' you cal also reference by name:
For Each item As String In strList
For Each Carrier As String In strCarriers
' Send Email
e_mail.To.Add(NumToCall & "Carrier")
e_mail = New MailMessage()
e_mail.From = self
e_mail.Subject = txtSubject.Text
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
Next
Next
Next
ElseIf rad1.Checked = False Then
For Each Carrier As String In strCarriers
e_mail = New MailMessage()
e_mail.From = self
e_mail.To.Add(txtTo.Text + Carrier)
e_mail.Subject = txtSubject.Text
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
Next
End If
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Close()
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtMessage.Text = String.Empty
txtSubject.Text = String.Empty
txtTo.Text = String.Empty
rad1.Checked = False
End Sub
End Class

Answer 1

You have to remove the strList ForLoop block. I guess it's not needed anymore
Dim NumToCall As String
For i As Integer = 0 To DataGridView1.Rows.Count - 1
NumToCall = DataGridView1.Item(colIndex, i).Value.ToString
'you cal also reference by name:
For Each Carrier As String In strCarriers
' Send Email
e_mail.To.Add(NumToCall & "Carrier")
e_mail = New MailMessage()
e_mail.From = self
e_mail.Subject = txtSubject.Text
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
Next
Next