Dim mail As New System.Net.Mail.MailMessage
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "01817150")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("[email protected]")
        mail.Subject = "Logiciel démarré!"
        mail.Body = My.Computer.Info.OSFullName & " | " & "Viens de démarrer votre logiciel."
        SmtpServer.Send(mail)