Récupérer les mails Outlook dans une table Access

**zerrokooll** · 26/08/2003, 15h20

Merci mille fois pour ton aide....

Je vais me debrouiller pour la suite.

Bonne journee a toi.

**THOGAL** · 26/08/2003, 15h55

Pourquoi [abandonner] ?

tu y étais presque !

**zerrokooll** · 27/08/2003, 14h44

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

**THOGAL** · 27/08/2003, 14h48

tu ne m'ennerves pas !

si tu veux on le fait calmement, tranquillement étpae par étape !

comme tu veux !

**zerrokooll** · 27/08/2003, 15h02

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

:

**THOGAL** · 27/08/2003, 15h12

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 !

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

et cocher la référence Ms outtlook object library dans Outils=> références !

ensuite tu fais enregister et déboguer => compiler le module chargé !

est ce que ca se passe bien ?

si non => quel est le message ?

**zerrokooll** · 27/08/2003, 15h25

Il ne se passe rien lorsque je compile le code, est ce normal?

**THOGAL** · 27/08/2003, 15h28

Envoyé par zerrokooll

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

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 ?

**zerrokooll** · 27/08/2003, 15h31

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?

**THOGAL** · 27/08/2003, 15h34

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 ?

**zerrokooll** · 27/08/2003, 15h37

pour le nombre de contact, ok mais pour le reste, je t'avoue que non.....

**THOGAL** · 27/08/2003, 15h41

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 ?

**zerrokooll** · 27/08/2003, 15h44

ok, la, j'ai compris.....

**THOGAL** · 27/08/2003, 15h53

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 !

**zerrokooll** · 27/08/2003, 16h02

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

**THOGAL** · 27/08/2003, 16h04

olFolderInbox me parait bien !

modifies ton code pour cette fois interroger le nombre de mails !

le code deviendrait donc ????=> à toi !

**zerrokooll** · 27/08/2003, 16h10

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.

**THOGAL** · 27/08/2003, 16h15

essaye ceci plutot : à l'intérieur de test

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

est ce que ca compile? est ce que ca marche ?