VBScript profile creation with cached exchange mode

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top