Web上通用注册用户代码[带邮箱],大家快拷贝!
Sub Initialize
Dim session As New notessession
Dim doc As notesdocument
Set doc=session.documentcontext
Dim item_name As notesitem
Dim item_password As notesitem
Dim item_login As notesitem
Set item_name=doc.getfirstitem("Num")
Set item_password=doc.getfirstitem("Password")
Set item_login=doc.getfirstitem("Loginer")
Dim item_nametemp As notesitem
Set item_nametemp=doc.getfirstitem("EnglishNameTemp")
Dim item_formattext As notesitem
Dim item_formattexttemp As notesitem
Set item_formattext=doc.getfirstitem("FormatText")
Set item_formattexttemp=doc.getfirstitem("FormatTextTemp")
Dim sysdb As New notesdatabase("","names.nsf")
REM Messagebox(sysdb.title)
Dim sysview As notesview
Dim sysdoc As notesdocument
Set sysview=sysdb.getview("people")
Set sysdoc=sysview.getdocumentbykey(item_nametemp.text)
Dim dbtemp1 As notesdatabase
Dim dbtemp2 As New notesdatabase("","自己的邮件模板")
Dim acl As notesacl
Dim entry As notesaclentry
If sysdoc Is Nothing Then
Set sysdoc=sysview.getdocumentbykey(item_name.text)
If sysdoc Is Nothing Then
Set sysdoc=sysview.getdocumentbykey(item_login.text)
REM Call sysdoc.copytodatabase(sysdb)
Set sysdoc=sysdb.createdocument
Call sysdoc.replaceitemvalue("form","Person")
Call sysdoc.replaceitemvalue("Type","Person")
sysdoc.lastname=item_name.text
sysdoc.fullname=item_name.text+"/"+item_formattexttemp.text
sysdoc.shortname=item_name.text
sysdoc.httppassword=item_password.text
sysdoc.mailsystem="POP 或 IMAP"
sysdoc.mailfile="mail\"+item_name.text
sysdoc.internetaddress=item_name.text+"@"+item_formattext.text+".com"
sysdoc.owner=item_name.text+"/"+item_formattexttemp.text
sysdoc.localadmin=item_name.text+"/"+item_formattexttemp.text
Call sysdoc.computewithform(False,False)
Call sysdoc.save(True,True)
Set dbtemp1=dbtemp2.createfromtemplate("","mail/"+item_name.text+".nsf",True)
REM 修改ACL
Messagebox("ACL")
Set acl=dbtemp1.acl
Set entry=acl.getentry("system/"+item_formattexttemp.text)
Messagebox("system/"+item_formattexttemp.text)
If Not (entry Is Nothing) Then
entry.name=item_name.text+"/"+item_formattexttemp.text
Call acl.save
Messagebox(entry.name)
Else
Messagebox("NULL")
End If
Set entry=acl.createaclentry("system",ACLLEVEL_MANAGER)
Call acl.save
Set entry=acl.createaclentry("Anonymous",ACLLEVEL_NOACCESS)
Call acl.save
Set entry=acl.getfirstentry
entry.level=ACLLEVEL_NOACCESS
Call acl.save
REM 结束
REM Call sysdoc.save(True,True)
doc.EnglishNameTemp=item_name.text
Call doc.save(True,True)
Else
End If
Else
If item_nametemp.text<>item_name.text Then
Set sysdoc=sysview.getdocumentbykey(item_name.text)
If sysdoc Is Nothing Then
Set sysdoc=sysview.getdocumentbykey(item_nametemp.text)
If sysdoc.getfirstitem("lastname").text<>item_name.text Then
Dim dbtemp3 As New notesdatabase("","mail/"+sysdoc.getfirstitem("lastname").text+".nsf")
Call dbtemp3.remove
Set dbtemp1=dbtemp2.createfromtemplate("","mail/"+item_name.text+".nsf",True)
REM 修改ACL
Messagebox("ACL")
Set acl=dbtemp1.acl
Set entry=acl.getentry("system/"+item_formattexttemp.text)
Messagebox("system/"+item_formattexttemp.text)
If Not (entry Is Nothing) Then
entry.name=item_name.text+"/"+item_formattexttemp.text
Call acl.save
Messagebox(entry.name)
Else
Messagebox("NULL")
End If
Set entry=acl.createaclentry("system",ACLLEVEL_MANAGER)
Call acl.save
Set entry=acl.createaclentry("Anonymous",ACLLEVEL_NOACCESS)
Call acl.save
Set entry=acl.getfirstentry
entry.level=ACLLEVEL_NOACCESS
Call acl.save
REM 结束
Else
End If
sysdoc.lastname=item_name.text
sysdoc.fullname=item_name.text+"/"+item_formattexttemp.text
sysdoc.shortname=item_name.text
sysdoc.httppassword=item_password.text
sysdoc.mailsystem="POP 或 IMAP"
sysdoc.mailfile="mail\"+item_name.text
sysdoc.internetaddress=item_name.text+"@"+item_formattext.text+".com"
sysdoc.owner=item_name.text+"/"+item_formattexttemp.text
sysdoc.localadmin=item_name.text+"/"+item_formattexttemp.text
Call sysdoc.save(True,True)
doc.EnglishNameTemp=item_name.text
Call doc.save(True,True)
End If
Else
sysdoc.lastname=item_name.text
sysdoc.fullname=item_name.text+"/"+item_formattexttemp.text
sysdoc.shortname=item_name.text
sysdoc.httppassword=item_password.text
sysdoc.mailsystem="POP 或 IMAP"
sysdoc.mailfile="mail\"+item_name.text
sysdoc.internetaddress=item_name.text+"@"+item_formattext.text+".com"
sysdoc.owner=item_name.text+"/"+item_formattexttemp.text
sysdoc.localadmin=item_name.text+"/"+item_formattexttemp.text
Call sysdoc.save(True,True)
doc.EnglishNameTemp=item_name.text
Call doc.save(True,True)
End If
End If
Call sysview.refresh
End Sub