UpsMls.ClientMessagerie.ListerRepertoires


Rappel ListerRepertoires(NomRepertoire : Caractere, CritereFiltre : Nul Ou Caractere, CritereTri : Nul Ou Caractere, Resultat : Nul Ou IResultatRequeteDe Nul Ou Caractere=Nul Sortie);

Description

La méthode de rappel ListerRepertoires est appelée dès lors que le client désire lister les sous-répertoires du répertoire de nom NomRepertoire de la boîte aux lettres en tenant compte des critères de filtrage CritereFiltre et de tri CritereTri.

Voici les répertoires standards :

Répertoire	Description
/DRAFT	Pour conserver les courriers brouillon.
/INBOX	Pour conserver les courriers nouvellement reçus.
/OUTBOX	Pour conserver les courriers à envoyer.
/TRASH	Corbeille où sont placés les courriers supprimés.

Les critères sont des expressions en Up ! 5GL permettant de générer une requête en Up ! 5GL. Cette dernière est déléguée à Up ! Query.

Le paramètre Resultat doit recevoir la liste des sous-répertoires demandés.

La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.

Cette méthode de rappel correspond à la réception de la commande LIST du protocole Internet Message Acces Protocol (IMAP).

Exemple


/****************************************************************/

Rappel ClientMessagerie.ListerRepertoires(NomRepertoire : Caractere,  CritereFiltre : Nul Ou Caractere, CritereTri : Nul Ou Caractere, Resultat : Nul Ou IResultatRequeteDe Nul Ou Caractere=Sortie)

/* Objet : Liste les répertoires. */

/****************************************************************/

Variable

/******/

   MonClient : MonClientMessagerie;

   ListeFichiersListes : Nul Ou ListeDe FichierListe;

   Repertoire : FichierListe;



Debut
MonClient=MonClientMessagerie(LireExtension("AppMls"));

Si ActiverJournal Alors

   EcrireJournal(MonClient, "ListerRepertoires("+NomRepertoire+")");

Fin Si
ListeFichiersListes=UpsSys.ListerFichiers(Translater(MonClient, NomRepertoire), CritereFiltre, CritereTri);

Pour Repertoire=ListeFichiersListes.ParcoursAuDebut() JusquA ListeFichiersListes.DernierElement() Faire

   Si Repertoire.EstUnRepertoire Et (Repertoire.NomFichier!=".") Et (Repertoire.NomFichier!="..") Alors
   
      ListeRepertoires+=Repertoire.NomFichier;
   
   Fin Si

Fin Pour

Resultat=IResultatRequete(ResultatRequeteListe(ListeRepertoires));

Retourner RappelSucces;

Fin Rappel

Voir aussi

ListerCourriersElectroniques pour lister les courriers.

Traduction


-	-	-	-	-	-	-	-	-