extraction contacts to txt
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 ?
