[VBA-Word] Echec dans la récupération du carnet.

[douguelasse]

Bonjour.

Donc le code a pour but de récuperer dans une ComboBox la liste des contacts Outlook, pour par la suite écrire automatiquement les informations de ces contacts afin de réaliser une lettre type automatisé dans le choix du destinataire.
J'en suis donc à récuperer les informations des contacts, mais je me heurte à une erreur récurente... il ne me prend que les contact commencant par la fin et me fait une erreur dès qu'il tombe sur un groupe.

Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub LireCarnet()
Dim objOutlook As New Outlook.Application
Dim ObjNameSpace As NameSpace
Dim Carnet As MAPIFolder
Dim C As ContactItem
Set objOutlook = Outlook.Application
Set ObjNameSpace = objOutlook.GetNamespace("MAPI")
Set Carnet = ObjNameSpace.GetDefaultFolder(olFolderContacts)
For Each C In Carnet.Items
ComboBox1.AddItem C.FullName
Next C
End Sub

Je vous remercie d'avance ^^.

Bonne journée.

[bbil]

en testant le type de "C" ... par ..

Code :

1
2
3
4
5
6
7
8
9
 
...
Dim C As Object
...
For Each C In Carnet.Items
If TypeName(C) = "ContactItem" Then
  ComboBox1.AddItem C.FullName
End If
...

[douguelasse]

Merci beaucoup, cela marche effectivement ^^

Il y a t'il aussi un moyen pour mettre dans l'ordre alphabétique les noms? Car en fait vu que ca ajoute un item a chaque fois, ca le met en premier, et donc jme retrouve a commencer dans la liste par la lettre V et finir par la lettre A.

Merci bien de votre aide précieuse ^^

[bbil]

et si tu rempli ta combobox à l'enver ... :

Code :

1
2
 
 ComboBox1.AddItem C.FullName, 0

... encore faut-il que tes données intiale soit triées...

[douguelasse]

Merci ça marche parfaitement.

Néanmoins finalement je vais devoir changer mon dossier de contact, mais j'ignore comment acceder à celui qui m'a été demandé.

Voici :



Jusqu'à maintenant je travaillais sur les Contacts de ma boite aux lettres, mais maintenant je dois travailler sur les dossier public, et plus précisement les 2 que j'ai indiqué (séparément ou ensemble, à voir).

Auriez vous une solution à me suggérer ?

Merci beaucoup pour votre aide.

[douguelasse]

Finalement après une nouvelle concertation, ça ne concernera que l'Annuaire (pas l'externe).

Mais le problème reste le même.

Bonne journée.