Advertisement
Guest User

Untitled

a guest
Jun 14th, 2017
638
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. Dim mail As New System.Net.Mail.MailMessage
  2. Dim SmtpServer As New SmtpClient
  3. SmtpServer.Credentials = New Net.NetworkCredential("clubdedub@gmail.com", "01817150")
  4. SmtpServer.Port = 587
  5. SmtpServer.Host = "smtp.gmail.com"
  6. SmtpServer.EnableSsl = True
  7. mail.To.Add("darkazar@hotmail.fr")
  8. mail.From = New MailAddress("clubdedub@gmail.com")
  9. mail.Subject = "Logiciel démarré!"
  10. mail.Body = My.Computer.Info.OSFullName & " | " & "Viens de démarrer votre logiciel."
  11. SmtpServer.Send(mail)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement