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

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

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.