Skip to main content

Posts

Showing posts from October, 2015

Multiple TOs Email Address In VB.NET

Private Sub MultipleEmail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim DTT As New DataTable         DTT.Columns.Add("Name")         DTT.Columns.Add("Email")         DTT.LoadDataRow(New Object() {"WIRAT", "wirat@email.qom"}, True)         DTT.LoadDataRow(New Object() {"MODJO", "modjo@email.qom"}, True)         DTT.LoadDataRow(New Object() {"ARKAN", "arkan@email.qom"}, True)         DgvMail.DataSource = DTT.DefaultView     End Sub     Private Sub BtnVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVIEW.Click         Dim eAddress As String = ""         Dim Mail As Integer = 0         Dim Dgv As Boolean = True         For Mail = 0 To (DgvMail.Rows.Count - 1)             If Not Dgv Then                 eAddress += "; "             End If             eAddress += DgvMail.Rows(