Script pour recréer le profil de messagerie Outlook 2010

Je suppose qu'il s'agit ici d'une seule machine avec un client Outlook qui n'implique pas Exchange.

Lorsque j'ai mis à niveau ma machine domestique de XP / Office 2003 --> Win 7 / Office 2010, j'ai malheureusement remarqué que de nombreux paramètres et configurations d'Outlook n'étaient pas contenus dans le fichier PST. J'ai extrait ces informations du registre utilisateur utilisé dans XP et les ai importées dans le registre Win 7. Mes paramètres sont revenus essentiellement.

Ma préoccupation spécifique était centrée autour du fait que j'utilise mon client Outlook pour accéder à de nombreuses boîtes aux lettres sur différentes machines. Mais cela a fonctionné et je n'ai pas eu à passer par la peine d'ajouter manuellement (encore moins de me souvenir de ce que j'avais fait avant).

Dans votre cas, trouvez la zone spécifique dans le registre des utilisateurs, sauvegardez-la, effectuez la mise à jour.

BTW, j'ai récemment mis à niveau de 2003 à 2010 au travail et tous mes paramètres ont survécu et ont été correctement convertis.

J'ai ce script en favori, donc les gens peuvent le faire eux-mêmes chaque fois qu'ils rencontrent un problème avec leur profil Outlook.

• Il vérifie si l'utilisateur souhaite exécuter le script.
• Ferme Outlook.
• Efface les profils configurés dans le registre de l'utilisateur.
• Crée un nouveau profil (*vous pouvez modifier le nom du nouveau profil avec %username% si vous le souhaitez.)
• Ouvre Outlook avec un nouveau profil pour l'utilisateur.

Script :

'
' Utilisez ce script lorsque les e-mails de l'utilisateur restent bloqués dans la boîte d'envoi
' l0c0b0x/jb l'a mis en place le 13/09/2012
' Journal des modifications
' 1.0 version initiale
' 1.1 Ajout de la chaîne de registre pour spécifier un profil par défaut sur le compte
' -----------------------------------------------------------

' Demander à l'utilisateur s'il souhaite continuer avec la recréation de son profil Outlook
intAnswer = _
    Msgbox("Ce script va supprimer et recréer votre profil Outlook sur cet ordinateur. Voulez-vous continuer ?", _
        vbYesNo, "Réinitialiser le profil Outlook")

Si intAnswer = vbYes Then

Else
    WScript.Quit
End If

' Fermer toutes les instances d'Outlook
Set objShell = CreateObject("WScript.Shell") 
Set objWmg = GetObject("winmgmts:") 
strWndprs = "select * from Win32_Process where name='outlook.exe'" 
Set objQResult = objWmg.Execquery(strWndprs) 
For Each objProcess In objQResult
    intReturn = objProcess.Terminate(1) 
Next

' Supprimer les clés de registre pour le profil Outlook
On Error Resume Next
const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
DeleteSubkeys HKEY_CURRENT_USER, strKeyPath

Sub DeleteSubkeys(reghive, KeyPath) 
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")
    objReg.EnumKey reghive, KeyPath, arrrSubkeys 

    If IsArray(arrrSubkeys) Then 
        For Each strrSubkey In arrrSubkeys 
            DeleteSubkeys reghive, KeyPath & "\" & strrSubkey 
        Next 
    End If 

    objReg.DeleteKey reghive, KeyPath 

End Sub
' Ajouter la clé de registre pour le nouveau profil
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\nouveau_profil"
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath

' Ajouter la chaîne de registre pour spécifier le profil par défaut
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
strValueName = "DefaultProfile"
strValue = "nouveau_profil"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue

' Lancer Outlook
objShell.Run "outlook.exe"