- '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
-
-
'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