Discussion :

[Robert le débutant]

Je dois envoyer une série de mail (facture clients) par cette méthode. Le problème est qu'il envoie parfaitement le premier , mais n'envoie pas les suivants. Comme si il manquait si c'était la méthode SMTP: EmailFermeSession(gSessionSMTP)
Merci pour votre 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
Requête est une restRequête
Réponse est une httpRéponse
Token est un JSON
MonMessage est un Email
monAttache est un emailAttache
 
 
sClientId est une chaîne = "xxxxxxxx-xxxxx-4f7d-xxxxxxxx-xxxxxxxxx" // ID Client Azure  // par soucis de protection j'ai remplacé les vraies valeurs par des "x"
sTenantId est une chaîne = "xxxxxxxx-xxxx-xxxxxxx-xxxxxx-xxxxxxxx"    // Id Locataire Azure    // par soucis de protection j'ai remplacé les vraies valeurs par des "x"
sClientSecret est une chaîne = "xxxxxx~xxxxx_xxxxxxxxxxxxxxxxxxxxxxxx" // Secret Azure ///  // par soucis de protection j'ai remplacé les vraies valeurs par des "x"
sURI est une chaîne = "https://login.microsoftonline.com/%1/oauth2/v2.0/token"
 
 
 
// Requête pour obtenir un token...
Requête..URL = ChaîneConstruit(sURI, sTenantId)
Requête..Méthode = httpPost
Requête..ContentType = "application/x-www-form-urlencoded"
HTTPCréeFormulaire("FORM_TOKEN")
HTTPAjouteParamètre("FORM_TOKEN","grant_type","client_credentials")
HTTPAjouteParamètre("FORM_TOKEN","client_id",sClientId)
HTTPAjouteParamètre("FORM_TOKEN","client_secret", sClientSecret)
HTTPAjouteParamètre("FORM_TOKEN","scope","https://graph.microsoft.com/.default")
Réponse = HTTPEnvoieFormulaire("FORM_TOKEN",Requête)
Token = Réponse..Contenu  // le  token
 
// Requête pour envoyer l'email grâce au token d'autorisation obtenu...
 
VariableRAZ(Requête)
sExpéditeur est une chaîne = "Expediteur@groupjenn.fr" //Expéditeur
sURI = "https://graph.microsoft.com/v1.0/users/%1/sendMail"
sURI = ChaîneConstruit(sURI, sExpéditeur )
// Ou suivant le cas : "https://graph.microsoft.com/v1.0/me/sendMail"
 
 
// Construction de l'email avec le type Email standard du WLangage...
 
 sFichier est une chaîne = "c:\temp\exemple-image.jpg"
MonMessage.Message = "Mon email texte"
MonMessage.Expediteur = sExpéditeur
MonMessage.Sujet = "Test : API Graph Microsoft"
MonMessage.Destinataire.Ajoute("momo@gmail.com") // Destinataire
 
monAttache.Nom					= fExtraitChemin(sfichier, fFichier + fExtension)
monAttache.Contenu				= fChargeBuffer(sfichier)
monAttache.ContentType			= "application/pdf"
monAttache.ContentDescription	= monAttache.Nom
*
 
 
// Construction d'un buffer contenant la totalité de l'email (comme un .EML)
 
MessageEnBuffer est un Buffer
MonMessage.ConstruitSource(emailOptionEncodeEntête)
MessageEnBuffer = MonMessage.Source
MessageEnBuffer = MessageEnBuffer.Encode(encodeBASE64)
 
// Requête pour envoyer le message
 
Requête..URL = sURI
Requête..Méthode = httpPost
Requête..ContentType = "text/plain"
 
Requête.Entête["Authorization"] = Token.token_type+" "+Token.access_token
 
Requête.Contenu = MessageEnBuffer
Réponse = RESTEnvoie(Requête)
// SI Réponse.CodeEtat = 202 ALORS OK...

[popoy]

Salut,
Que fait tu pour attendre la réponse du serveur ?
Ne faut t'il pas une attente entre chaque mail?
Es tu obligé de te reconnecter entre chaque mail ?

[Robert le débutant]

Salut,
Que fait tu pour attendre la réponse du serveur ?
Ne faut t'il pas une attente entre chaque mail?
Es tu obligé de te reconnecter entre chaque mail ?

Que fait tu pour attendre la réponse du serveur ? : Que faut il faire ?
Ne faut t'il pas une attente entre chaque mail? : j'ai rajouté un multitache(200)
Es tu obligé de te reconnecter entre chaque mail ? j'ai évité la reconnexion

Ça ne marche toujours pas

l'exemple qui m'a inspiré est :

https://blogs.pcsoft.fr/fr/exemple-u...11046/read.awp


Merci pour ton aide, mais là... le débutant mouline !

[Robert le débutant]

Que fait tu pour attendre la réponse du serveur ? : Que faut il faire ?
Ne faut t'il pas une attente entre chaque mail? : j'ai rajouté un multitache(200)
Es tu obligé de te reconnecter entre chaque mail ? j'ai évité la reconnexion

Ça ne marche toujours pas

l'exemple qui m'a inspiré est :

https://blogs.pcsoft.fr/fr/exemple-u...11046/read.awp


Merci pour ton aide, mais là... le débutant mouline !

j'ai trouvé, en fait faut demander le Token qu'une seule fois

[Robert le débutant]

Salut,
Que fait tu pour attendre la réponse du serveur ?
Ne faut t'il pas une attente entre chaque mail?
Es tu obligé de te reconnecter entre chaque mail ?

Juste te remercier, car c'est tes remarques qui ont tout résolu

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Requête	est une restRequête
Réponse	est une httpRéponse
 
MonMessage				est un Email
monAttache				est un emailAttache
corps,sujet,sfichier	sont des chaînes
sExpéditeur est une chaîne
 
// Requête pour obtenir un token...
Requête..URL			= ChaîneConstruit(sURI, sTenantId)
Requête..Méthode		= httpPost
Requête..ContentType	= "application/x-www-form-urlencoded"
 
IF Token=Null THEN
HTTPCréeFormulaire("FORM_TOKEN")
HTTPAjouteParamètre("FORM_TOKEN","grant_type","client_credentials")
HTTPAjouteParamètre("FORM_TOKEN","client_id",sClientId)
HTTPAjouteParamètre("FORM_TOKEN","client_secret", sClientSecret)
HTTPAjouteParamètre("FORM_TOKEN","scope","https://graph.microsoft.com/.default")
Réponse	= HTTPEnvoieFormulaire("FORM_TOKEN",Requête)
 
	SI ErreurDétectée ALORS
		Erreur(ErreurInfo(errComplet))
	FIN
 
 
 
Token	= Réponse..Contenu  
 
 
// Requête pour envoyer l'email grâce au token d'autorisation obtenu...
VariableRAZ(Requête)
sExpéditeur= nompromotion //Expediteur
sURI	= "https://graph.microsoft.com/v1.0/users/%1/sendMail"
sURI	= ChaîneConstruit(sURI, sExpéditeur )
 
 
 
 
END