Discussion :

[FB4200]

C'est le code que j'ai mis dans mon bouton. Vu ta remarque, il ne fallait pas faire ça...

Je n'ai jamais fait ce genre de fenêtre avec connexion alors je suis conscient que je m'y prends mal... c'est pour cela que je demande qu'on m'éclaire. Soyez indulgents...

[Voroltinquo]

As tu bien assimilé la notion de fonctions et de procédures ?
Cela n'est ni un problème Windev ni un problème de connexion. C'est de la programmation de base.

Une fonction est une suite d'instruction qui renvoie une valeur e.g. :

Code :

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

1
2
3
4
5
6
FONCTION Max(nParam1 est entier,nParam2 est entier) :entier
     SI nParam1>nParam2 ALORS
          Renvoyer nParam1
     SINON
          Renvoyer nParam2
     FIN

Code :

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

1
2
3
4
5
6
FONCTION Min(nParam1 est entier,nParam2 est entier) :entier
     SI nParam1<nParam2 ALORS
          Renvoyer nParam1
     SINON
          Renvoyer nParam2
     FIN

A l'inverse, une procédure ne renvoie rien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PROCEDURE MinMax(nParam1 est entier,nParam2 est entier)
nMin est entier
nMax est entier
 
nMin=Min(nParam1,nParam2)
nMax=Max(nParam1,nParam2)
 
SI nMin<>nMax ALORS
     InfoConstruit("Le minimum de %1 et %2 est %3%4Le maximum de %1 et %2 est %5",nParam1,nParam2,nMin,CRLF,nMax)
SINON
     InfoConstruit("%1 et %2 sont égaux",nParam1,nParam2)

L'emploi d'une procédure est très rare car il est intéressant de savoir si tout s'est bien déroulé (en général renvoi de Vrai) ou pas (renvoi de Faux)

Malheureusement le WL est très permissif car :
-1 Il autorise d'appeler une fonction Procédure
-2 Il n'oblige pas à déclarer le type retourné.

Le bouton quant à lui n'est là que pour récupérer les paramètres à passer à la fonction/procédure qu'il appellera à l'issue de cette récupération

[FB4200]

Au départ j'avais fait mon propre code pour le bouton, mais il ne fonctionnait pas alors je me suis inspiré de ce qu'on m'a dit qui fonctionnait. Manifestement, je ne devais pas faire ça...

Voici le code initial de mon bouton (mais il ne marche pas)

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
// Ouvre session SMTP
Masession est un EmailSessionSMTP
Masession..AdresseServeur = SAI_Serveur_SMTP
Masession..Port = SAI_Port
Masession..Nom = SAI_Identifiant
Masession..MotDePasse = SAI_Mot_de_passe
EmailOuvreSession(Masession) 
 
// Construction du message
Monmessage est un Email
Monmessage..Expediteur = SAI_Expéditeur
Monmessage..Sujet = SAI_Objet
Monmessage..Message = HTMLVersTexte(SAI_Texte)
 
//Ajoute un destinataire
Ajoute(Monmessage..Destinataire, LISTE_Destinataire..ValeurAffichée) 
 
// Ajouter éventuellement une pièce jointe
SI SAI_Piecejointemail <> "" ALORS
       EmailChargeFichierAttaché(Monmessage,SAI_Piecejointemail)
FIN
 
// Envoi de l'email
SI EmailEnvoieMessage(Masession,Monmessage) = Faux ALORS
       Erreur("Message non envoyé", ErreurInfo ())
SINON
       ToastAffiche("Message envoyé", toastCourt,cvMilieu,chCentre,VertFoncé)
FIN
 
EmailFermeSession(Masession)

[Voroltinquo]

Pourquoi ne pas, dans un premier temps, reprendre le code de Yusep qui semble fonctionner (traduit ou pas) :
Code du bouton

Code :

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

1
2
 
EnvoyerEmail(SAI_Identifiant,SAI_MDP,SAI_Serveur,SAI_Dest,SAI_Expéditeur,SAI_Objet,SAI_Texte)

en remplaçant toutefois la partie

Code :

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

1
2
3
4
5
6
 
//Ouverture d'une session SMTP
gSessionSMTP est une EmailSessionSMTP
gSessionSMTP..AdresseServeur = "nomduserveur" 
gSessionSMTP..Nom = "identifiantutilisateur"
gSessionSMTP..MotDePasse = "motdepasse"

par

Code :

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

1
2
3
4
5
6
 
//Ouverture d'une session SMTP
gSessionSMTP est une EmailSessionSMTP
gSessionSMTP..AdresseServeur = serveurSMTP
gSessionSMTP..Nom = Identifiant
gSessionSMTP..MotDePasse = Mot_de passe

Puis, à tête reposée comparer ton code et le sien

[FB4200]

Puis, à tête reposée comparer ton code et le sien

Même après avoir tout repris, je ne comprends pas ce qui bloque. Ca a l'air d'être la connexion qui échoue mais je ne vois pas pourquoi...

[popoy]

Essai sur une connexion non sécurisé de ton fai
Je pense que c'est le SSL qui bloque car ta version de windev est trop ancienne

[FB4200]

Merci à tous pour vos conseils et remarques ! Ca m'a permis de trouver la solution.

[Voroltinquo]

Ca m'a permis de trouver la solution.

Peux-tu la partager ?

[Yusep]

Je pense que c'est le SSL qui bloque car ta version de windev est trop ancienne

Jejeje, alors ma version (15) est préhistorique !
Pourtant, ça marche bien.

[FB4200]

Peux-tu la partager ?

Oui bien sûr. En option de la session smtp j'ai juste mis optionSSL