VD EFTP

Added second FTP through Email Rather than Drive in case some members do not wish to use Drive

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