.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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