Discussion :

[DanielB]

Bonjour,
Je veux remplir une table avec des messages non lus. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
MaSession est une EmailSessionPOP3
MaSession.Nom="MonNom"
MaSession.AdresseServeur="pop.tralala.fr"
MaSession.MotDePasse="MonMP"
 
// Ouverture de la session
EmailOuvreSession(MaSession)
 
// Récupération de tous les emails non lus (tabEmailNonLus est un tableau de Emails dans les déclarations globales de MaFenetre)
tabEmailNonLus = EmailRécupèreTout(MaSession,ertNonLus)
 
// Affichage des emails dans une table
TableAffiche(MaTable,taInit)
 
// Fermeture de la session
EmailFermeSession("MonNom")

J'ai créé la table par DataBinding en faisant, depuis l'explorateur de projets, un Drag and Drop de la variable vers MaFenetre.
Le problème est que rien ne s'affiche dans la table.
Avez-vous une idée ?
Par avance merci

[Narwe]

D'après l'aide, la constante ertNonLus n'est pas disponible avec une connexion Pop3.

Sinon, s'il n'y avait pas eu cette remarque dans l'aide, j'aurais proposé de vérifier les points suivants :
- Est-ce qu'il y a bien au moins 1 email non lus dans la boite de réception (à force de tests, vous avez peut-être marqué tous les emails comme lu)
- Est-ce que la variable tabEmailNonLus est vide ou est-ce que c'est le remplissage de la table qui pose problème
- Avez-vous testé en essayant de récupérer tous les emails et non uniquement ceux non lu ?

[DanielB]

Merci pour la réponse.
Je pense que c'est le remplissage de la table qui pose problème.
Dès que je teste, l'anti virus se met en route, donc je pense que les messages arrivent. J'ai essayé en essayant de charger tous les message, le problème est le même.
Comment puis-je connaitre le contenu de mon tableau?
Par avance merci

[Narwe]

Plusieurs solutions.

Pour moi la plus rapide est d'utiliser le debuggeur :
- Mettre un point d'arrêt sur la ligne TableAffiche (Ctrl+B ou clique sur la partie gauche de la ligne, un point rouge apparait)
- En éxecution, le programme va s'arrêter sur ce point d'arrêt et il est possible d'afficher le contenu de la variable tabEmailNonLus dans le debuggeur (Dans le Kouglof (en bas de l'écran), dans la partie avec l'icone "Go", on saisie l'expression que l'on souhaite voir (dans notre cas "tabEmailNonLus") puis le contenu apparait dans Valeur (pour les tableaux, il faut faire un double clique dans cette colonne qui ouvre un écran permettant de voir le contenu), Il est aussi possible de glisser le nom de la variable dans la partie "Go" afin de ne pas avoir à saisir le nom de la variable).
Voir l'aide : http://doc.pcsoft.fr/fr-FR/?2019001&product=WD (je ne l'ai pas lu mais je suis sur qu'il contient tout ce que je viens d'écrire en beaucoup plus clair).

L'autre solution serait d'ajouter cette ligne de code après l'appel à EmailRécupèreTout pour connaître le nombre d'email présent dans le tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Info(tableauOccurrence(tabEmailNonLus)) // ou info(tabEmailNonLus..occurrence)

Pour avoir le détail du tableau (sans utiliser le debuggeur), on rajoute une boucle de ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Pour n_IndTab=1 _A_ TableauOccurrence(tabEmailNonLus)
   Trace(tabEmailNonLus[n_IndTab].Sujet // Ou autre membre de la structure email (http://doc.pcsoft.fr/?3032029)
FIN

[Narwe]

Pour en revenir au problème, le code suivant peut donc être la cause du problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
// Affichage des emails dans une table
TableAffiche(MaTable,taInit)

Je suppose que la table n'est pas rattaché à la variable tabEmailNonLus (je ne suis pas certains que cela soit possible)
Cette ligne de code doit donc exécuter le code qui se trouve au niveau de l'initialisation de la table MaTable.
Quel est ce code ? S'il n'y a pas de code, je pense que c'est logique que rien n'apparaisse (et dans ce cas, il faut en rajouter un, une boucle qui parcours tabEmailNonLus, et pour chaque ligne de ce tableau fait un TableAjouteLigne(MaTable, ...) ).

[DanielB]

Merci pour l'aide,
Le tableau contient bien les messages. Le problème est que le nombre de messages sur le serveur est très très volumineux... Le programme met bcp de temps pour les parcourir donc la table ne se remplit pas. J'ai essayé avec un compte possédant peu de messages et dans ce cas tout marche bien.
La liaison tableau / table est bonne.
Merci pour l'aide, c'est le contenu du tableau et la trace qui m'ont aidé SUPER, encore merci

[dsr57]

Bonjour

Pour accélérer le traitement tu peux essayer d'initialiser à faux la propriété AffichageActif de la table.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
MaTable..AffichageActif =faux
// Récupération de tous les emails non lus (tabEmailNonLus est un tableau de Emails dans les déclarations globales de MaFenetre)
tabEmailNonLus = EmailRécupèreTout(MaSession,ertNonLus)
 
// Affichage des emails dans une table
TableAffiche(MaTable,taInit)
MaTable..AffichageActif =vrai

BOn dev

[DanielB]

Merci pour l'info dsr57