Send Email From VB.net

Send Email From VB.net (Internet Connection Required)

Copy the code and Paste in Code Window:

Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage
        If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "") Then
            MsgBox("Please enter a valid e-mail")
        Else
            mail.Subject = "email"
            mail.To.Add(TextBox3.Text)
            mail.From = New MailAddress(TextBox3.Text)
            mail.Body = TextBox4.Text
            MsgBox("mail sent")

            Dim smtp As New SmtpClient("Smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            smtp.Port = "587"
            smtp.Send(mail)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class