Get a handle on the current user's profile document in a specific view.

This code collects the username from the current session and looks to the view you have created to get that user's profile document.

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession

Dim thisdb As NotesDatabase
Dim profileview As NotesView
Dim User as String
Dim profiledoc As NotesDocument

Set thisdb = session.CurrentDatabase
Set profileView = thisdb.GetView("User Profiles")
User = session.commonusername
Set profileDoc = profileView.GetDocumentByKey( User, True )   

Posted by fbrefere001 on Monday February 11, 2002