Code:
Private Sub Emaillocation()
Dim Target As String
Target = "http:/**********/*****/Target.txt"
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(Target)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.GetEncoding("windows-1252"))
Dim Targettxt As String
Targettxt = sr.ReadToEnd()
TargetX.Text = Targettxt
Call email()
End Sub
Private Sub email()
Dim AnEmailMessage As New MailMessage
AnEmailMessage.From = New MailAddress("************@gmail.com")
Dim mailTo As String = TagetX.Text
AnEmailMessage.To.Add(mailTo)
AnEmailMessage.Subject = ("**************")
AnEmailMessage.Body = ("*****************************")
Dim SimpleSMTP As New SmtpClient("smtp.gmail.com")
SimpleSMTP.Port = 587
SimpleSMTP.EnableSsl = True
SimpleSMTP.Credentials = New System.Net.NetworkCredential("**************@gmail.com", "******")
SimpleSMTP.Send(AnEmailMessage)
End Sub
What we really need you to do is put a breakpoint on the highlighted line, then when the program breaks there, hover your mouse over the "mailTo" variable and check it's value.