Discussion :

[sebinator]

Bonjour

Qui peut m'aider à trouver la bonne syntaxe ?

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
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

[tatayo]

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

Tatayo.

[sebinator]

Merci,

en mettant

Code :

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

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 :

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

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

[dsr57]

Bonjour

Tu as essayé avec cette syntaxe

Code :

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

1
2
3
POUR li_i _A_ TableauOccurence(oFold>>items)
        oFold>>items[li_i]    
FIN

Bon dev

[jurassic pork]

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 :

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
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