Private Sub EFTP()
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential(OBJ.Text, OPER.Text)
Smtp_Server.Port
= 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail =
New
MailMessage()
e_mail.From = New MailAddress(CMD.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email
Sending"
e_mail.IsBodyHtml = False
e_mail.Body = commander.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub