EmailOuvreSessionSMTP("comptesms", "localhost") // depuis votre hébergement
// Compte autorisé à envoyer
Email.Expéditeur = "xxxxsms@gmail.com"
Email.NbDestinataire = 1
// Numéro destinataire
noGSM est une chaîne = "+33683652208"
Email.Destinataire[1] = "sms:" + noGSM + "@kalanda.net"
// Message
Email.Message = "Test message"
// Envoi
SI PAS EmailEnvoieMessage("comptesms") ALORS
Info(ErreurInfo(errComplet))
SINON
Info("Envoi Ok")
FIN
EmailFermeSession("comptesms")