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 :
Mais sur le oFold.Items il me met une erreur de compilation "Membre de méthode ou de données introuvable".
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 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
Pouvez vous m'expliquer ou je me trompe ?
Partager