ricomiracle
Messages postés195Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention30 novembre 2009
-
26 août 2009 à 16:29
ricomiracle
Messages postés195Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention30 novembre 2009
-
28 août 2009 à 17:45
Bonjour,
Je souhaite récupérer les chemins de tous les fichiers pst (dossier personnel outlook) ouverts dans outlook.
J'arrive pour l'instant à récupérer les objets VBA mais je ne trouve pas de propriété indiquant l'emplacement du fichier:
Dim Ns As Outlook.NameSpace
Dim MAPIFolder As Outlook.MAPIFolder
Set Ns = ThisOutlookSession.GetNamespace("MAPI")
Set MAPIFolder = Ns.Folders.Item(x)
cs_loulou69
Messages postés672Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention 2 juin 20161 28 août 2009 à 16:32
clé de registre
CURRENT_USER\Software\WindowNT\CurrentVersion\Windows Messaging Subsytem\Profiles
ensuite regarder les sous-clés, le fichiers PST est là-dedans mais après le lire avec du code VBA ce sera autre chose
ricomiracle
Messages postés195Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention30 novembre 2009 28 août 2009 à 17:45
Effectivement... Pas facile à lire. Cependant, j'ai trouvé un bout de code entre-temps qui permet de retrouver le chemin à partir de la propriété storeID de l'objet MAPIFolder. Cependant, l'idée du registre me plait car ça me permettrait d'exécuter le code sur tout les registres de mon réseau...
Avec un peu de chance, les données dans le registre et dans la propriété storeID se décrypte de la même façon.