Hi
this is my code
Dim emailsendto As String = ""
For i As Integer = 0 To RS.RecordCount - 1
If i = 0 Then
emailsendto += RS.Fields.Item(0).Value
Else
emailsendto = emailsendto & "," & RS.Fields.Item(0).Value
End If
RS.MoveNext()
Next
messageemp.To.Add(New MailAddress(emailsendto))
messageemp.Subject = TextBox11.Text
messageemp.IsBodyHtml = True
messageemp.Body = ms
smtp.Send(messageemp)
Code does not work
put a comma
and Go to the complete details ...