Page 1 sur 1
[..] Lister PST monté dans Uotlook
Posté : jeu. 09 déc. 2010 13:11
par 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.
Re: [Lister PST monté dans Uotlook]
Posté : jeu. 09 déc. 2010 14:26
par 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
Re: [..] Lister PST monté dans Uotlook
Posté : jeu. 09 déc. 2010 19:33
par 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 !