Discussion :

[bibilolo2]

Bonjour à tous,
afin d'intégrer des contacts de Outlook dans une BD Access 2003 j'ai utiliser le code de la FAQ à cette adresse :
http://access.developpez.com/faq/?pa...ook#outlcarnet
Comme indiqué j'ai créé une textbox et "Sur clic" j'exécute la procédure pour récupérer les contacts de Outlook.
Problème : à chaque clic, le même message apparaît

Code :

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

1
2
3
Erreur d'exécution '-2147023170 (800706be)':
Erreur Automation
Échec de l'appel de procédure distante.

et le débogueur me surligne cette ligne

Code :

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

For ctrlists = 1 To mapi.AddressLists.Count

J'ai essayé de redémarrer le PC mais ce ne fut pas mieux.
Avez-vous des solutions ?

Je vous remercie par avance pour vos réponses.

[hajeahmad]

bonjour
as tu regardé du cote des references. si outlook.xxx est cochée

[bibilolo2]

C'est une chose que je n'avais pas précisé. J'ai bien la référence cochée pour Outlook.

[argyronet]

Bonjour,

Je suis surpris que tu puisses exécuter ce code sans alerte tel que celle jointe en annexe... Outlook empêche l'exécution de ce type de code pour éviter qu'un code malveillant puisse accéder à ton client de messagerie...

Sinon, déclare tes variables As Object et remplace l'instantiation via le mot clé New par un CreateObject... Puis retire la référence.

Argy

[bibilolo2]

Bonjour Argyronet,
j'ai une erreur d'exécution à l'exécution de Outlook mais je n'ai jamais eu de fenêtre de ce type concernant une autorisation d'accès à Outlook.

Concernant l'exécution de ce code, au démarrage de la BD, Access me demande si j'autorise ou pas l'exécution du code contenu dans celle-ci.

[bibilolo2]

Il y a du mieux, j'ai changer de message d'erreur et ça me rassure.
Avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub listemail()
    Dim X As Long, I As Long
    Dim out As Object
    Dim a As Object, mapi As Object
    Dim ctrlists As Integer
    Dim info As MapiRecip
 
    Set out = CreateObject("Outlook.Application")
    Set mapi = out.GetNameSpace("MAPI")

Code :

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

1
2
Erreur d'exécution '424':
Objet requis

J'ai oublié quelque chose ?

[argyronet]

Si tu retires la référence, comme je te l'ai suggéré, cette déclaration est incomprise :

Code :

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

Dim info As MapiRecip

Argy

[bibilolo2]

je te remercie Argy de ton aide.
J'ai bien retiré la référence et mis en commentaire la ligne que tu m'as indiquée.
Et maintenant c'est info qui pose problème :

Code :

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

 I = MAPIResolveName(0, 0, a.AddressEntries(X), 0, 0, info)

EDIT : L'accès réussi à Outlook étant aléatoire je préfère utiliser un autre moyen pour récupérer les contacts.

Willy