Skip to main content

Multiple TOs Email Address In VB.NET

By















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(Mail).Cells(1).Value.ToString()
            Dgv = False
        Next
        LblMAILTO.Text = eAddress
    End Sub

    Private Sub BtnCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCLEAR.Click
        LblMAILTO.Text = ""
    End Sub

”download[4]”

Comments

Post a Comment

Popular posts from this blog

CheckBox dalam DataGridView VB.Net

By
Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click         Dim Y As String = Mid(CmbUSER.Text, 1, 7)         Dim iROW As Integer         Dim AKSES As String         For iROW = 0 To DGVSample.Rows.Count - 1             'AksesBox = Nama CheckBox yang ada di DatagridView             If DGVSample.Rows(iROW).Cells("AksesBox").Value Then    ...
1 comment
Read more

Create Comment As .xls In Farpoint Spread

By
  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...
4 comments
Read more