例: AddUserToAddressBook method

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

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  reg.RegistrationServer = "AceOne"
  reg.StoreIDInAddressBook = True
  Call reg.AddUserToAddressBook( _
  "c:¥NotesAdministrator¥jyip.id", _   ' ID file
  "Jimmy Yip/AceHardwareCertifier", _  ' full name
  "Yip", _                             ' last name
  "AceHardware", _                     ' user password
  "Jimmy", _                           ' first name
  "", _                                ' middle initial
  "CN=Mail_AceOne/O=AceHardware", _    ' mail server
  "jyip.nsf", _                        ' mail file
  "", _                                ' forwarding address
  "", _                                ' location field
  "")                                  ' comment field
End Sub