Messagerie Outlook Office365

**Lo²** · 23/09/2020, 11h59

Bonjour à tous,

Savez vous s'il est possible d'envoyer un mail Outlook 365 par le biais d'une application Windev en utilisant le SMTP ? ou faut-il nécessairement passer par les API Office365 ?

Actuellement mon application fonctionne bien avec les SMTP des différents FAI.
Par contre Gmail, j'utilise un formulaire donnant l'accès au logiciel avec le compte du client. Pour Outlook 365, ce serait pareil ?

Merci à tous

**Lo²** · 23/09/2020, 12h02

Je pense avoir trouvé ma réponse à la question ici :
https://www.developpez.net/forums/d1...-mail-outlook/

Mais si quelqu'un connaît une manipulation pour le SMTP classique, ça m'intéresse

**Jon Shannow** · 23/09/2020, 13h14

Bonjour,

Voilà une procédure en W24 que j'utilise pour envoyer des commandes par email (nous avons Office 365 dans la société) depuis une vieille appli Windev 5.5 (qui ne sait pas faire).

Code WINDEV :

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
71
PROCÉDURE P_EnvoieOutlook()
LOCAL
	cl_User	est une chaîne
	cl_Passe	est une chaîne
	cl_Smtp	est une chaîne
	nl_Port	est un entier
 
	i		est un entier
	cl_Lignes	est une chaîne
	cl_UneLig	est une chaîne
	l_inNl_Lignes   est un entier
 
cl_User = INILit( "GENERAL", "USER", "", cgp_Email)
SI cl_User = "" ALORS
	Erreur( "Fichier incorrect !", "", "L'utilisateur n'est pas renseigné !")
SINON
	cl_Passe = INILit( "GENERAL", "MOTDEPASSE", "", cgp_Email)
	cl_Smtp	 = INILit( "GENERAL", "SMTP", "smtp.office365.com", cgp_Email)
	nl_Port	 = Val( INILit( "GENERAL", "PORT", "587", cgp_Email))
 
	SI EmailOuvreSessionSMTP( cl_User, cl_Passe, cl_Smtp, nl_Port,Faux,emailOptionSécuriséTLS) ALORS
		EmailRAZ()
		Email.Expéditeur = cl_User
 
		Email.NbAttache=Val( INILit( "COURRIEL", "NBJOINTES", "0", cgp_Email))
		SI Email.NbAttache > 0 ALORS
			POUR i = 1 À Email.NbAttache
				Email.Attache[ i] = INILit( "PIECESJOINTES", "ATTACHE"+NumériqueVersChaîne( i, "1d"), "", cgp_Email)
			FIN
		FIN
		Email.NbDestinataire=Val( INILit( "COURRIEL", "NBDEST", "0", cgp_Email))
		SI Email.NbDestinataire = 0 ALORS 
			Erreur( "Fichier incorrect !", "Le mail doit avoir au moins un destinataire !")
		SINON
			POUR i = 1 À Email.NbDestinataire
				Email.Destinataire[ i] = INILit( "EMAILTO", "ADRESSE"+NumériqueVersChaîne( i, "1d"), "", cgp_Email)
			FIN
			Email.NbCc = Val( INILit( "COURRIEL", "NBCOPIE", "0", cgp_Email))
			POUR i = 1 À Email.NbCc
				Email.Cc[ i] = INILit( "COPIES", "ADRESSE"+NumériqueVersChaîne( i, "1d"), "", cgp_Email)
			FIN
			Email.NbCci = Val( INILit( "COURRIEL", "NBCACHES", "0", cgp_Email))
			POUR i = 1 À Email.NbCci
				Email.Cci[ i] = INILit( "CACHES", "ADRESSE"+NumériqueVersChaîne( i, "1d"), "", cgp_Email)
			FIN
			Email.Sujet = INILit( "COURRIEL", "SUJET", "", cgp_Email)
			Email.Message = ""
			cl_Lignes = INILit( "CORPS","","", cgp_Email)
			i = 1
			BOUCLE
				cl_UneLig = ExtraitChaîne( cl_Lignes, i, RC)
				SI cl_UneLig = "" OU cl_UneLig = EOT ALORS SORTIR
				SI Email.Message <> "" ALORS Email.Message += RC
				Email.Message += INILit( "CORPS", cl_UneLig, "", cgp_Email)
				i ++
			FIN
		FIN
 
		SI EmailEnvoieMessage( cl_User) ALORS
			Info( "Envoi OK")
		SINON
			Erreur( "Impossible d'evoyer l'email !", "Erreur n°"+Email.Erreur, "["+EmailMsgErreur(Email.Erreur)+"]")
		FIN
 
	SINON
		Erreur( "Erreur d'ouverture de session SMTP !", "Erreur n°"+Email.Erreur, "["+EmailMsgErreur(Email.Erreur)+"]")
	FIN
FIN
 
//fSupprime( cgp_Email)
Ferme()

**Lo²** · 23/09/2020, 13h35

Merci pour le code, il ressemble à celui que j'utilise

J'utilise les types emailSessionSMTP, Email, etc mais globalement on arrive aux mêmes résultats.

Je vais ajouter ton code à un bouton pour tester chez mon client et vous tiens au courant.

**Lo²** · 24/09/2020, 10h25

Le code fourni me donne malheureusement le même résultat, c'est-à-dire 535 5.7.3 Authentication unsuccessful (je n'avais pas récupéré cette information hier :~)

Je vais faire des recherches à ce sujet mais n'y aurait-il pas un paramétrage sur le compte Office 365 qui permet à d'autres applications à utiliser la messagerie, comme pour Gmail avec les applications tiers ?

**Jon Shannow** · 24/09/2020, 10h49

Au niveau de ton ouverture de session SMTP tu as bien mis les bonnes options ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EmailOuvreSessionSMTP( cl_User, cl_Passe, cl_Smtp, nl_Port,Faux,emailOptionSécuriséTLS)

En particulier la dernière ?
J'avais ton erreur si ce n'était pas cette valeur.

**Lo²** · 24/09/2020, 10h52

oui tout à fait.

J'ai ajouté 2 boutons de test :
- un avec ton code avec les paramètres de connexion en dur sauf mail et mot de passe
- un avec ton code avec les paramètres remplis avec la saisie de l'utilisateur

même résultat sur les 2

Edith : Pour info, le mot de passe renseigné est bon car j'ai effectué un test en allant sur le compte office via un navigateur web.

**Jon Shannow** · 24/09/2020, 11h12

Tu fais bien un emailraz ?

**Lo²** · 24/09/2020, 11h51

oui j'ai laissé tout le code mais c'est sur la connexion SMTP que ça bloque donc le emailraz() n'est pas exécuté.

**Jon Shannow** · 24/09/2020, 13h10

Ha ! Là, par contre je ne vois pas

**Lo²** · 24/09/2020, 13h14

Mince

En fouillant sur le net, on voit bien qu'il s'agit d'un cas de figure régulier mais je n'y trouve pas de solution.
C'est pas grave, je vais m'atteler aux API REST en suivant le webinaire correspondant et le code trouvé sur le forum.

Merci pour ton aide

**Lo²** · 25/09/2020, 13h45

Bon c'est good avec le code de frenchsting trouvé sur le forum (lien en début de discussion).

De plus, ça me permet de régler un problème que j'ai avec mon appli 32 bits pour lancer une appli mail en 64 bits