Les emails expédiés par une application, un site, un webservice (…) sont généralement confiés à un serveur en utilisant le protocole SMTP (Simple Mail Transfer Protocol).

Les contraintes de sécurité actuelles peuvent rendre l'utilisation de ce protocole complexe. C'est le cas lorsque l'hébergeur du serveur SMTP ajoute une double authentification avec OAuth 2, comme Google pour Gmail, ou Microsoft avec Office365. En effet lorsqu'une authentification oAuth est demandée par un service de messagerie :

• il faut utiliser la fonction AuthIdentifie afin d'avoir un "Token". Un exemple est donné :
  • pour Gmail dans le blog : Procédure pour récupérer les identifiants ClientID et ClientSecret nécessaires à la double authentification d'un serveur IMAP de GMail),
  • pour Office 365 dans la LST 124 avec une illustration complète de la configuration d'une application dans le portail Azure, ensuite utilisable avec l'exemple standard WD Mail.
• le token obtenu sera donné à la propriété AuthToken du type emailSessionSMTP qui servira à la fonction EmailOuvreSession (le principe serait identique pour une lecture d'emails avec IMAP),
• suivant le cas il sera nécessaire de conserver et renouveler le token afin de le réutiliser (cf. Conserver le token d'une connexion OAuth 2.0 pour le réutiliser).

En fonction des besoins, on peut donc être amené à remplacer l'appel des fonctions EmailOuvreSession et EmailEnvoieMessage, par l'appel de la fonction RESTEnvoie afin d'envoyer les emails non pas à un serveur SMTP, mais à une API en ligne. Le principe de token sera identique :

• une première requête à l'API en HTTPS va demander le token,
• une seconde requête va envoyer l'email grâce au token obtenu.

Voici un exemple de code avec l'API Microsoft Graph :

Variantes et astuces de mise au point :

• La propriété ProcédureTrace du type RestRequete permet d'avoir le contenu complet de l'échange avec le serveur. Elle est pratique en phase de mise au point afin de recherche une éventuelle erreur dans le contenu envoyé :
  

  Requête..ProcédureTrace = RESTEnvoie_Trace

  
  Avec :
  

  PROCEDURE INTERNE RESTEnvoie_Trace( nTypeInfo est un entier, bufData est un Buffer )
  
  SELON nTypeInfo
  CAS httpTraceEntêteEnvoyé :
  Trace("Entête envoyée" + UTF8VersChaîne( bufData ) )
  
  CAS httpTraceDonnéeEnvoyée :
  Trace("Données envoyée" + bufData )
  
  CAS httpTraceEntêteRecu :
  Trace("Entête reçue" + UTF8VersChaîne( bufData ) )
  
  CAS httpTraceDonnéeRecue :
  Trace("DOnnées reçues" + bufData )
  FIN
  
  FIN
  
  

• Important : les autorisations associées à un token renvoyé par un service, donne des possibilités dépendantes du "scope" indiqué envoyée à l'API. On peut donc avoir obtenu un token valide, mais avoir un échec pour envoyer le message car le scope du token n'autorise pas l'envoi. Si un token ne donne pas accès à une fonctionnalité, c'est donc :

  • que le "scope" donné pour l'authentification n'avait pas la fonctionnalité nécessaire dans l'application dans le portail Azure,

  • ou que l'application configurée dans le service d'authentification n'autorise pas la fonctionnalité demandée,

  • ou que l'application configurée dans le service d'authentification autorise la fonctionnalité demandée mais avec des caractéristiques inadaptées (ex dans le cas de Office365 un type "Déléguée" au lieu de "Application" dans Azure)...

• Pour simplifier l'exemple ne traite pas les réponses du serveur. Il faut ajouter des contrôles systématique sur Réponse..CodeEtat et Token = Réponse..Contenu. Si le token n'est pas obtenu il ne faut pas envoyer l'email et à la place indiquer la réponse du serveur.