PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WEBDEV 2024 → Mail
Mail
Iniciado por JS, 13,oct. 2004 11:28 - No hay respuesta
Publicado el 13,octubre 2004 - 11:28
Voila je reformule ma question j'aimerais que sur mon site on puisse se connecter sur son compte pop3 distant voici le code que j'utilise pouvez vous me dire ce qui ne va pas?


// Ouverture de la session
usermail est une chaîne
userpsw est une chaîne
usermail = "jsomville@bluewin.ch"
userpsw = "******"
EmailOuvreSession("jsomville@bluewin.ch" , "*******" , "pop.bluewin.ch" , "mail.bluewin.ch")
SI ErreurDétectée ALORS
Erreur("Impossible d'établir la connexion", ErreurInfo(errRésumé))
RETOUR
FIN
I est un entier
// Récupération du nombre de messages dans la boîte aux lettres POP3
//nbMSG est un entier = EmailNbMessage(usermail)
// Parcourt les messages et récupère la structure e-mail dans un fichier Hyper File
EmailLitPremier(usermail)
// Teste l'existence du message
TANTQUE PAS Email.EnDehors
// Les variables de la structure e-mail sont transférées
// dans les rubriques du fichier
ZoneRépétéeAjouteLigne(ZoneRépétée1,Email.HTML,Email.Message)
Saisie1 = Saisie1 + TAB + Email.Expéditeur
EmailLitSuivant(usermail)
FIN
EmailFermeSession(usermail)


Merci d'avance !!

Bon Dev!

JS