extraction contacts to txt

[lolo_92]

Bonjour, je dois exporter des contacts outlook (2003) vers un format tiers, en gros, dans un fichier texte.

Suite à la consultation des divers tuto, j'arrive à ecrire un fichier texte (en ayant rajouté la référence Microsoft scripting Runtime) mais maintenant, je lutte pour parcourir les contacts outlook.

J'ai récupéré la macro suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub ParcourirContact()
Dim oCont As ContactItem
Dim oFold As Folder
Dim nM As NameSpace
Dim olApp As Outlook.Application
 
Set olApp = Outlook.Application
Set nM = olApp.GetNamespace("MAPI")
Set oFold = nM.GetDefaultFolder(olFolderContacts)
For Each oCont In oFold.Items
    Debug.Print oCont.LastName
Next oCont
 
 
End Sub

Mais sur le oFold.Items il me met une erreur de compilation "Membre de méthode ou de données introuvable".

Pouvez vous m'expliquer ou je me trompe ?

[Oliv-]

Bonjour,
change

Code :

Dim oFold As MAPIFolder