例: GetUserInfo method

次のエージェントは、AceOne 上の Domino ディレクトリから Roberta Person のユーザー情報を取得します。

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  reg.RegistrationServer = "AceOne"
  Call reg.GetUserInfo("Roberta Person", _
  mailserver$, _
  mailfile$, _
  maildomain$, _
  mailsystem%, _
  profile$)
  Messagebox mailserver$,, "Mail server"
  Messagebox mailfile$,, "Mail file"
  Messagebox maildomain$,, "Mail domain"
  If mailsystem% = 1 Then
    mailsystemtext$ = "Notes mail"
  Else
    mailsystemtext$ = "Other than Notes mail"
  End If
  Messagebox mailsystemtext$,, "Mail system"
  Messagebox profile$,, "Profile"
End Sub