LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetUserInfo method
This agent gets user information for Roberta Person from the Domino Directory on AceOne.

Sub Initialize
 Dim session As New NotesSession
 Dim reg As New NotesRegistration
 reg.RegistrationServer = "AceOne"
 Call reg.GetUserInfo("Roberta Person", _
 mailserver$, _
 mailfile$, _
 maildomain$, _
 mailsystem%, _
 profile$)
 Messagebox mailserver$,, "Mail server"
 Messagebox mailfile$,, "Mail file"
 Messagebox maildomain$,, "Mail domain"
 If mailsystem% = 1 Then
   mailsystemtext$ = "Notes mail"
 Else
   mailsystemtext$ = "Other than Notes mail"
 End If
 Messagebox mailsystemtext$,, "Mail system"
 Messagebox profile$,, "Profile"
End Sub

See Also