Discussion :

[pc75]

Bonjour,

J'ai bien trouvé un début de piste ici http://vb.developpez.com/faq/?page=Divers#outlcarnet mais ce que je voudrai récupérer, c'est l'adresse au format prenom.nom@societe.fr.

Quelqu'un aurait-il déjà réussi ça ?

Merci pour votre aide.

[zazaraignée]

Salut

Personne ne t'as encore répondu et ça me chiffone un peu que nous n'ayons rien à te proposer, alors je me risque, sans conviction... Je n'ai pas installé Outlook!

As-tu placé la bibliothèque Outlook (ou quelque chose comme ça) dans les références de ton projet: menu Projet > Références... Ça te donnerait accès aux objet de Outlook (F2 pour afficher l'explorateur d'objets)

Après ça, je n'ai pas d'autres idées brillantes. Bonne chance.

[michelxld]

bonjour

l'exemple donné dans le lien fonctionne tres bien chez moi , à condition d'activer la reference Microsoft Outlook xx.x Object Library comme le precise Zazaraignée
(xx.x depend de ta version d'Outlook )

ci joint un autre exemple à tester

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
Sub ListeAdressesMailsContactsOutlook()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim olApp As New Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder
Dim Resultat As String
 
Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
 
For Each Cible In dossierContacts.Items
Resultat = Resultat & Cible.Email1Address & vbLf
Next
 
MsgBox Resultat, , "Liste des adresses mail Outlook-Contacts"
End Sub

bon week end
michel

[pc75]

Re,

Tout d'abord, merci de vous interesser à mon souci.

l'exemple donné dans le lien fonctionne tres bien chez moi , à condition d'activer la reference Microsoft Outlook xx.x Object Library comme le precise Zazaraignée

La bibliothèque Outlook est bien cochée dans les références de mon projet => Microsoft Outlook 9.0 Object Library.
Ma version d'Outlook est : Microsoft Outlook 2000 (9.0.0.2814)

Chez moi aussi, ce code fonctionne. Le seul problème, c'est que je ne récupère que les adresses mail du dossier Contacts. Or, j'ai besoin de récupérer les adresses mail de la Liste d'adresses globale.

Je m'en remets donc à vous.

Merci par avance.

[michelxld]

bonjour

je ne suis pas sur que ce soit exactement ce que tu recherches , mais le lien ci dessous permet de recuperer des infos dans la "Global Address List"

http://www.kbalertz.com/kb_179083.aspx


bonne soirée
michel

[pc75]

Bonjour,

Merci de ta réponse,

J'avais déjà vu que CDO pourrait être une autre piste. Mais je voulais éviter de l'utiliser.
Je crois que je vais quand même m'orienter vers cette solution. Il ne me reste plus qu'à aller à la peche pour trouver où se télécharge ce composant.

PS : Si quelqu'un sait où il peut se télécharger ? (Ca m'éviterai de perdre mon temps ...)

Merci

[pc75]

Re,

Merci à tous, je m'en suis sorti avec CDO 1.21.