OVH Cloud OVH Cloud

interroger serveur pop pour vérifier présence mails

5 réponses
Avatar
seb-seb
bonjour
je voudrais dansun logiciel afficher un message disant combien il y a de nouveaux mails
avec vérification toutes les 5 min
comment peut on faire en vb pour interroger le serveur pop3 ?
merci

5 réponses

Avatar
Jean-Marc
"seb-seb" a écrit dans le message de
news:%23A$
bonjour
je voudrais dansun logiciel afficher un message disant combien il y a de


nouveaux mails
avec vérification toutes les 5 min
comment peut on faire en vb pour interroger le serveur pop3 ?



Hello,

tout simple, avec le composant Winsock (Projets/Composants : Microsoft
Winsock Control 6.0)

donc tu mets le composant sur ta feuille, puis tu impémentes, en utilisant
si besoin la RFC POP3 dont voici la référence:
http://www.faqs.org/rfcs/rfc1939.html

avec le composant winsock:
RemotHost = [le serveur POP] (ex: pop.tiscali.be)
RemotePort = 110 (le port par défaut pour POP3)

puis tu connectes, puis tu envoies les bonnes commandes, c'est à dire:

USER [nom_user]
PASS [password]

juste après ça, le serveur va t'envoyer ceci :
+OK n messages

il ne te reste plus qu'à lire le chiffre qui suit "+OK"

un petit timer pour faire ça toutes les 5 minutes, et le tour est joué.

--
Jean-marc
Avatar
seb-seb
"Jean-Marc" a écrit dans le message de news: 413e0e3e$0$4137$

"seb-seb" a écrit dans le message de
news:%23A$
bonjour
je voudrais dansun logiciel afficher un message disant combien il y a de


nouveaux mails
avec vérification toutes les 5 min
comment peut on faire en vb pour interroger le serveur pop3 ?



Hello,

tout simple, avec le composant Winsock (Projets/Composants : Microsoft
Winsock Control 6.0)

donc tu mets le composant sur ta feuille, puis tu impémentes, en utilisant
si besoin la RFC POP3 dont voici la référence:
http://www.faqs.org/rfcs/rfc1939.html

avec le composant winsock:
RemotHost = [le serveur POP] (ex: pop.tiscali.be)
RemotePort = 110 (le port par défaut pour POP3)

puis tu connectes, puis tu envoies les bonnes commandes, c'est à dire:

USER [nom_user]
PASS [password]

juste après ça, le serveur va t'envoyer ceci :
+OK n messages

il ne te reste plus qu'à lire le chiffre qui suit "+OK"

un petit timer pour faire ça toutes les 5 minutes, et le tour est joué.



merci mais ca marche pas totalement encore
j'ai fait un prog de test avec des textbox partout
je me connecte il me reponds
+OK
je fais winsock.Senddata "USER mon_nom"
y me reponds rien
et pareil apres le "PASS pass"
???
pourtant selon la RFC apres "USER user" il doit repondre si le user existe
Avatar
Adam Pietrasiewicz
W ¶rodê 08-wrze¶nia-2004 o godzinie 08:25:46 seb-seb napisa³/a

merci mais ca marche pas totalement encore
j'ai fait un prog de test avec des textbox partout
je me connecte il me reponds
+OK
je fais winsock.Senddata "USER mon_nom"
y me reponds rien
et pareil apres le "PASS pass"
???
pourtant selon la RFC apres "USER user" il doit repondre si le user existe



Si, ca marche forcement.

Apres la connexion, quand tu as recu +OK tu
envois USER Ton_Nom et tu DOIS recevoir +OK. Ouvres une session telnet
et regardes - tu verras bien que cela marche. Pareil apres le PASS
XXXXX, tu recois +OK.

Par contre pour voir le nombre de messages tu dois envoyer STAT - tu
recevras +OK XX YYY ou XX est le nombre de messages et YYY le nombre
d'octets.



--
Pozdrawiam
Adam Pietrasiewicz
Avatar
Adam Pietrasiewicz
W ¶rodê 08-wrze¶nia-2004 o godzinie 08:49:03 seb-seb napisa³/a

telnet ok mais par vb non ...
le connect y me repond bien
mais senddata "user moi" => pas de dataarrival ...



Donne moi le nom du serveur POP3 et le nom de ton user - je voudrais
voir ca... Laissons tomber le password...



--
Pozdrawiam
Adam Pietrasiewicz
Avatar
Adam Pietrasiewicz
W ¶rodê 08-wrze¶nia-2004 o godzinie 08:49:03 seb-seb napisa³/a

telnet ok mais par vb non ...
le connect y me repond bien
mais senddata "user moi" => pas de dataarrival ...




Ah, oui!

Je parie, que tu envois USER TOI mais tu oublies d'envoyer le VbCrLf a
la fin de cette ligne... Ai-je raison?

--
Pozdrawiam
Adam Pietrasiewicz