Imports System.Net.Mail



Public Class Form1
    Public Function randome(ByVal num As Integer) As String
        Dim t As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZaqwertyuiopasdfghjklzxcvbnm0123456789"
        Dim rand As New Random
        Dim s As String = ""
        Dim chrInt As Integer = 0
        For i = 0 To num
            s += t(rand.Next(0, t.Length - 1))
        Next
        Return s
    End Function
    Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
        Dim stringlist As String = txtTo.Text

        Dim arraylist() As String = stringlist.Split(",")
        Dim OldText As String

        Dim NewText As String
        OldText = txtMessage.Text





        For Each item As String In arraylist
            Dim EmailMessage As New MailMessage()

            Try
                EmailMessage.From = New MailAddress(randome(10) + "sss@telus.net", txtName.Text)


                EmailMessage.To.Add(item)
                NewText = OldText.Replace("email", item)

                EmailMessage.Priority = MailPriority.High
                EmailMessage.BodyEncoding = System.Text.ASCIIEncoding.UTF8
                EmailMessage.HeadersEncoding = System.Text.ASCIIEncoding.UTF8
                EmailMessage.SubjectEncoding = System.Text.ASCIIEncoding.UTF8
                EmailMessage.Subject = txtSubject.Text
                EmailMessage.IsBodyHtml = True




                EmailMessage.Body = NewText




                Dim SMTP As New SmtpClient("smtp.telus.net")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.UseDefaultCredentials = False
                SMTP.Send(EmailMessage)


                'MsgBox("Email Send! to " + item)
                TextBox4.AppendText(vbNewLine & item)

            Catch ex As Exception

            End Try
        Next
    End Sub


End Class