Ne contient pas forcément que de l'humour ;)

Aller au contenu | Aller au menu | Aller à la recherche

Outlook express

Les astuces dans Outlook Express

  • Scripts VBS pour déterminer les dossiers de stockage

Dossiers de stockages

Scripts VBS

(pour utiliser ces scripts, il suffit de copier/coller le contenu des zones de code dans un fichier vite à l'aide du bloc note de windows. Vous pouvez appeler ces scripts comme vous voulez, du moment que l'extension est ".vbs" !!

Un script générant une page web avec la liste des dossiers de stockage :

' Liste les chemins de stockage des identités Outlook Express.

' www.faqOE.Com
' P.Gastaldi (paskal) ' MVP Microsost option explicit Const HKCU = &H80000001 Const READYSTATE_COMPLETE = 4 Dim strResult Dim SubKeys,subkey,oReg,Return,strValue,strName Dim objShell Dim oIE Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\. oot\default:StdRegProv") Set objShell=CreateObject("WScript.Shell") Set oIE = WScript.CreateObject("InternetExplorer.Application","IE_") With oIE .left = 40:.top = 80:.width = 600:.height = 300:.menubar = False:.toolbar = False:.statusbar = False End With oIE.navigate("about:blank") Do While Not oIE.ReadyState = READYSTATE_COMPLETE : Loop oReg.EnumKey HKCU, "Identities", SubKeys For Each subkey In SubKeys strValue=objShell.RegRead ("HKEY_CURRENT_USER\Identities\" & subkey & "\Software\Microsoft\Outlook Express\5.0\Store Root") If (Err.Number = 0) Then oReg.GetStringValue HKCU,"Identities\" & subkey ,"Username",strName strName= "<span class='soulign'>" & strName & "</span><br>" end if strResult = strResult & strName & strValue & "<br><br>" Next oIE.Document.write("<html><head><title>Chemin des dossiers de stockage des identités OE</title><style>body{BACKGROUND-color: window;font-family: Tahoma;FONT-SIZE: 80%;}.reponse{color:activecaption;font-weight:bold;font-variant:small-caps;FONT-SIZE:140%;}.soulign{font-variant: small-caps;FONT-WEIGHT: bold;FONT-SIZE: 110%;font-family: Verdana, Helvetica;COLOR: #CC6600;padding-top: 8px;</style></head>") oIE.Document.write("<body bgcolor=gray>") oIE.Document.write("<span class='Reponse'>Chemin des dossiers de stockage des identités OE</span><br><br>") oIE.Document.write(strResult) oIE.Document.write("<center><small><a href='http://www.faqOE.com' target='_blank'>FAQ Outlook Express</a></small></center>") oIE.Document.write("</body></html>") oIE.visible = 2 oIE.Document.close Set oIE = Nothing Set objShell = Nothing Set oReg = Nothing

Un autre script qui retrouve et ouvre le dossier de stockage dans l'explorateur !

'Script conçu et créé par scraper (scraper@tiscali.fr) et Paskal (paskal@faqoe.com)
'Permet de retrouver et d'afficher le dossier de stockage

Option Explicit

'Déclare les objets et variables
Dim objShell
Dim strStorepath
Dim dblHideFiles

'Crée l'objet
Set objShell=CreateObject("WScript.Shell")

'Recherche dans le Registre l'emplacement du Dossier de stockage
strStorepath= objShell.RegRead ("HKEY_CURRENT_USER\Identities\" & objShell.RegRead("HKEY_CURRENT_USER\Identities\Last User ID") & "\Software\Microsoft\Outlook Express\5.0\Store Root")

'Détermine l'état d'affichage des fichiers et dossiers cachés
dblHideFiles=0
On Error Resume Next
dblHideFiles= objShell.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")
'Permet le cas échéant l'affichage des fichiers cachés
If Err.Number or dblHideFiles<>1 then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",1, "REG_DWORD"
On Error Goto 0

'Lance l'explorateur et explore le dossier de stockage de Outlook Express
objShell.run chr(34) & strStorepath & chr(34)

'Restaure l'état initial d'affichage des fichiers et dossiers cachés
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden",dblHideFiles, "REG_DWORD"

'Décharge l'objet
Set objShell=Nothing