LOTUSSCRIPT/COM/OLE CLASSES

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