MaSendBox,Message sont des chaînes
JSON est un Variant
JSON.authorization.Type = "Basic Auth"
JSON.authorization.Username = "api"
JSON.authorization.Password = "MaCléDeCompte"
JSON.headers.Accept = "text/json"
JSON.body.from = "robot1@societe.fr"
JSON.body.to = "baptiste@cloart.fr"
JSON.body.subject = "test"
JSON.body.test = "if you see this, it works"

Message = VariantVersJSON(JSON)
Message = Remplace(Message,"text\/json","text/json")

MaSendBox = "MaSendBox"

Envoi est un restRequête
Envoi.URL = ChaîneConstruit("https://api.mailgun.net/v3/%1/messages",MaSendBox)
Envoi.Méthode = httpPost
Envoi.Contenu = ChaîneVersUTF8(Message)

Reponse est un restRéponse = RESTEnvoie(Envoi)
SI ErreurDétectée = Vrai ALORS
Erreur(ErreurInfo(errMessage))
SINON
Info(Reponse.Contenu)
FIN

MaSendBox,Message sont des chaînes
Expéditeur est une chaîne = "Mailgun Sandbox <postmaster@sandboxazzzzzzzzzzzzzzzzzzz.mailgun.org>"
Destinataire est une chaîne = "Toi <moi@free.fr>"
Sujet est une chaîne = "Hello Toi"
CorpsMessage est une chaîne = "Congratulations Toi, you just sent an email with Mailgun! You are truly awesome héhé!"
Message = ChaîneConstruit("from=%1&to=%2&subject=%3&text=%4",Expéditeur, Destinataire,Sujet,CorpsMessage)
MaSendBox = "sandboxazzzzzzzzzzzzzzzzzzz.mailgun.org"
Envoi est un restRequête
Envoi.ContentType = "application/x-www-form-urlencoded"
Envoi.URL = ChaîneConstruit("https://api.mailgun.net/v3/%1/messages",MaSendBox)
Envoi.Utilisateur = "api"
Envoi.MotDePasse = "key-happyKeyCodeHere"
Envoi.Méthode = httpPost
Envoi.Contenu = URLEncode(ChaîneVersUTF8(Message))
Reponse est un restRéponse = RESTEnvoie(Envoi)
SI ErreurDétectée = Vrai ALORS
Erreur(ErreurInfo(errMessage))
SINON
Info(Reponse.Contenu)
FIN

MaSendBox est une chaîne = "***sandboxxxxxxxx.mailgun.org***"
Expéditeur est une chaîne = "Automate BLV-TECH <no-reply@blv-tech.com>"
Destinataire est une chaîne = "FBI@NSA.COM"
DestinataireCC est une chaîne = "baptiste@GIGN.fr,baptiste.cloart@DGSI.com"
Sujet est une chaîne = "Hello World !"
LeMessage est une chaîne = ChaîneConstruit("from=%1&to=%2&subject=%3&cc=%4",Expéditeur, Destinataire,Sujet,DestinataireCC)
UrlFinal est une chaîne = ChaîneVersUTF8(ChaîneConstruit("https://api.mailgun.net/v3/%1/messages?%2",MaSendBox,LeMessage))
HTTPCréeFormulaire("Mail_form")
HTTPAjouteParamètre("Mail_form", "html", fChargeTexte(ChaîneConstruit("%1\mail_pour_test\email-template-responsive.html",SysRep(srBureau))))
LaRéponse est un booléen = HTTPEnvoieFormulaire("Mail_form" , UrlFinal , httpPost ,"","",typeMimeFormulaireMultiPartie , "api" ,"***CLE MAILGUN***")
SI LaRéponse = Vrai ALORS
Erreur(ErreurInfo(errMessage))
SINON
Info("Message envoyé !")
FIN

Mon_id est une chaîne = "MonCompteGMail@gmail.com"
MonMessage est un Email
MonMessage..Expediteur = "Automate BLV-TECH"
MonMessage..AdresseExpéditeur = "no-reply@blv-tech.com"
MonMessage..Destinataire[1] = "test@test.fr"
MonMessage..Sujet = "test sujet"
MonMessage..Message = "test mess"
SI EmailConstruitSource(MonMessage) ALORS
MonMail est un restRequête
MonMail.ContentType = "message/rfc822"
MonMail.URL = ChaîneConstruit("https://www.googleapis.com/upload/gmail/v1/users/%1/messages/send?uploadType=media",Mon_id)
MonMail.Méthode = httpPost
MonMail.Contenu =URLEncode("{"+RC+" ""raw"" : """+ Encode(MonMessage..Source,encodeBASE64URL)+""","+RC+"}")
MonMail..Entête["Authorization"] ="Bearer ***ACCES TOKKEN GMAIL***"
LaRéponse est un restRéponse = RESTEnvoie(MonMail)
SI ErreurDétectée = Vrai ALORS
Erreur(ErreurInfo(errMessage))
SINON
Info(LaRéponse.Contenu)
FIN
FIN

HTTPCréeFormulaire("MAIL")
HTTPAjouteParamètre("MAIL", "html", CorpsMessage)
//--------POUR PIECES JOINTES
POUR TOUT UnePJ de Email.PièceJointes
CompteurPJ++
HTTPAjouteFichier("MAIL", ChaîneConstruit("attachment[%1]",CompteurPJ),UnePJ.Chemin)
FIN
//--------POUR PIECES JOINTES
EnvoiReussi est un booléen = HTTPEnvoieFormulaire("MAIL",ChaîneConstruit(URL,Domaine,LeMessage),httpPost,"Ma société","","multipart/form-data","api",***CléAPIMailGun***)