Salut,
Tu peux utiliser RichProfile.exe avec un petit script qui va bien. Ci-dessous. ( source: http://base.faqexchange.info/...
option explicit
on error resume next
' Declare the variables
dim wshNet, wshShell, userName,UserObj, DomainName,ProfileOutlook,ObjFs,testcle,ServeurExchange
dim strcomputer,Arrvalues,CleReg,ObjRegistry
' Create a WshNet object
set wshNet = createObject("wscript.Network")
' Create a wshShell object
set wshShell = createObject("wscript.shell")
' Create an Object File System object
SET objFS=CreateObject ("Scripting.FileSystemObject")
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
UserName=WshNet.username
ServeurExchange="VotreServeurExchange"
' Config Outlook
If objfs.fileexists(WshShell.ExpandEnvironmentStrings("%systemroot%")+"\fonts\outlook.ttf") Then
TestCle=WshShell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"+username+"\0a0d020000000000c000000000000046\000b0340")
If Err.number<>0 Then
Err.clear
ProfileOutlook=WshShell.ExpandEnvironmentStrings("%logonserver%")+"\NETLOGON\richProfile "+ServeurExchange+" "+ username+" "+ username
' msgbox(ProfileOutlook)
wshShell.run ProfileOutlook,,true
Else
wscript.echo "Le profile outlook existe!"
End If
else
wscript.echo "Pas de outlook"
End IF