Export contacts Outlook -> Access

[Ric500]

Bonjour,


Environnement Outlook 2007 en local pointant sur un serveur partageant les contacts sous exchanger server + MsAccess 2003 en local.

Je souhaiterais réaliser la chose suivante en VBA sous Outlook 2007:

Rajouter un bouton dans la barre d'accès rapide du formulaire contacts pointant sur une fonction en VB qui réalise l'exportation du contact courant vers une base de données access.

A ce stade , j'ai mon bouton, pointant sur un sub que j'ai inséré dans la section ThisOutlookSession.

Mon problème et que même en scrutant les variables locales de la fenêtre d'édition, je n'arrive pas à identifier le contact courant (celui du formulaire contacts que je voudrais exporter).

Je piétine et je suis sûr que vous aurez une solution.

Merci d'avance

[Oliv-]

Salut
le mieux c'est de définir une variable désignant ton contact, tu pourras voir dans la fenetre des variables les propriétés en faisant un arrêt.

DIM OITEM AS OBJECT si tu n'es pas sûr que ce soit un élement contactitem (sinon erreur, liste de diffusion par exemple)
'ou 
DIM OITEM AS outlook.contactitem
Set OITEM = ActiveInspector.CurrentItem 'désigne l'élément actif càd le contact ouvert...

s'il n'est pas ouvert tu auras une erreur.