In all my years of Notes Development, this is my first time I had to return a Profile document to the User, where the profile document existed in another database.

The good news is that this is easier than 123:

1. You will use LotusScript

2. Use the GetProfileDocument method in the NotesDatabase Object, and return it to your NotesDocument Object.

3. Use the EditDocument method in the NotesUIWorkspace Object to return the ProfileDocument to the Current User.


Sub Click(Source As Button)
Dim ss As New NotesSession
Dim ws As New NotesUIWorkspace
Dim condb As NotesDatabase
Dim myprofile As NotesDocument

    ‘ CODE
 Set condb = ss.GetDatabase( “ServerName”, “FilePathAndName” )

    If condb.IsOpen Then
   Set myprofile = condb.GetProfileDocument( “ApplicationPreferences” )
Call ws.EditDocument( True, myprofile )

Messagebox “Cannot find Database. Please contact IT Support”, 0 + 48, “Operation Failed”

   End If

End Sub

Enjoy :)