例: AddServerToAddressBook method

次のエージェントは、AceOne 上の Domino ディレクトリに SERVER2.ID の文書を追加します。

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  reg.RegistrationServer = "AceOne"
  reg.StoreIDInAddressBook = True
  Call reg.AddServerToAddressBook( _
  "c:¥NotesAdministrator¥server2.id", _ ' ID file
  "AceTwo/AceHardwareNE/AceHardwareCertifier", _ ' full name
  "AceHardware", _ ' server domain
  "AceHardware", _ ' server password
  "", _ ' network
  "Roberta Person/AceHardwareCertifier", _ ' administrator
  "Ace Two", _ ' title field
  "", _ ' location field
  "") ' comment field
End Sub