Discussion :

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

Code :

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

1
2
3
4
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.

[Ric500]

Merci encore, çà faisait des semaines que je me contentais d'une cote mal taillée en parcourant les inspectors...

[Ric500]

Bonjour !

En fait mon problème n'est pas résolu, je m'explique:

mon but est de cliquer sur un bouton ajouté dans le ruban d'une fiche contact afin de l'exporter vers une base access 2003.

Le code produit ne fonctionne que si j'ai ouvert la fiche contact depuis le dossier contacts auquel cas, dans ce dossier, le contact sélectionné est bien celui qui m'intéresse et l'exportation est pertinente. Si j'ai ouvert mon contact à partir d'une recherche, le contact exporté est le contact qui a le focus dans le dossier contacts et non pas celui de la fiche ouverte.

Je souhaiterais donc pouvoir exporter un contact ouvert indépendament de celui qui a le focus dans le dossier en affectant une à variable Outlook.ContactItem le contenu de la fiche ouverte. Mon erreur vient donc de cette affectation:

Code :

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

    Set objContact = Application.ActiveInspector.CurrentItem

qui sélectionne le contact, je crois, dans le dossier actif.

Je vous remercie de vos réponses, ma direction attend de moi des résultats rapides .

[Oliv-]

non