想做一个注册功能

这个你可以设置匿名页，代理的权限设置为最高。

使用NotesRegistration对象的注册用户方法进行注册，你需要在服务器保存组织ID用于注册。

Syntax
variant = notesRegistration .RegisterNewUser( lastname$ , idfile$ , mailserver$ [, firstname$ [, middle$ [, certpw$ [, location$ [, comment$ [ , maildbpath$ [ , fwddomain$ [ , userpw$ [, usertype% [, altname [ , altnamelang ]]]]]]]]]]] )
Parameters
lastname$

String. The last name of the user to be registered.

idfile$

String. The ID file to be created; specify the complete path, for example, c:\notes\data\user.id.

mailserver$

String. The canonical name of the server containing the user's mail file.

firstname$

String. A first name for the user.

middle$

String. A middle initial for the user.

certpw$

String. The password of the certifier ID file.

location$

String. A value for the location field in the Domino Directory record.

comment$

String. A value for the comment field in the Domino Directory record.

maildbpath$

String. The path of the user's mail file relative to the mail directory; for example, mail\jones.nsf.

fwddomain$

String. The forwarding domain for the user's mail file.

userpw$

String. A password for the user ID file.

usertype%

Examples: RegisterNewUser method
1.This agent registers JYIP.ID with CERT.ID.
Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  dt = Datenumber(Year(Today)+1, Month(Today), Day(Today))
  reg.RegistrationServer = "AceOne"
  reg.CreateMailDb = False
  reg.CertifierIDFile = "c:\NotesAdministrator\cert.id"
  reg.Expiration = dt
  reg.IDType = ID_HIERARCHICAL
  reg.MinPasswordLength = 5          ' password strength
  reg.IsNorthAmerican = True
  reg.OrgUnit = "AceHardwareNE"
  reg.RegistrationLog = "log.nsf"
  reg.UpdateAddressBook = True
  reg.StoreIDInAddressBook = True
  Call reg.RegisterNewUser("Yip", _  ' last name
  "c:\NotesAdministrator\jyip.id", _ ' file to be created
  "CN=Mail_AceOne/O=AceHardware", _  ' mail server
  "Jimmy", _                         ' first name
  "", _                              ' middle initial
  "AceHardware", _                   ' certifier password
  "", _                              ' location field
  "", _                              ' comment field
  "jyip.nsf", _                      ' mail file
  "", _                              ' forwarding domain
  "AceHardware", _                   ' user password
  NOTES_DESKTOP_CLIENT)              ' user type
End Sub2.This agent registers three new users and sets their alternate user name and the language for the alternate user name.

Sub Initialize
  Dim reg As New NotesRegistration
  Dim orgs (0 To 10) As String
  Dim langs (0 To 10) As String

  reg.RegistrationServer = "AceOne"
  reg.CreateMailDB = True
  reg.CertifierIDFile = "c:\lotus\notes\cert.ID"
  reg.Expiration = Today + 1095
  reg.IDType = ID_HIERARCHICAL
  reg.IsNorthAmerican = False
  reg.MinPasswordLength = 5  ' password strength
  reg.OrgUnit = "Organization"
  reg.UpdateAddressBook = True
  reg.StoreIDInAddressBook = True

  orgs(1) = "Japanese OU"
  langs(1) = "ja"
  orgs(2) = "PRC OU"
  langs(2) = "zh-CN"
  orgs(3) = "Korean OU"
  langs(3) = "ko"
  reg.AltOrgUnit = orgs
  reg.AltOrgUnitLang = langs

  Call reg.RegisterNewUser("Taylor", _
  "c:\lotus\notes\MTaylor.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org",_
  "Mike" , _
  "", _
  "certpass", _
  "West", _
  "Engineer", _
  "mail\MTaylor.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Japanese name for Mike", _
  "ja")

  Call reg.RegisterNewUser("Miller", _
  "c:\lotus\notes\JMiller.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org", _
  "Jane", _
  "", _
  "cerpass", _
  "West", _
  "Engineer", _
  "mail\JMiller.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Chinese name for Jane", _
  "zh-CN")

  Call reg.RegisterNewUser("O'Brien", _
  "c:\lotus\notes\SOBrien.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org", _
  "Steve", _
  "", _
  "certpass", _
  "East", _
  "Engineer", _
  "mail\SOBrien.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Korean name for Steve", _
  "ko")
End Sub