EmailCherchePremier, affectation d'une variable de type Email

Bonjour les amis,
Dans Windev j'ouvre une session Outlook pour faire apparaître les "expéditeur", "objet"... dans un tableau. Ca marche au poil.

Code:

---

1 2 3 4 5

IDSession est un entier = EmailOuvreSessionOutlook("Outlook") EmailLitEntêtePremier(IDSession) TANTQUE Email.EnDehors = Faux TableAjouteFils(TABLEH_Mails,Catégorie,Email.DateRéception,Email.ID,DateVersChaîne(Email.DateRéception,"Jjj JJ Mmm à HHhmm"),Email.Expéditeur,Email.Sujet) FIN

---

Ceci n'utilise pas de variable Email à proprement parler (pour les connaisseurs, Email.Sujet... est écrit en bleu dans Windev).

Pour affecter une variable Email je fais comme suit :

Code:

---

1 2	MonMessage est un Email EmailLitPremier(IDSession,MonMessage)

---

Et ensuite je récupère les infos par "MonMessage.Sujet" etc...

Cela fonctionne aussi.


Par contre et c'est ce qui m'amène. Dans mon tableau j'ai stocké Email.ID dans une colonne (TABLEH_Mails.COL_IdMail) et je veux faire en sorte que lorsque je clique sur une ligne du tableau, le mail correspondant à Email.ID soit stocké dans une variable de type Email.

Cela fonctionne avec le code de "sélection d'une ligne du tableau" :

Code:

---

1 2 3 4 5

MonMessage est un Email EmailLitPremier(IDSession,MonMessage) TANTQUE MonMessage.ID<>TABLEH_Mails.COL_IdMail EmailLitSuivant(IDSession,MonMessage) FIN

---

Seulement c'est très lent car il lit tous les mails bêtement... Je suis sûr qu'il faut utiliser la fonction "EmailCherchePremier" qui est plus rapide mais je n'y arrive pas.

(pour info j'ai testé : EmailCherchePremier(IDSession,MonMessage,emailMessageID,TABLEH_Mails.COL_IdMail) mais c'est débile car EmailCherchePremier renvoie un booléen... j'espérais qu'il me stocke le mail dans la variable MonMessage).

Si vous avez une idée...

Amicalement,

Eric.

Bonjour,

si tu regardes l'exemple lié à l'aide de cette fonction EmailCherchePremier, http://doc.pcsoft.fr/fr-FR/?3032131&...emier_fonction, tu remarqueras que lorsque tu vas faire le parcours ensuite, il va garder en mémoire ces critères et n'afficher que les messages correspondant ... Donc si tu cherches un mail avec un ID particulier, alors le parcours ne devrais en trouver qu'un !

Bon courage,

Nicolas

Bonjour et merci de ta réponse.
Cela dit j'ai lu l'aide windev sur ce sujet au moins 50 fois et rien n'y fait.
D'après toi je devrais taper :

Code:

---

1 2 3

MonMessage est un Email EmailCherchePremier(IDSession,MonMessage,emailMessageID+emailCorps+emailSujet,"a") Info(MonMessage..Sujet)

---

Cela dit MonMessage..Sujet est toujours vide (or j'ai 200 mails dans la liste donc bien sûr qu'il y a un "a" dans un des mails.)
En fait EmailCherchePremier me renvoie toujours faux :/

Qu'ai je fais de mal ?

Motif de l'erreur :




Appel WL :
Traitement de 'Sélection d'une ligne de TABLEH_Mails' (ImportMail.TABLEH_Mails), ligne 14, thread 0
Fonction 'EmailCherchePremier', syntaxe 6

Que s'est-il passé ?
MAPI a renvoyé l'erreur 80070057.

Code erreur : 520034
Niveau : erreur non fatale (EL_ONRETURN)

Code d'erreur système : -2147024809
Message d'erreur système :
Paramètre incorrect.

Dump de l'erreur du module 'WD190MESS.DLL' (19.0.5.0).
Informations de débogage :
Fonction (10,249)
Informations supplémentaires :
EIT_PILEWL :
Sélection d'une ligne de TABLEH_Mails (ImportMail.TABLEH_Mails), ligne 14
EIT_DATEHEURE : 21/08/2014 11:55:40




Quelqu'un s'est-il déjà servi de cette fonction ?

Amicalement,

Eric.

Hello,
Va voir de ce côté là...
http://support.microsoft.com/kb/982736/fr
Ca pourrait t'aider.

Je pense que tu n'as pas lu l'aide sinon tu aurais un code tel que celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

// Ouverture d'une session Outlook IDSession est un entier IDSession = EmailOuvreSessionOutlook("")   // Recherche des emails contenant la chaîne "PC Soft" // dans le sujet ou dans le corps du message // Seuls les emails reçus sont pris en compte SI EmailCherchePremier(IDSession, emailMessageID, TABLEH_Mails.COL_IdMail) = Vrai ALORS // Enumération des emails trouvés TANTQUE Email.EnDehors = Faux // Affiche l'expéditeur et le sujet dans un champ Table Info(Email.Expéditeur, Email.Sujet,Email.Corps) // Email trouvé suivant EmailLitSuivant(IDSession) FIN SINON Info("Aucun email n'a été trouvé") FIN

---

....

J'ai bien lu l'aide, et plutôt 50 fois qu'une.

Cette solution ne me va pas car je veux que le mail se charge dans une variable de type email.

Voici ce que je viens de découvrir :

Ce code fonctionne je n'ai pas d'erreur :

Code:

---

1 2 3 4 5 6

MonMessage est un Email SI EmailCherchePremier(IDSession,MonMessage,emailSujet,TABLEH_Mails.COL_Objet,emailTous)=Faux ALORS SAI_SansNom1=ErreurInfo(errComplet) SINON Info(MonMessage..Sujet) FIN

---

Ce code ne fonctionne pas :

Code:

---

1 2 3 4 5 6

MonMessage est un Email SI EmailCherchePremier(IDSession,MonMessage,emailMessageID,Id,emailTous)=Faux ALORS SAI_SansNom1=ErreurInfo(errComplet) SINON Info(MonMessage..Sujet) FIN

---

(Même résultat si je ne stocke pas dans une variable Email (ici MonMessage))

Si je fais une recherche sur emailMessageID j'ai l'erreur évoquée dans mon post précédent.

Ce qui est problématique car je peux avoir 2 mails avec le même objet...

Bref, je vais aller voir ce que dit l'erreur 80070057.

Bizarre.

Amicalement,

Eric.

Le fait de mettre MonMessage dans la fonction EmailCherchePremier veut dire que tu fais la recherche dans ce mail uniquement ..... confère l'aide :

Citation:

---

Recherche dans une variable de type Email -> <Email> : Variable de type Email

Message dans lequel la recherche sera faite.

---

si tu veux juste récupérer le message dans une variable, alors tu fais MonMessage = Email si un message est trouvé. De plus si tu cherches sur l'ID, normalement il n'y en aura qu'un.