L
Ludovick LAGREVOL
Hi,
i'm trying to create a profile with cached exchange mode with Dimastr DLL
profman.dll
all is ok except the cached mode....
where am i wrong ?
Set Profiles=CreateObject("ProfMan.Profiles")
.........
PR_PROFILE_UNRESOLVED_NAME = &H6607001E
PR_PROFILE_UNRESOLVED_SERVER = &H6608001E
PR_PROFILE_CONFIG_FLAGS = &H6632000B
CONFIG_OST_CACHE_PRIVATE = &H00000180
.....
Set NewProfile = Profiles.Add(ProfileName, false, false)
....
Set ExchService = NewProfile.Services.Add("MSEMS", "Microsoft Exchange",
false)
Set Properties = CreateObject("ProfMan.PropertyBag")
Properties.Add PR_PROFILE_UNRESOLVED_NAME, myusr
Properties.Add PR_PROFILE_UNRESOLVED_SERVER, "xxxxxxxxxxxx"
'Try to set exchange cached mode :
Properties.Add PR_PROFILE_CONFIG_FLAGS, CONFIG_OST_CACHE_PRIVATE
'
ExchService.Configure 0, , Properties
i'm trying to create a profile with cached exchange mode with Dimastr DLL
profman.dll
all is ok except the cached mode....
where am i wrong ?
Set Profiles=CreateObject("ProfMan.Profiles")
.........
PR_PROFILE_UNRESOLVED_NAME = &H6607001E
PR_PROFILE_UNRESOLVED_SERVER = &H6608001E
PR_PROFILE_CONFIG_FLAGS = &H6632000B
CONFIG_OST_CACHE_PRIVATE = &H00000180
.....
Set NewProfile = Profiles.Add(ProfileName, false, false)
....
Set ExchService = NewProfile.Services.Add("MSEMS", "Microsoft Exchange",
false)
Set Properties = CreateObject("ProfMan.PropertyBag")
Properties.Add PR_PROFILE_UNRESOLVED_NAME, myusr
Properties.Add PR_PROFILE_UNRESOLVED_SERVER, "xxxxxxxxxxxx"
'Try to set exchange cached mode :
Properties.Add PR_PROFILE_CONFIG_FLAGS, CONFIG_OST_CACHE_PRIVATE
'
ExchService.Configure 0, , Properties