Hallo Leute,
ich möchte die Benutzerregistrierung stark vereinfachen, und weiß, dass das mit ein paar Feldern und LS ohne größere Probleme funktiert. Das Script hab ich mir von hier rausgezogen, und etwas verändert:
Code
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
vorname = uidoc.FieldGetText("U_Vorname")
nachname = uidoc.FieldGetText("U_Nachname")
passwort = uidoc.FieldGetText("U_Passwort")
passwortbestaetigung = uidoc.FieldGetText("U_Passwortbestaetigung")
gruppenmitglied = uidoc.FieldGetText("U_Gruppen")
zertifiziererid = uidoc.FieldGetText("Z_ID")
zertifiziererpasswort = uidoc.FieldGetText("Z_Passwort")
If vorname = "" Or nachname = "" Or passwort = "" Or passwortbestaetigung = "" Or zertifiziererid = "" Or zertifiziererpasswort = "" Then
Messagebox "Nicht alle Pflichtfelder sind ausgefuellt!"
Goto ENDE
End If
If passwort <> passwortbestaetigung Then
Messagebox "Die Passwoerter stimmen nicht ueberein!" , mb_iconstop, "Fehler in Passwort"
Goto ENDE
End If
Dim session As New NotesSession
Dim reg As New NotesRegistration
registrationname = vorname & "." & nachname
maildomain = "@domain.com"
idpath = "Z:\PATH\PATH\"
mailpath = "mail\"
mailserver = "server/organisation/DE"
reg.CertifierIDFile = zertifiziererid
reg.CreateMailDb = True
reg.IsNorthAmerican = False
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
reg.SynchInternetPassword = True
reg.MailTemplateName = "ORG_Mail85.ntf"
reg.MailOwnerAccess = 0
reg.MailACLManager = "localDomainAdmins"
reg.MailInternetAddress = registrationname & maildomain
reg.RegistrationServer = mailserver
idfile = idpath & registrationname & ".id"
mailfile = mailpath & registrationname & ".nsf"
Call reg.RegisterNewUser(nachname,idfile,mailserver,vorname,,zertifiziererpasswort,,,mailfile,,passwort,,,)
ENDE:
End Sub
Alles anzeigen
Das interessante ist, dass die ID des Benutzers angelegt wird, die MailDB wird angelegt, nur der Benutzer taucht nicht im globalen Adressbuch auf.
Wenn ich mit "reg.AddUsertoAddressBook(..." aufrufe habe ich den Benutzer immer noch nicht im Adressbuch.
Wisst wo wo mein Fehler liegt?
Danke schon mal
Stephan