Dim message As Email
Dim cBody As String
message.To.Add(Main.mail_sendpi)
message.Subject="Demande d'accès Smile"
cBody = "Utilisateur : "& EditLogin.text & CRLF & "DeviceId : " & Main.SmileLogon.deviceid & CRLF & CRLF
cBody = cBody & "Site de travail (Laboratoire ou nom de l'agence Mesure) : "
message.Body = cBody
StartActivity(message.GetIntent)