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