Détection du nombre d'email recus (maj)

Soyez le premier à donner votre avis sur cette source.

Vue 4 963 fois - Téléchargée 794 fois

Description

cet ocx(seul la source est dans le zip) permet de savoir si on a recus des email avec les serveur pop3(tel que free.fr(pop.free.fr))

nouvelle option pour ne pas connecté l'ordi si il ne l'est pas!

Source / Exemple :


'exemple (metre le control sur une form et l'appeler "mail"):
Private Sub Form_Load(Cancel As Integer)
        Mail.serveur = "pop.free.f"
        Mail.user = tonadresse email sans @machin.fr
        Mail.pass = ton mot de passe
        Mail.Connect

        Mail.force=true ou false'si true, alors on connect l'ordi si il ne l'est pas, si false et que l'ordi est déconnecté, on ne connecte pas.

        Mail.StartSpyMail (interval)'si interval=30, toutes les 30 seconde on vérifie si il y a des nouveau message, et si oui, l'evenement mailcome est appelé.

        'ou
        Mail.GetNbMail(Wait,Evenement)'si wait=true, la fonction renvoie sous la forme d'une structure "GetNbMail_Ret" le nombre d'email, sinon, elle n'atend pas la réponse du serveur pour rendre la main, et si il y a des message, lors de la réponce du serveur l'evenement mailcome est appelé(si evenement=true).
'dans tout les cas, le dernier nombre de message présent peut etre obtenu en appelent mail.nbmail .
'j'espère que s'est clair.
End Sub
Private Sub Mail_MailCome(Nombre As Double, Taille As Double)
msgbox("vous avez recus " & nombre & " message")
End Sub

Conclusion :


si vous rencontrer des problèmes, merci de me prévenir.
j'ai utiliser comme base la rfc 1939 sur les serveur pop3

PS : vous pouvez voire cette source en action grace à la source numero 9717

l'ocx du zip conptient cette source et la numero 9795

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

benbox69
Messages postés
5
Date d'inscription
samedi 8 octobre 2005
Statut
Membre
Dernière intervention
21 avril 2010
-
C'est exactement ca que je cherchais mais je n'arrive pas a m'en servir. Peux tu m'aider : benbox69@free.fr
merci
cs_jipef
Messages postés
56
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
1 août 2008
-
j'ai oublié tu utilise
Public Function ActiveConnection() As Boolean
la clé "Remote Connection" est inconnue sous XP
cs_jipef
Messages postés
56
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
1 août 2008
-
pas clair du tout
si on charge Mail.ctl on a des erreurs

1 essai avec
Mail.Connect
Mail.force = False
Mail.StartSpyMail (30)
2 eme essai avec
dim Wait as boolean
Wait = True
Mail.GetNbMail(wait,Evenement) ERREUR
quelle est la bonne syntaxe


je cherche en plus de récupérer ensuite si NBmail=8 par exemple 2 messages dont le sujet est "TOTO"
est ce que cela marchera

mets nous un exemple complet qui marche
merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.