Discussion :

[aurabarth]

Salut à tous !
Il m'arrive quelque chose de Bizarre... J'ai écris le code ci-après pour envoyer des mails et ça marchait nickel ! Mais depuis un certain temps ça ne marche plus. Mes mails ne sont plus transmis. Je ne sais pas comment expliquer cela ! Par ailleurs, j'ai changé de version (de 15 à 17 puis 18) et je ne sais pas si cela peu provoquer ce genre de chose. Dites-moi ce qui ne va pas dans ce code. Merci

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
sChemin est une chaîne
sCompte est une chaîne="ggggg@yahoo.fr"
sPwd est une chaîne="pwd"
 
SI EmailOuvreSessionSMTP(sCompte,sPwd,"smtp.mail.yahoo.fr",587)=Vrai ALORS
	Sablier()
	Email.AdresseExpéditeur=sCompte
	Email.Destinataire="xxxxx@yahoo.fr"
	Email.Expéditeur=sCompte
	Email.Message="Test"
	Email.Attache=SAI_Piece_jointe
	Email.NbAttache=1
 
	Email.NbDestinataire=1
	Email.Sujet="RAPPORT MENSUEL"
 
 
	SI EmailEnvoieMessage(sCompte)=Vrai ALORS
 
	SINON
		//Info(" Pas Envoie")
		Info("Pas envoyé")
 
	FIN
	EmailFermeSession(sCompte)
 
SINON
	Info("Session non ouverte")
FIN

[JG_33]

Bonjour,

Curieusement avec windev 18 j'avais eu des problèmes avec la fonction EmailOuvreSessionSMTP et l'utilisation du port 587
En la remplaçant par EmailOuvreSession(variable de type EmailSessionSMTP ) ça fonctionnait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.masociete.fr"
MaSession..Option = emailOptionSécuriséTLS
 
// Le port TLS dépend du fournisseur, à bien vérifier !
MaSession..Port = 587
 
MaSession..Nom = "utilisateur"
MaSession..MotDePasse = "secret"
 
si pas EmailOuvreSession(MaSession) alors
   Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo())
fin

Si ça ne fonctionne pas il faut voir si il y a eu des modifs récentes chez yahoo.

[aurabarth]

Salut Merci,
Après vérification mon problème ne se trouve pas au niveau de l'ouverture de la session, c'est au niveau de la fonction EmailEnvoiemessage que ça ne marche pas. on me demande de vérifier l'adresse de l'expéditeur ! Je ne sais pas ce qui ne va pas avec cette adresse.

[JG_33]

Je t'invite à relire la documentation sur EmailEnvoieMessage
Ce n'est pas l'adresse mail que la fonction attend en paramètre

[Lo²]

@JG_33 :
C'est bien la syntaxe utilisée avec EmailOuvreSessionSMTP(..)

[JG_33]

Bonjour,

En effet, mais si tu regardes la doc EmailEnvoieMessage, tu verras un exemple d'utilisation avec
une variable de type EmailSessionSMTP et une variable de type Email

Les deux variables sont passées en paramètres à EmailEnvoieMessage. C'est de cette façon que j'avais résolu mon problème avec Windev18.

[aurabarth]

Salut à tous,
merci pour vos réponses. J'ai bien regardé la documentation et j'ai essayé avec l'exemple mais ça ne marche pas. Alors s'il te plaît JG_33 donne moi ton code qui marche et je vais essayer.

[dsr57]

Bonjour

Peux tu poster ton code modifie. cela nous permettra de comprendre ce qu'il ne va pas.

Bon dev

[aurabarth]

Voici le code qui vient de la documentation windev. La session s'ouvre sans problème mais le message n'est pas envoyé.

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
// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.mail.yahoo.fr"
SI EmailOuvreSession(MaSession)=Vrai ALORS
	Info("ouverture")
FIN
 
// Construction d'un email
MonMessage est un Email
MonMessage..Expediteur = "ssssss@yahoo.fr"
MonMessage..Destinataire[1] = "hhhhhh@gmail.com"
MonMessage..Message = "TEST"
 
// Envoi du message
SI EmailEnvoieMessage(MaSession, MonMessage)=Vrai ALORS
	Info("ok")
SINON
	Info("Non")
 
FIN

[JG_33]

Bonjour,

//Pour ajouter un destinataire, j'utilise la fonction Ajoute mais mais c’est peut être sans importance

Code :

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

1
2
3
4
 
MonMessage..Destinataire[1] = "hhhhhh@gmail.com"
//ou  
Ajoute(MonMessage..Destinataire,  "hhhhhh@gmail.com")

Sinon je renseigne les valeurs ci-dessous de la structure EmailSessionSMTP

Code :

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

1
2
3
4
5
MaSession .AdresseServeur	= <Fournisseur de la connexion internet en cours>
MaSession .MotDePasse	     = <pwd, obligatoire pour une session authentifiée>
MaSession .Nom		     = <compte, obligatoire pour une session authentifiée >	
MaSession .Option	     =  emailOptionSécuriséTLS	
MaSession .Port		     =  587

[aurabarth]

Ouuufff !!!
Enfin, c'est reparti ! J'ai appliqué le dernier post de JG_33 au code de la documentation Windev et ça marche. Mes messages passent à nouveau. Mais je tiens à préciser que la propriété ..AdresseServeur de la structure Session reçoit l'adresse du serveur de votre compte (Ex: smtp.mail.yahoo.fr) et non celui de votre fournisseur Internet.
Merci à tous et bon dev !