IDSession est un entier
ListeDossier est une chaîne
NomDossier est une chaîne
IndiceDossier est un entier = 1
Partie1Dossier est une chaîne
Partie2Dossier est une chaîne
NbEmail est un entier
IDSession = OutlookOuvreSession("")
SI IDSession = 0 ALORS
Erreur("Erreur lors de l'ouverture de la session", ErreurInfo())
SINON
ListeDossier = EmailListeDossier(IDSession, LstDossierTous)
NomDossier = ExtraitChaîne(ListeDossier, IndiceDossier, RC)
TANTQUE NomDossier <> EOT
EmailChangeDossier(IDSession, NomDossier)
NbEmail = EmailNbMessage(IDSession)
Partie2Dossier = ExtraitChaîne(NomDossier, 1, "\", DepuisFin)
Partie1Dossier = ExtraitChaîne(NomDossier, 1, ...
"\" + Partie2Dossier)
SI IndiceDossier = 1 ALORS
TableAjouteFils(TABLEH_TableDossier, Null, ...
Partie2Dossier, NbEmail, NomDossier)
SINON
Partie1Dossier = Remplace(Partie1Dossier, "\", TAB)
TableAjouteFils(TABLEH_TableDossier, Partie1Dossier, ...
Partie2Dossier, NbEmail, NomDossier)
FIN
IndiceDossier ++
NomDossier = ExtraitChaîne(ListeDossier, IndiceDossier, RC)
FIN
FIN