Discussion :

[fclus]

Bonjour,
J'aimerais pouvoir me placer à la racine d'un PST et lancer une macro capable de reconstruire toute l'arborescence du PST et d'enregistrer tout son contenu en construisant le nom du fichier avec la date de réception du mail, l'émetteur et l'objet
J'arrive à le faire pour un dossier particulier (mais pas les sous-dossiers) mais l'idéal serait de pouvoir récupérer l'intégralité d'un PST
Cette macro existe peut-être déjà ?

Merci d'avance pour votre aide

Franck

[Oliv-]

Salut,
en cherchant bien ca doit se trouver.

sinon voici une macro récursive

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
Sub ListerDossiers(StartFolder As Outlook.MAPIFolder)
    Dim objFolder As Outlook.MAPIFolder
    Dim MonDossier As New Dossier
    Dim objItem As Object
    On Error Resume Next
 
    ' Ici on fait quelque chose dans chaque dossier
   ' on écrit une ligne dans la fenêtre exécution
    Debug.Print StartFolder.FolderPath, StartFolder.Items.Count
 
    ' Parcourt tous les sous-dossiers de ce dossier
    For Each objFolder In StartFolder.Folders
        Call ListerDossiers(objFolder)
    Next
 
    ' Parcourt tous les éléments de ce dossier.
    For Each objItem In StartFolder.Items
        'ICI ON FAIT QUELQUE CHOSE SUR CHAQUE ITEM DU DOSSIER
        Debug.Print objitem
    Next
 
    Set objFolder = Nothing
End Sub

tu la lances à partir d'une autre sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ActionSurFolderEtItems()
 
    Dim OL As Outlook.Application
    Dim OLNS As Outlook.NameSpace
    Dim OLItem As Object
    Dim OLFolder As Outlook.Folders
 
    Set OL = New Outlook.Application
    Set OLNS = OL.GetNamespace("MAPI")
 
    Set OLFolder = OLNS.GetDefaultFolder(olFolderInbox).Folders.parent
'Ici on exécute la macro en question
    call ListerDossiers (OLFolder )
End Sub

[Oliv-]

en complement ici

[fclus]

Merci Oliv,
Je vais analyser tout ça