Bonjour à tous,
je vais être bref, je dois envoyer des emails sur clic d'un bouton, mais le code se bloque (plante) au niveau de la fonction EmailOuvreSessionSMTP(). Aidez-moi car c'est urgent et je n'ai jamais utilisé ce code. MERCI

Comment veux-tu qu'on t'aide si tu ne nous donnes rien comme info ??
Au moins le code qui pose problème ?

La fonction est Ok, c'est tout ce qu'on peut te dire.

J'ai testé l'exemple livré avec windev 9 en me mettant comme expéditeur et destinataire avec mon compte ...@yahoo.fr mais rien le prog. se bloque au niveau de cette fonction même après redémarrage de ma machine...
Même problème avec la focntion EmailOuvreSession()

Bonsoir,
Avez vous essayé avec un autre compte?
Cela peut venir de votre FAI!
Essayez avec un compte type wanadoo (je sais que ca fonctionne par expérience)
Bon courage!

J'ai éssayé un autre compte yahoo.com et rien non plus en expediteur comme en destinataire. Je ne sais pas à quoi est du ce blocage et ça m'embête

Salut,

Peux tu nous ecrire ta ligne de code pour qu'on puisse t'aider parceque la c'est un peu vague.

a+++

// si l'ordinateur de l'utilisateur n'est pas connecté à Internet
SI InternetConnecté()=Faux ALORS
Info("Vous devez être connecté à Internet pour envoyer un message.")
RETOUR
FIN

Sablier()

// vérification rapide des adresses email
SI bVérifieEmail(SAIS_DEST)=Faux ALORS
Erreur("La liste des adresses est incorrecte")
RepriseSaisie(SAIS_DEST)
FIN

// ouverture de session
EmailOuvreSessionSMTP(COMPTE.Login,COMPTE.AdrSrvSmtp)
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
RETOUR
FIN

CHJauge=0;CHJauge..Visible=Vrai

EmailJauge(CHJauge)

// envoie du mail
SI bExpédier() ALORS
MAIL.destinataires = SAIS_DEST
MAIL.expediteur = COMPTE.AdrMail
MAIL.sujet = SAIS_SUJET
MAIL.Date = DateSys()
MAIL.Heure = HeureSys()
MAIL.ContenuTXT = SAIS_MESSAGE
MAIL.ContenuHTML = SAIS_MESSAGE
MAIL.FicAt = SAIS_FICAT
MAIL.Etat = "E"
MAIL.COCLEUNIK = COMPTE.COCLEUNIK
MAIL.Identifiant = "Env_"+MAIL.Heure
HAjoute(MAIL)

MAIL.Identifiant = "Env_"+MAIL.MACLEUNIK
HModifie(MAIL)

// fermeture de session
EmailFermeSession(COMPTE.Login)
MaFenêtre..ValeurRenvoyée=Vrai
CHJauge=100;CHJauge..Visible=Faux
Ferme()

SINON
CHJauge=100;CHJauge..Visible=Faux
Erreur("Votre email n'a pas pu être envoyé pour la raison suivante :",ErreurInfo(errRésumé))
Sablier(Faux)
FIN


PS: C'est le code de l'exemple WINDEV 9 (WD POP3)

Salut,

ok juste par curiosite as tu verifie ce que contenait la variable COMPTE.AdrSrvSmtp en debug ?

et quand tu dis que tu es bloque as tu un message d'erreur ou windev reste fige ?

a+++

il reste figé pdt plusieurs mn puis affiche un message d'erreur pour dire que le message n'a pas pu être envoyé

Salut,

Ok alors soit la variable en question ne contient pas le bon serveur SMTP ou alors le serveur SMTP en question a un probleme.

D'ou la necessite de bien verifier si COMPTE.AdrSrvSmtp contient bien le bon serveur SMTP.

Verifie donc deja ca et si tu es sur que c'est le bon alors c'est que ton provider a un probleme.

a+++

Merci mais quand je vérifie, le serveur SMTP de yahoo.com qu'il affiche est smtp.yahoo.com
J'ai donc changé de serveur et j'ai utilisé smtp.hotmail.com
Mais il affiche :
"Echec de connexion : l'adresse de destination n'a pas été trouvée."
et je ne sais pas où il le recherche puisque ce sont des @ qui existent...
Et quand j'écris dans le code :
Erreur(ErreurInfo(errMessage)) ,
alors il affiche :
Le socket a renvoyé l'erreur suivante : <Le serveur n'est pas disponible (WSANO_DATA)>

As-tu vérifié en traçant le programme que l'erreur vient bien de cette ligne ?

oui c'est déjà fait

hmm je crois que les plateformes de mails gratuite comme yahoo et hotmail demandent qu'une option soit activée pour envoyer des mails (en contrepartie vous recevez de la pub) sans passer par leurs interfaces web (en clair, en passant par un client de messagerie).
Essaye avec un compte mail wanadoo ou free ou tout autre FAI, je pense que cela devrait marcher, si cela marche, cela ne vient pas de ton code =)

Cordialement.

OK c'est bon, j'ai éssayé avec une autre adresse de serveur SMTP et ça marche. MAis le problème qui se présente donc maintenant est le problème des serveurs SMTP yahoo.fr et autres car je dois pouvoir donner le nom du Serveur SMTP selon l'Email donné.

Dans ton code d'ouverture de session SMTP dans les paramètres de la fonction je ne vois pas le mot de passe utilisateur. Hors a mon avis tu en as besoin pour que yahoo puisse t'identifier.

<Résultat> = EmailOuvreSessionSMTP(<Nom utilisateur> [, <Mot de passe>] , <Adresse serveur SMTP>)

D'autre part j'ai vu sur le net dans un tuto sur la config d'un logiciel de messagerie qu'il mette ceci comme adresse SMTP pour yahoo : smtp.mail.yahoo.fr ... je ne sais pas si c'est la bonne mais c'est peut-être à tester.


Pour info tu trouvera ici une liste des différent paramètre pop et smtp pour les FAI les plus connus.

Bon apres un peu de recherche sur le site de yahoo je te confirme que le smtp est smtp.mail.yahoo.fr et qu'il faut etre identifier donc il faut mettre le nom du compte et le mot de passe.