Hallo,
ich möchte mit einer Action einen neuen Benutzer anlegen. Dazu benutze ich die Klasse "NotesRegistration". Das Anlegen des Personendokumentes klappt auch wunderbar, leider wird die Mailfile nicht angelegt. Auch manuelles starten des AmdminP's hat keine Abhilfe geschaffen. Fehlermeldungen kann ich auch keine entdecken.
Hat vielleicht jemand eine Idee?
---schnipp---
Sub Click(Source As Button)
Dim newID As New NotesRegistration
Dim CertID As String
Dim ExpDate As Variant
Dim group(0) As String
Dim ReplicaServers As Variant
Dim MailTemplate As String
Dim regServer As String
CertID = "c:\lotus\cert.id"
ExpDate = Datenumber(Year(Today)+2, Month(Today), Day(Today))
group(0) = "Everybody"
ReplicaServers = "Domino03/xxx/DE"
MailTemplate = "iNotes60.ntf"
regServer = "Domino02/xxx/DE"
newID.CertifierIDFile = CertID
newID.CreateMailDb = True
newID.EnforceUniqueShortName = True
newID.Expiration = ExpDate
newID.GroupList = group
newID.RegistrationLog = "log.nsf"
newID.IDType = 172
newID.MailInternetAddress = "xxx@xxx.de"
newID.IsNorthAmerican = False
newID.IsRoamingUser = False
newID.MailCreateFTIndex = False
newID.MailQuotaSizeLimit = 50.0
newID.MailQuotaWarningThreshold = 45.0
newID.MailReplicaServers = ReplicaServers
newID.MailTemplateName = MailTemplate
newID.MinPasswordLength = 8
newID.RegistrationServer = regServer
newID.StoreIDInAddressBook = False
newID.SynchInternetPassword = True
newID.UpdateAddressBook = True
Call newID.RegisterNewUser("Lastname", "c:\xxx.id", "Domino02/xxx/DE", "Firstname", "", _
"secretPass", "", "", "mail\user.nsf", "", "userPass", 176)
End Sub
---schnipp---
Notes/Domino 6.5.1
Thx,
Markus