Discussion :

[zerrokooll]

Salut a tous,

je desire creer un bdd access 2002, qui me permette de rapatrier les message d'un bal outlook.
j'essai d'integrer un control activeX "Microsoft Outlook Recipient Control"
dans mon formulaire, mais j'ai un message me disant que "Le serveur OLE n'est pas inscrit. Pour l'inscrire, reinstallez-le."

Débutant sous access, qui pourrais m'expliquer la signification de ce message?

Merci pour votre aide.

[THOGAL]

il en me semble pas que ce soit la bonne librairie ...tu as outlook express ou outlook ?

sinon, tu peux faire une recherche avancée sur le forum, on a eu un post la semaine dernière (je crois) sur comment rapatrier les contacts d'outlook dans access ! ca peut servir !!!!!

[zerrokooll]

J'ai Outlook 2002, j'ai vue le post de la semaine passer mais lui, c'est l'envoie de mail depuis acces, alors que moi, c'est le contraire....sniffff.

qu'entend tu par pb de librairie?

Merci pour ton aide.

[THOGAL]

je te parlai de celui là :

http://www.developpez.net/forums/vie...utlook+contact

tu n'as que cette référence disponible concernant outlook ?

tu n'as pas une librairie du nom approchant de "Microsoft Outlook type librairy" ???

ps : je n'ai pas outlook => si quelq'un le possédant pouvait nous dire ce qu'il possède comme librarie dans access ....

[zerrokooll]

excuse ma question qui, je le pense te paraitra bete, mais comment et/ou puis je trouver ce genre d'info?

[THOGAL]

ben dans outils références .... NON ?

[zerrokooll]

excuse ma question si elle te parait bete.

dans reference, j'ai "Microsoft Outlook 10.0 Object Library"
est ce cela que tu voulais savoir ?

[THOGAL]

"Microsoft Outlook 10.0 Object Library" c'est bien celle la qu'il faut utiliser ! (la cocher !) ensuite tu pourras utiliser les objets Outlook et donc répupérer les mails !

[zerrokooll]

Toujours le meme pb, lorsque j'essaie d'intergre le control activeX "Outlook Recipient", meme message....
alors que le complement est bien cocher. :

[THOGAL]

Toujours le meme pb, lorsque j'essaie d'intergre le control activeX "Outlook Recipient"

mais ... tu n'en n'as pas besoin !!!!!!!!

maintenant que tu as intégré la librairie outlook .. sert toi d'elle pour récupérer tes mail

Cf :

http://www.developpez.net/forums/vie...utlook+contact

[zerrokooll]

tu vas vraiement croire que je t'en veux, ou que je suis plus bete que la moyenne.....mais, le code contenu dans le post que tu m'indique, je dois le placer dans un module ?

Non?




Merci pour ton aide...

[THOGAL]

ben sois sur un formulaire ... soit dans un module ... ca dépend ce que t'en fais ... mais les 2 marchent !

moi je le ferai sur un module !

[zerrokooll]

en fait je desire que les infos soit stocker dans une table.......

[THOGAL]

ben ...dans un module ce sera parfait !!

[zerrokooll]

derniere petite chose, et ensuite, c'est promis, je te laisse....

par quel biais, apres avoir creer mon module, puis-je executer l'importation???

[THOGAL]

en créant un formulaire et sur un bouton , sur évènement clic tu appelles le nom de la procédure !

exemple dans MODULE1

Code :

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

1
2
3
sub test()
msgbox("essai")
end sub

sur formulaire :

Code :

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

1
2
3
sub form load()
test
end sub

[zerrokooll]

Ca, ok, j'ai bien capter, j'ai donc appeler le module sur On Load du Form1.

mais lorsque le form s'ouvre, j'ai un message qui me dis "erreur de compilation : Instruction incorrecte a l'exterieur d'une procedure."


Quid????

[THOGAL]

tu ne donnes pas assez de détails :
- quelle ligne plante ?
- est ce que la compiltaion du code fonctionne
- quel est le code dans ton module ????

:

[zerrokooll]

code du module : (test avec le code du post precedent) :

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
 
Option Compare Database
 
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
 
'traitement
 
Next

pb sur la ligne "Set olkapp = Create..."

non, la compil ne fonctionne pas....


je suis desole de te prendre la tete comme cela, mais c'est la premiere fois que j'attaque les module, et je crois que j'ai vu un peu trop gros....

[THOGAL]

tu pourrais au moins regarder dans l'aide d'access comment est fait une procédure !

DANS UN NOUVEAU MODULE
et SUPRRESSION DE L'AUTRE

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

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