[VBA-outlook] Comment changer de dossiers de contact [Résolu]

[EvaristeGaloisBis]

bonjour,
j'aimerai savoir comment je pourrai faire pour avoir acces a tout le carnet d'adresse présent dans mon outlook (alias la liste d'adresse globale), et pas seulement a mon carnet d'adresse.
je m'explique j'ai fait ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub tt()
 
 Dim myNameSpace As Outlook.Namespace
Dim myContacts As MAPIFolder
 
Dim MonItem As Outlook.ContactItem
 
 
 
Set myNameSpace = Outlook.GetNamespace("MAPI")
 
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts)
 
For Each MonItem In myContacts.Items
 
    txt = txt & Chr(13) & (MonItem.Email1Address)
 
    On Error Resume Next
 
Next
 
MsgBox txt
End Sub

et il me faudrait trouver le moyen de récuperer tous les contacts entrés dans Outlook...
est ce que quelqu'un a une idée?

[Heureux-oli]

Précise un peu plus ton idée ?

[EvaristeGaloisBis]

ben il se trouve que Outlook fait le distinguo entre mes contacts personnels et le carnet d'adresse de la société. C'est plutot une bonne chose.
seulement si on essaie de programmer un petit outils qui retrouve le mail de quelqu'un de la société, il faut que je puisse y avoir acces directement avec mon code.
Donc je dois arriver a modifier ce petit morceau de code pour obtenir ce que je veux.

Quelles seraient les méthodes qui me permettraient d'avoir acces a tout le carnet.
j'ai mis en Pièces jointes une petite illustration. en espérant qu'elle puisse vous permettre d'y voir plus clair.

[Heureux-oli]

Si tu possèdes Access, tu peux lier ton carnet d'adresse et il apparaît alors comme une table et réagit aux requêtes.

[EvaristeGaloisBis]

comment ça? j'avoue ne pas comprendre...
Je peux exporter tout le carnet d'adresse dans une bdd? ou je peux créer un objet Acces pour me déplacer dans mon dossier de contacts?

aurais tu un exemple simple...?

[Heureux-oli]

Tu fais ce que tu veux avec, le plus facile est de lier le carnet outlook à Access.
Lorsque tu ouvre Access, il apparaît comme une table avec tout dans la table.

Il y a des limites, avec 35000 utillisateur, chez moi ça va pas bien, mais avec moins tout baigne.


Comment

Créer une nouvelle DB.
Dans les boutons, Créer Table, une liste de choix, Lier.
S'ouvre alors une fenêtre demandant le chemin, c'est la même que pour l'odbc.
Dans le type de fichier, tu choisis soit Exchange() soit Outlook().

Tu as une fenêtre MAPI qui s'ouvre, tu choisis.

c'est tout.

[EvaristeGaloisBis]

je dois être très mauvais mais je ne trouve pas comment lier ma nouvelle base de données a mon carnet de contacts Outlook.
Bon il faut préciser que je suis chez moi, et que je suis passé récemment au office 2007 depuis très peu de temps.
Ceux qui viennent d'y migrer me comprendront... :'(


[edit : je viens de trouver... je m'étais trompé d'endroit... toutes mes confuses ! mais il m'importe une table vide ]

[Heureux-oli]

Fallait le dire.

J'ai fait de mémoire, parce qu'à la maison j'ai 2007 aussi.

Données Externes
Plus
Dossiers Outlook
Lier
Carnet d'adresses

[EvaristeGaloisBis]

oki merci pour la pichenette