Hi,
This code is code to create Id creation for input given in the excel.
Getting error after call registernew user as "Notes error: Access to data is denied".
Sub Initialize
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim reg As New NotesRegistration
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim Adminp As NotesAdministrationProcess
Dim xlApp, xlSheet,XLWB,rows,filename As Variant
Dim FirstName,MiddleName,LastName,ShortName,MailServer,UIDFile,Group,MailSentTo,OU,CertIdFilePath As String
Dim certpwd,uidfilepwd,mailfilepath,FinalPath As String
Dim InternetAdd As String
FileName:
filename = ws.Openfiledialog(False, "Select To Upload file","", "C:\Users\Meenu\Desktop\")
If IsEmpty(filename) Then
Exit Sub
End If
If CStr(filename(0))=" " Then
MsgBox "Please select File"
GoTo FileName
End If
Set xlApp=CreateObject("Excel.Application")
Set XLWB=XLApp.Workbooks.Open(FileName)
xlApp.Visible=True
Set XlSheet=XLWB.Sheets("Id Creation Template")
rows=2
Set Adminp = s.createAdministrationProcess("Hub/Wipro")
While Trim (xlSheet.Cells(rows,1).Value)<>""
FirstName = CStr(Trim(xlSheet.Cells(rows,1).value))
MiddleName = CStr(Trim(xlSheet.Cells(rows,2).value))
LastName = CStr(Trim(xlSheet.Cells(rows,3).value))
ShortName = CStr(Trim(xlSheet.Cells(rows,4).value))
MailServer = CStr(Trim(xlSheet.Cells(rows,5).value))
CertIdFilePath = CStr(Trim(xlSheet.Cells(rows,6).value))
OU = CStr(Trim(xlSheet.Cells(rows,7).value))
UIDFile = CStr(Trim(xlSheet.Cells(rows,8).value))
Group = CStr(Trim(xlSheet.Cells(rows,9).value))
MailSentTo = CStr(Trim(xlSheet.Cells(rows,10).value))
mailfilepath = "mail\"+CStr(shortname)
InternetAdd = FirstName+"."+LastName+"@wipro.com"
reg.RegistrationServer = "Hub/Wipro"
reg.CreateMailDB = True
reg.CertifierIDFile = "c:\lotus\notes\cert.ID"
reg.Expiration = Today + 1095
reg.IDType = ID_HIERARCHICAL
reg.IsNorthAmerican = False
reg.MinPasswordLength = 5
reg.OrgUnit = "Organization"
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
reg.Certifiername = OU
reg.Certifieridfile = CertIdFilePath
reg.Mailinternetaddress = InternetAdd
'reg.Orgunit =
Call reg.Registernewuser(LastName,UIDFile,MailServer,FirstName,Middlename,"password","","",mailfilepath,"","password","175")
rows = rows +1
Wend
End Sub
Feedback number WEBB8VJGEM created by Meena Ramesh on 05/23/2013
 |