SessionImap est une Email SessionImap tabMessage est un tableau de Emails SessionIMAP.AdresseServeur = Compte.IMAPServeur SessionIMAP.Port = Compte.IMAPPort SessionIMAP.Nom = Compte.IMAPUtilisateur SessionIMAP.MotDePasse = gfDécrypte(Compte.IMAPPassword) SessionIMAP.Option = Compte.IMAPConnexion = OPTION_SSL ? optionSSL SINON EmailOptionDéfaut SI PAS EmailOuvreSession(SessionIMAP) ALORS RENVOYER Faux FIN // Récupération de tous les messages tabMessage = EmailRécupèreTout(SessionIMAP,ertComplet) // Parcours du tableau des messages avec une boucle POUR TOUT POUR TOUT UnMessage DE tabMessage Info(UnMessage..Message, UnMessage..Source) FIN EmailFermeSession(SessionIMAP)