 |
Publicité 
|
C’est une fonction à action récursive, à utiliser avec précaution donc !
Tout d’abord on entretient la localisation sur la base du nom de dossier courant.
suf = suf & fld.Name & "\"
On tourne sur tous les éléments (items) du dossier courant, attention cela commence à 1 pas à 0. Notez que les dossiers n’apparaissent pas ici.
For i = 1 To fld.Items.Count
Si l’élément de la boucle est de type Mail alors on sauvegarde les pièces jointes associées en appelant la fonction de sauvefichier
If fld.Items(i).Class = olMail Then
sauvefichier fld.Items(i), suf
end if
On tourne ensuite sur tous les sous-dossiers (folders) du dossier courant. Là encore on commence à 1. Pour chaque dossier trouvé, on exécute sauvefolder, d’où l’action récursive. On note que suf, la localisation, est transmise par paramètre et donc la fonction ne tourne pas « bêtement ».
For i = 1 To fld.Folders.Count
sauvefolder fld.Folders(i), suf
Next
|
