Discussion :

[devdev]

Bonjour,
J'ai le problème suivant: je souhaite exporter sur un fichier excel des contacts outlook, les contacts étant contenus dans des dossiers.
Lorsque j'exporte chaque dossier avec le menu import export de outlook, j'arrive à exporter les adresses contenu dans le dossier, mais pas le nom du dossier. J'aimerais pouvoir le faire.

Si quelqu'un peut m'aider. Merci

[Oliv-]

Bonjour,
Voici pour récupérer les nom des dossiers dans la fentre execution.
A la place de debug print mets tes instructions

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub ProcessFolder(StartFolder As Outlook.MAPIFolder)
'---------------------------------------------------------------------------------------
' Procedure : ProcessFolder
' Author    : Oliv'
' Date      : 04/03/2009
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim objfolder As Outlook.MAPIFolder
    'Dim objItem As Object
    On Error Resume Next
 
    ' do something specific with this folder
    Debug.Print StartFolder.FolderPath, StartFolder.Items.Count
    Debug.Print
 
    ' process all the subfolders of this folder
    For Each objfolder In StartFolder.Folders
        Call ProcessFolder(objfolder)
    Next
 
    ' process all the items in this folder
'    For Each objItem In StartFolder.Items
'        Call ProcessItem(objItem)
'    Next
 
    Set objfolder = Nothing
End Sub
 
Sub listFolder()
'---------------------------------------------------------------------------------------
' Procedure : listFolder
' Author    : Oliv'
' Date      : 04/03/2009
' Purpose   :
'---------------------------------------------------------------------------------------
'
Dim objNS
Dim objfolder As Outlook.MAPIFolder
Dim mon_outlook As Outlook.Application
  Set mon_outlook = Outlook.Application
Set objNS = mon_outlook.GetNamespace("MAPI")
Set objfolder = objNS.PickFolder
ProcessFolder objfolder
 
End Sub