Send Mail From Gmail

Send Mail From Gmail:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox("Please Wait to Send")

        Try

            Dim Smtp_Server As New SmtpClient

            Dim e_mail As New MailMessage()

            Smtp_Server.UseDefaultCredentials = False

            Smtp_Server.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

            Smtp_Server.Port = 587

            Smtp_Server.EnableSsl = True

            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()

            e_mail.From = New MailAddress(TextBox1.Text)

            e_mail.To.Add(TextBox3.Text)

            e_mail.Subject = TextBox4.Text

            e_mail.IsBodyHtml = False

            e_mail.Body = TextBox5.Text

            Smtp_Server.Send(e_mail)

            MsgBox("Mail Sent")

        Catch error_t As Exception

            MsgBox(error_t.ToString)

        End Try

    End Sub