Discussion :

[aurabarth]

J'ai une application que je développe avec windev 14 et je n'arrive pas à envoyer de mail.
Voici mon code :

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
NomUser est une chaîne
 
NomUser = "xxx@yahoo.fr"
// Envoi d'un email par le protocole SMTP sécurisé
EmailChangeTimeOut(10) // 10 secondes pour le time out
// Utilisation d'un serveur SMTP sécurisé avec authentification
// Nécessaire en général pour utiliser un SMTP
// différent de celui du fournisseur d'accès Internet
SI EmailOuvreSessionSMTP(NomUser, "Mdp","smtp.mail.yahoo.fr", 587, Faux) = Vrai ALORS
	// Procédure permettant d'initialiser la structure email
 
	// Préparation du message
	Email.Expéditeur ="xxx@yahoo.fr"   
	Email.Destinataire[1] = "yyy@yahoo.fr"
	Email.NbDestinataire = 1    
	Email.Sujet = "TEST" 
	Email.Message = "Message envoyé Windev 14"            
 
	// Envoie l'email
	SI EmailEnvoieMessage(NomUser) = Faux ALORS
		Erreur()
	SINON
		Info("Envoyé")
	FIN
 
	EmailFermeSession(NomUser)
SINON
	Erreur("Impossible d'établir la connexion", ErreurInfo(), ...
	"En cas de Time Out, assurez-vous des paramètres du "+ ...
	"""Pare-Feu"" sur le port utilisé (587)")
FIN

J'obtiens un message d'erreur :




Merci de m'aider à corriger cette erreur.

[jurassic pork]

hello,
tu as oublié de mettre l'option d'ouverture de session en mode sécurisé (voir le deuxième exemple de la doc PCSOFT) :

emailOptionSécuriséTLS	Ouverture de session SMTP sécurisée par le protocole TLS.
OptionSSL	Ouverture de session SMTP sécurisée par le protocole SSL. Ce type de session est utilisée par exemple par les serveurs Orange, Free, gMail.

Ami calmant, J.P

[aurabarth]

J'ai bien essayé cette option mais windev 14 semble ne pas accepter cette syntaxe.
Je ne sais pas comment intégrer cela dans le code.

[aurabarth]

J'ai essayé cette syntaxe :

Code :

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

SI EmailOuvreSessionSMTP(NomUser, "laeticia23","smtp.mail.yahoo.fr", 587,Faux,optionSSL) = Vrai ALORS

J'obtiens une erreur dans le code.

[JeAn-PhI]

J'ai essayé cette syntaxe :

Code :

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

SI EmailOuvreSessionSMTP(NomUser, "laeticia23","smtp.mail.yahoo.fr", 587,Faux,optionSSL) = Vrai ALORS

J'obtiens une erreur dans le code.

bonjour,

emailOptionSécuriséTLS fait son apparition en WD15
OptionSSL fait son apparition en WD20

donc vous ne pouvez les utiliser en WD14

soit vous mettez à jour votre WinDev, soit vous passez par une solution tierce (programme externe, api, etc.)