Examples: UserNameList property

This agent prints the common names for the current user, checking to make sure the alternate name exists.

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