Merci mille fois pour ton aide....
Je vais me debrouiller pour la suite.
Bonne journee a toi.
![]()
Merci mille fois pour ton aide....
Je vais me debrouiller pour la suite.
Bonne journee a toi.
![]()
Pourquoi [abandonner] ?
![]()
tu y étais presque !![]()
car je suis nul et je sen que cela t'enerve, alors comme tu as deja ete tres sympa de m'expliquer cela, je ne veux pas abuser, voila pourquoi.......![]()
tu ne m'ennerves pas !
![]()
si tu veux on le fait calmement, tranquillement étpae par étape !
comme tu veux !
je te remercie, ta proposition est tres sympa, ce que je n'arrive pas a comprendre c'est la maniere de relier outlook a access.
dans ma base, j'ai relier access a des tablessybase sans aucun pb, mais avec outlook, je seche completement....
:
tu vas voir c'est simple :
est ce que déjà tu peux créer une nouvelle base et faire ceci :
nouveau module et copier coller de ce code !
et cocher la référence Ms outtlook object library dans Outils=> références !
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 Sub test() Dim objOLfolder As Outlook.MAPIFolder Dim olcontactitem As ContactItem Dim i As Integer Set olkapp = CreateObject("Outlook.application") Set olknamespace = olkapp.GetNamespace("MAPI") Set objOLfolder = olknamespace.GetDefaultFolder(olFolderContacts) For i = objOLfolder.Items.Count To 1 Step -1 MsgBox ("dedans") 'traitement Next i End Sub sub essai() test end sub
ensuite tu fais enregister et déboguer => compiler le module chargé !
est ce que ca se passe bien ?
si non => quel est le message ?
Il ne se passe rien lorsque je compile le code, est ce normal?
TOUT A FAIT => c'est la preuve que tout semble focntionner et qu'access comprend tout se que tu as marqué !Envoyé par zerrokooll
maintenant, tu fais clignoter ton curseur dans la fonction essai et tu cliques sur la flèche bleue en haut (ALLEZ A /CONTINUER)
que se passe t'il ?
il me renvoi 4 msgbox successive avec "dedans", est ce que cela signifie qu'il reussi a lire dans outlook, ou a recuperer les donnees outlook?
ca veut dire :
- qu'il est entré dans outlook
- qu'il est allé voir les contacts
- qu'il en a vu 4 (puisque 4 fois "dedans")
tu peux voir ce "mouvement" dans le code ! OUVERTURE, POSITIONNEMENT DANS LE BON DOSSIER ET TRAITEMENT !
tu as compris ?
pour le nombre de contact, ok mais pour le reste, je t'avoue que non.....![]()
alors reprenons le code :
Sub test()
'DECLARATION des variables
Dim objOLfolder As Outlook.MAPIFolder
Dim olcontactitem As ContactItem
Dim i As Integer
'creation object et ouverture d'outlook
Set olkapp = CreateObject("Outlook.application")
Set olknamespace = olkapp.GetNamespace("MAPI")
'positionnement dans les contacts d'outlook
Set objOLfolder = olknamespace.GetDefaultFolder(olFolderContacts)
'pour tous les contacts parcourus
For i = objOLfolder.Items.Count To 1 Step -1
MsgBox ("dedans")
'traitement
Next i
End Sub
c'est mieux la ?
maintenant tu vas faire F2 sur ton code pour ouvrir l'explorateur d'objet :
et dans la liste déroulante "<toutes bibliothèques" tu cherches OUTLOOK (ou ressemblant) !
puis dans la liste du bas tu cherches l'object :
olFolderMails! je ne suis pas sur de ca !!!!!
le but étant de trouver le dossier mail et non cemui des contacts !
je ne trouve pas de "olfoldermail", par contre j'ai un "olFolderInbox", ne serais ce pas celui la ?
sinon, j'ai un olMailRecipientType, mais je ne pense pas que cela soit celui la .....
olFolderInbox me parait bien !
modifies ton code pour cette fois interroger le nombre de mails !
le code deviendrait donc ????=> à toi !
j'aurai tendance a mettre cela :
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 Dim objOLfolder As Outlook.MAPIFolder Dim olInboxitem As InboxItem Dim i As Integer Set olkapp = CreateObject("Outlook.application") Set olknamespace = olkapp.GetNamespace("MAPI") Set objOLfolder = olknamespace.GetDefaultFolder(olFolderInbox) For i = objOLfolder.Items.Count To 1 Step -1 MsgBox ("dedans") 'traitement Next i End Sub Sub essai() test End Sub
mais j'ai un doute sur la declaration de la variable.
essaye ceci plutot : à l'intérieur de test
est ce que ca compile? est ce que ca marche ?
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 Dim objOLfolder As Outlook.MAPIFolder Dim olcontactitem As Mailitem Dim i As Integer Set olkapp = CreateObject("Outlook.application") Set olknamespace = olkapp.GetNamespace("MAPI") Set objOLfolder = olknamespace.GetDefaultFolder(olFolderInbox) For i = objOLfolder.Items.Count To 1 Step -1 MsgBox ("dedans") 'traitement Next i
pourquoi "mailitem" alors que nous "travaillons avec olFolderInbox ?
parce que Mailitem représente un objet mail
et que
olFolderInbox représente le répertoire ou sont stockés les mails items !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager