DÉTECTION DU NOMBRE D'EMAIL RECUS (MAJ)

'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