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

用語集