Problème de syntaxe : Vba --> Windev

Version imprimable

Bonjour

Qui peut m'aider à trouver la bonne syntaxe ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
oFold est un objet OLE dynamique
oCont est un objet OLE dynamique
Oco est un objet OLE dynamique
toto est un objet OLE dynamique
objApp est un objet OLE dynamique
objNS est un objet OLE dynamique
 
i est entier
j est entier
 
j = 1
 
stFilt est chaîne
 
objApp = ObjetActif("OutLook.Application")
objNS = objApp>>GetNamespace("MAPI")
 
oFold = objNS>>Folders("windev windev")>>Folders("Contacts")
 
 
i = oFold>>Items>>count  
 
 
 
// --------------------------------------------------------------
// 
//                    Recherche et filtrage
// sur le champ :
// --------------------------------------------------------------
POUR EACH oCont IN oFold>>Items

J'ai un problème sur la derniere ligne : POUR EACH oCont IN oFold>>Items

oFold n'est pas reconnu ... Je ne sais pas qu'elle syntaxe utiliser pour obtenir le même résultat

Merci à ceux qui pourront m'aider

Seb

15/06/2015, 14h45
tatayo

Bonjour,
Si oFold>>Items est vu comme un tableau dans WinDev, tu peux utiliser POUR TOUT ELEMENT oCont DE oFold.

Tatayo.
15/06/2015, 17h33
sebinator

Merci,

en mettant

Code:

POUR TOUT ELEMENT oCont DE oFold>>items

il ne me fait pas d'erreur de syntaxe mais à l'exécution il fait une erreur en s'arretant sur

Code:

POUR TOUT ELEMENT oCont DE oFold>>items

:

Erreur à la ligne 42 du traitement Procédure globale MettreAJourContact.
L'élément à parcourir doit être un tableau.

Je comprends pas... pourtant OFold>>Items est un tableau normalement...

Seb

Bonjour :coucou:

Tu as essayé avec cette syntaxe
Code:

1 2 3 POUR li_i _A_ TableauOccurence(oFold>>items) oFold>>items[li_i] FIN
Bon dev :ccool:

hello,
dans la discussion qui est ici je t'avais dit pourquoi ton code ne marchait pas. Ce que tu essaies de faire avec ton nouveau code, c'est justement de balayer tous les éléments de folders. Voici la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// enregistrement de la fiche cote Outlook
 
objApp est un objet OLE dynamique //outlook.application
objNS est un objet OLE dynamique //namespace
myFolder1 est un objet OLE dynamique //MAPIFolder
Ocontact est un objet OLE dynamique //ContactItem
 
NomBAL est une chaîne
NomBAL = "xxxx@xxxx.com"
 
NomDossierdecontact est une chaîne
NomDossierdecontact = "TEST_WINDEV"
 
i est un entier=1
 
objApp=ObjetActif("OutLook.Application")
objNS=objApp>>GetNamespace("MAPI")
 
//Récuperer le dossier contact 
//myFolder1=objNS>>PickFolder
myFolder1=objNS>>folders(NomBAL)>>folders(NomDossierdecontact)
POUR i=1 _A_ myFolder1>>items>>count
Ocontact=myFolder1>>items(i)
// traitement avec le contact
FIN

Ami calmant, J.P