PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WEBDEV 2024 → session mail - sos - urgent
session mail - sos - urgent
Started by nico, Oct., 28 2004 2:25 PM - 4 replies
Posted on October, 28 2004 - 2:25 PM
Bonjour,

Je souhaite envoyer un mail à un internaute en cas d'oubli de son mot de passe.

J'essaye désesperement d'ouvrir une session mail mais j'ai en retour un message d'erreur du type : "session POP3 : la connexion a échoué. Le serveur ne répond pas".
Toutes les information (user,password,pop,smtp) sont valides puisque j'utilise ce compte dans Outlook !


Du coup j'ai simplifié le code juste pour tester l'ouverture de session :

SI EmailOuvreSession(user,Password ,ServPop ,ServSmtp ) = Vrai ALORS
Info("la session est ouverte !")
SINON
Erreur("Impossible d'établir la connexion"+ RC+...)
EmailMsgErreur(Email.Erreur))
FIN

EmailFermeSession(user)


Merci d'avance pour votre aide,

Nico
Posted on October, 28 2004 - 6:22 PM
Si tu dois envoyer un mail pourquoi ne pas utiliser simplement EmailOuvreSessionSMTP car tu n'as pas besoin de ton compte POP pour cela.

David
www.algoris.com
Posted on October, 28 2004 - 8:16 PM
Même une simple commande EmailOuvreSessionSMTP ne fonctionne pas ! En plus ça rame à fond ! j'ai toujours la meme erreur "Session SMTP, la connexion a échouée, le serveur ne répond pas".

voici mon code, merci de me signaler d'éventuelles erreurs :


servSmtp, user est une chaîne

servSmtp="smtp.wanadoo.fr"
user = "nico11" //mon login wanadoo


SI EmailOuvreSessionSMTP(user, servSmtp) = Vrai ALORS


Email.expediteur="<nico@yahoo.com>"
Email.nbdestinataire=1
Email.destinataire[1]="<"+Saisie4+">"
Email.sujet="test"
Email.message="test"
Email.nbattache=0

// envoi du mail
SI PAS EmailEnvoieMessage(user)
Erreur(EmailMsgErreur(Email.erreur))
res est une chaîne = EmailMsgErreur(Email.erreur)
SINON
Info("message envoyé !")
FIN


SINON
Erreur("Impossible d'établir la connexion"+ RC+...)
EmailMsgErreur(Email.Erreur))
FIN


EmailFermeSession(user)
Posted on October, 29 2004 - 1:22 AM
nico avait écrit le 28/10/2004 :
Même une simple commande EmailOuvreSessionSMTP ne fonctionne pas ! En plus ça
rame à fond ! j'ai toujours la meme erreur "Session SMTP, la connexion a
échouée, le serveur ne répond pas".

voici mon code, merci de me signaler d'éventuelles erreurs :


servSmtp, user est une chaîne

servSmtp="smtp.wanadoo.fr"
user = "nico11" //mon login wanadoo


SI EmailOuvreSessionSMTP(user, servSmtp) = Vrai ALORS


Email.expediteur="<nico@yahoo.com>"
Email.nbdestinataire=1
Email.destinataire[1]="<"+Saisie4+">"
Email.sujet="test"
Email.message="test"
Email.nbattache=0

// envoi du mail
SI PAS EmailEnvoieMessage(user)
Erreur(EmailMsgErreur(Email.erreur))
res est une chaîne = EmailMsgErreur(Email.erreur)
SINON
Info("message envoyé !")
FIN

Je viens d'en faire l'experience
ça ça marche
//Ouverture d'une session SMTP
SI PAS
EmailOuvreSession(Serveur_mail.user_mail,Serveur_mail.psw,Serveur_mail.pop
,Serveur_mail.smtp) ALORS
Erreur(ErreurInfo())
FIN

l'autre syntaxe ne fonctionne pas dans certains cas
Je fais profiter d'un conseil qui m'a été donné...



SINON
Erreur("Impossible d'établir la connexion"+ RC+...)
EmailMsgErreur(Email.Erreur))
FIN


EmailFermeSession(user)


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Posted on October, 29 2004 - 5:42 PM
J'ai trouvé la solution à mon problème : désactiver Norton antivirus !

merci a tous pour votre aide.