例: UserNameList property

次のエージェントは、現在のユーザーの共通名を出力して、別名が存在することを確認します。

Sub Initialize
  Dim session As New NotesSession
  ulist$ = session.Usernamelist(0).Common & Chr(13)
  If Ubound(session.Usernamelist) > 0 Then
    ulist$ = ulist$ & session.Usernamelist(1).Common & _
    " (alternate)"
  Else
    ulist$ = ulist$ & "No alternate name"
  End If
  Messagebox ulist$,, "User name"
End Sub