.

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: IsProfile property
This example displays the properties of a Profile document.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
profileName = Inputbox("Profile name?")
profileUserName = Inputbox("User name (key)?")
Set doc = db.GetProfileDocument(profileName, profileUserName)
If doc.IsProfile Then
 Messagebox "Profile name: " & doc.NameOfProfile & _
 Chr(10) & _
 "User name (key): " & doc.Key,, doc.NameOfProfile
End If

See Also