Outlock Express : supprimer invite de compres
Arthémise
Messages postés
38
Statut
Membre
-
Arthémise Messages postés 38 Statut Membre -
Arthémise Messages postés 38 Statut Membre -
Bonjour,
A la fermeture de OUTLOCK EXPRESS 6, lorsqu'il y a un certain nombre (?) de messages archivés un pavé demande systématiquement de les compresser. Pour éviter cette invite, j'avais trouvé sur je ne sais quelle revue un script qui remettait le compteur à zéro et évitait (pour un temps) cette invite à chaque fermeture. Voici :
Set WshShell = WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
On Error Resume Next
.RegDelete "HKEY_CURRENT_USER\Identities\{4B8A41C9-5255-43D0-BC96-CB46E5CB7A5B}\Software\Microsoft\Outlook Express\5.0\Compact Check Count"
End with
Mybox = MsgBox("Le compteur a été remis à zéro")
Depuis que je suis passé à Internet Explorer 8, cela ne marche plus ! Je ne sais pas s'il y a une relation...
Si un expert a une idée... Merci.
A la fermeture de OUTLOCK EXPRESS 6, lorsqu'il y a un certain nombre (?) de messages archivés un pavé demande systématiquement de les compresser. Pour éviter cette invite, j'avais trouvé sur je ne sais quelle revue un script qui remettait le compteur à zéro et évitait (pour un temps) cette invite à chaque fermeture. Voici :
Set WshShell = WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
On Error Resume Next
.RegDelete "HKEY_CURRENT_USER\Identities\{4B8A41C9-5255-43D0-BC96-CB46E5CB7A5B}\Software\Microsoft\Outlook Express\5.0\Compact Check Count"
End with
Mybox = MsgBox("Le compteur a été remis à zéro")
Depuis que je suis passé à Internet Explorer 8, cela ne marche plus ! Je ne sais pas s'il y a une relation...
Si un expert a une idée... Merci.
A voir également:
- Outlock Express : supprimer invite de compres
- Nero express - Télécharger - Gravure
- Express zip - Télécharger - Compression & Décompression
- Photo express - Télécharger - Retouche d'image
- Express burn - Télécharger - Gravure
- Devis facture express - Télécharger - Comptabilité & Facturation
1 réponse
Hello,
Bon ! Affaire résolue ! Le script a été modifié ainsi et ça fonctionne ! (site Faqoe)
Il faut le copier dans le bloc-notes et l'enregistrer avec l'extension .vbs
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
Bon ! Affaire résolue ! Le script a été modifié ainsi et ça fonctionne ! (site Faqoe)
Il faut le copier dans le bloc-notes et l'enregistrer avec l'extension .vbs
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
