LOTUSSCRIPT/COM/OLE CLASSES
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