ResisterNEwuser crééer la boîte aux lettres en arrière plan
Publié: 15 Oct 2010 à 10:50Bonjour
J'ai utilisé la classe ResisterNewuser
JE voudrais savoir si la création reg.CreateMailDb = True est lancé en arreière plan car mon problème est le suivant
Le client est dans un contexte international et lors que je créé les utilsateurs qui sont en france ça passe mais lorsqu'on créé un user par exemple en afrique ( là , il met du temps mais vraiment bcp de temps )
or en passant par la création d'un utilisateur via l'admin ça l'air d'être assez rapide
voic le code:
certchemin=docparamlog.CertPath(0)
Set itemdate=docparamlog.getFirstItem("DateFinId")
Set datetimeid=itemdate.Datetimevalue
servadmin=docparamlog.ServPivot(0)
modele=docparamlog.ModeleBase(0)
quotabase=docparamlog.QuotaBase(0)
alertebase=docparamlog.AlerteBase(0)
'--------------------------------------------------------------------------------------
Dim reg As New NotesRegistration
'dt = DateNumber(Year(Today)+1, Month(Today), Day(Today))
dt = Datenumber(Year(datetimeid.dateonly), Month(datetimeid.dateonly), Day(datetimeid.dateonly))
reg.RegistrationServer = servadmin
reg.CreateMailDb = True
reg.CertifierIDFile = certchemin
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 6 ' password strength
reg.IsNorthAmerican = True
reg.Mailtemplatename=modele
reg.MailInternetAddress=doc.AdresseMailUSer(0)
reg.Shortname=doc.ShortNameUser(0)
'reg.RegistrationLog = "log.nsf"
reg.Mailquotasizelimit=Cint(quotabase)
reg.Mailquotawarningthreshold=Cint(alertebase)
reg.UpdateAddressBook = True
reg.SynchInternetPassword=True
reg.StoreIDInAddressBook = True
Call reg.RegisterNewUser(doc.NomUser(0), _ ' last name
"", _ ' file to be created
doc.ServeurUser(0), _ ' mail server
doc.PrenomUser(0), _ ' first name
"", _ ' middle initial
"*********", _ ' certifier password
"", _ ' location field
"", _ ' comment field
doc.CheminBaseUser(0)+".nsf", _ ' mail file
"", _ ' forwarding domain
pwd, _ ' user password
NOTES_DESKTOP_CLIENT,_ 'user type
)
Merci encore
J'ai utilisé la classe ResisterNewuser
JE voudrais savoir si la création reg.CreateMailDb = True est lancé en arreière plan car mon problème est le suivant
Le client est dans un contexte international et lors que je créé les utilsateurs qui sont en france ça passe mais lorsqu'on créé un user par exemple en afrique ( là , il met du temps mais vraiment bcp de temps )
or en passant par la création d'un utilisateur via l'admin ça l'air d'être assez rapide
voic le code:
certchemin=docparamlog.CertPath(0)
Set itemdate=docparamlog.getFirstItem("DateFinId")
Set datetimeid=itemdate.Datetimevalue
servadmin=docparamlog.ServPivot(0)
modele=docparamlog.ModeleBase(0)
quotabase=docparamlog.QuotaBase(0)
alertebase=docparamlog.AlerteBase(0)
'--------------------------------------------------------------------------------------
Dim reg As New NotesRegistration
'dt = DateNumber(Year(Today)+1, Month(Today), Day(Today))
dt = Datenumber(Year(datetimeid.dateonly), Month(datetimeid.dateonly), Day(datetimeid.dateonly))
reg.RegistrationServer = servadmin
reg.CreateMailDb = True
reg.CertifierIDFile = certchemin
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 6 ' password strength
reg.IsNorthAmerican = True
reg.Mailtemplatename=modele
reg.MailInternetAddress=doc.AdresseMailUSer(0)
reg.Shortname=doc.ShortNameUser(0)
'reg.RegistrationLog = "log.nsf"
reg.Mailquotasizelimit=Cint(quotabase)
reg.Mailquotawarningthreshold=Cint(alertebase)
reg.UpdateAddressBook = True
reg.SynchInternetPassword=True
reg.StoreIDInAddressBook = True
Call reg.RegisterNewUser(doc.NomUser(0), _ ' last name
"", _ ' file to be created
doc.ServeurUser(0), _ ' mail server
doc.PrenomUser(0), _ ' first name
"", _ ' middle initial
"*********", _ ' certifier password
"", _ ' location field
"", _ ' comment field
doc.CheminBaseUser(0)+".nsf", _ ' mail file
"", _ ' forwarding domain
pwd, _ ' user password
NOTES_DESKTOP_CLIENT,_ 'user type
)
Merci encore