Imports System.Net.Mail
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("abc@gmail.com", "password123") 'using Gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("abc@gmail.com", TextBox1.Text) mail.To.Add(TextBox2.Text) mail.Subject = TextBox3.Text mail.Body = TextBox4.Text smtpServer.Send(mail) Me.Close() End Sub