Bonjour,

J'ai récemment essayer d'utiliser L’API Graph de Microsoft. Pour le moment je n'arrive pas à récupérer le AuthToken que devrais renvoyer AuthIdentifie.

Je me suis servie de l'exemple de la documentation : https://doc.pcsoft.fr/?1000022219&la...ion=xxF250090f

Voici mon code, lorsque je l’exécute cela me redirige bien vers le pop-up de connexion puis je suis bien redirigé vers localhost:9000 avec le message sur la page "Vous pouvez maintenant fermer votre navigateur." mais toujours rien dans mon AuthToken.

Trace affiche seulement Valide a Faux
Rps serveur = | Valeur = | Valide = 0

Merci d'avance pour l'aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
// Paramètre de l'application
OAuth2Params est un OAuth2Paramètres
//ID de l'application
OAuth2Params..ClientID = sClientId
//SecretID
OAuth2Params..ClientSecret = sClientSecret
 
OAuth2Params..AuthURL = "https://login.microsoftonline.com/"+sTenantId+"/oauth2/v2.0/authorize"
OAuth2Params..TokenURL = "https://login.microsoftonline.com/"+sTenantId+"/oauth2/v2.0/token"
OAuth2Params..Scope = "Sites.ReadWrite.All"
//OAuth2Params..Scope = "Calendars.Read.Shared"
//OAuth2Params..Scope = "Mails.Read.All"
OAuth2Params.URLRedirection = "http://localhost:9000/"
 
// Demande d'authentification : ouvre la fenêtre de login
MonToken est un AuthToken = AuthIdentifie(OAuth2Params)
Trace("Rps serveur = " + MonToken.RéponseServeur + " | Valeur = " + MonToken.Valeur + " | Valide = " + MonToken.Valide)
 
IF MonToken <> Null THEN
   IF ErrorOccurred THEN
      Error("Une erreur s'est produite lors de la tentative de connexion a SharePoint " + CR + ErrorInfo())
      RESULT False
   END
   RESULT True
END