[..] Lister PST monté dans Uotlook

[broeders.kevin]

Bonjour,

Je souhaite développer un script qui me permet de remonter les chemins des fichiers PST montés dans Outlook. Ceci va m'aider a remonté les PST de mon entreprise qui ont été créé par mes utilisateurs sans respecté la norme en place.

J'ai trouvé un code en VB:

► Afficher le texte

Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")

For Each objFolder In objNS.Folders
WScript.Echo GetPSTPath(objFolder.StoreID)
Next

Function GetPSTPath(input)
For i = 1 To Len(input) Step 2
strSubString = Mid(input,i,2)
If Not strSubString = "00" Then strPath = strPath & ChrW("&H" & strSubString)
Next
Select Case true
Case InStr(strPath,":\") > 0
GetPSTPath = Mid(strPath,InStr(strPath,":\")-10)
Case InStr(strPath,"\\") > 0
GetPSTPath = Mid(strPath,InStr(strPath,"\\"))



End Select
End Function

J'ai du mal à l'adapter dans Autoit, de récupérer les chemin pour les rattacher à mon script de copie graphique.

Merci pour votre aide.

[Koumla]

Bonjour,

Modifier votre titre comme cela

[..] Lister PST monté dans Outlook

Dans la base de registre le nom du profil peut être différent de "Default Outlook Profile" voir le profil dans Outlook (c’est le même nom de profil)

Code : Tout sélectionner

$sKeyPath = "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Default Outlook Profile"
For $i= 1 to 50
$sKey = RegEnumKey($sKeyPath, $i)
If @error <> 0 then ExitLoop
For $ii = 1 to 100
$sEnumPath = $sKeyPath & "\" & $sKey
 ;ConsoleWrite($sEnumPath & @LF)
$sKeyVal = RegEnumVal($sEnumPath, $ii)
If @error <> 0 Then ExitLoop
 ;ConsoleWrite("Value Name  #" & $ii & " under in  key " & $sKeyVal & @LF)
$sRegVal = RegRead ($sEnumPath, $sKeyVal)
If Bitor(StringRight($sRegVal,4) = ".PST", StringRight($sRegVal,4) = ".OST") then
;ConsoleWrite("SubKey #" & $i & " under HKCU: " & $sKey & @LF)
ConsoleWrite("PST PATH : " & $sRegVal & @LF)
EndIf
next
Next
 

Koumla

[Yogui]

J'ai édité votre message juste par respect pour la réponse de Koumla sinon je l'aurai mis à la poubelle !

MERCI de lire les règles du forum !

Ces dites règles vous ont été envoyé par MP lors de votre inscription ! Vous avez du les effacer pour saisir votre demande un lien est disponible dans la partie orangée !