Empêcher le compactage des messages par Outlook

[Marie]

Bonjour

De temps en temps, Outlook Express a besoin de compresser les messages contenus dans les boîtes de réception et d'envoie.

Les messages sont rangés dans un fichier .dbx et à force d'ajouter puis de supprimer des messages, ce fichier ressemble à un véritable gruyère. D'où l'utilité du compactage.

Mais cette opération prend du temps, et de plus si le compactage se passe mal et est interrompu en cours de route (suite à une coupure électrique, par exemple), les mails peuvent être irrémédiablement perdus.

Si vous voulez empêcher la compression des messages par Outlook, executez le script présent :

Code: Tout sélectionner

Dim WSHShell
Dim strIdentite

Set WshShell = CreateObject("WScript.Shell")

strIdentite = WshShell.regread ("HKCU\Identities\Last User ID")
WshShell.regwrite "HKCU\Identities\" & strIdentite & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count",0,"REG_DWORD"
WshShell.Run "msimn.exe"

Set WshShell=Nothing
' Fin du script ------------------------------


1) Copiez/collez le contenu du script dans votre bloc note.
2) Enregistrez le tout sur votre bureau sous "razCompactage.vbs" (sans les guillemets)
3)Lancez le script en cliquant sur le fichier créé.

NB: Si votre antivirus est équipé d'un anti-script, pensez à lever la protection avant de lancer le script.

[Man-iX]

Bonjour,

J'Up le topic car cette astuce m'intéresse beaucoup.

J'ai trouvé le script permettant de remettre a 0 le compteur de fermeture d'Outlook Express, seulement je ne sais pas du tout comment l'utiliser

Pouvez vous m'expliquer la marche a suivre SVP?

Code: Tout sélectionner

' Réinitialisation du compteur de compatage automatique dans Outlook Express.
' Effectue la modification sur la dernière identité utilisée.

' http://www.faqoe.com/



Dim WSHShell
Dim strIdentite

Set WshShell = CreateObject("WScript.Shell")

strIdentite = WshShell.regread ("HKCU\Identities\Last User ID")
WshShell.regwrite "HKCU\Identities\" & strIdentite & "\Software\Microsoft\Outlook Express\5.0\Compact Check Count",0,"REG_DWORD"
WshShell.Run "msimn.exe"

Set WshShell=Nothing

[Renard]

Bonjour,

Le lient donné par Marie n'existe plus. J'ai édité son message afin d'expliquer la procédure.

[Man-iX]

Renard......merci beaucoup!

Le lien donné par Marie n'était effectivement plus bon, mais j'avais trouvé mon script sur http://www.faqoe.com/ .

Encore merci Renard