Bulk email

Imports System.Net.Mail

Button1:

Timer1.Enabled = True
End Sub

Timer1:

Dim MyMailMessage As New MailMessage
Try
MyMailMessage.From() = New MailAddress(TextBox4.Text) ‘from
MyMailMessage.To.Add(TextBox3.Text) ‘to
MyMailMessage.Subject = TextBox1.Text ‘subject
MyMailMessage.Body = TextBox2.Text ‘body
Dim SMTP As New SmtpClient(“smtp.gmail.com”) ‘smtp server
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(TextBox4.Text, TextBox5.Text) ‘user + pass
SMTP.Send(MyMailMessage)
Catch ex As Exception
End Try
End Sub

Button2:
Timer1.Enabled = False
End Sub
End Class