Open person document

Hello,

I want to create a button in a way that if user click that button ,person document

belongs to him in address book should open in edit mode so that he can enter his personnel information.Can anyone suggest me the code for this either in formula or lotus script language as i am new to the development.

Thanks in advance

Subject: Open person document

first create a view called (fullname) in the names.nsf dbview selection - SELECT Type = “Person”

first column should be - fullname

the column should be sorted and show mulitple values as separate entries

then add this code to the button (add your server name)

button:

Dim workspace As New NotesUIWorkspace

Dim session As New NotesSession

Dim doc As NotesDocument

Dim uidoc As NotesUIDocument

Dim db As NotesDatabase

Dim user As String

Dim server As String,namesdb As String

Dim view As NotesView

server=""   ' enter server name

namesdb="names.nsf"

user = session.CommonUserName

Set db=session.GetDatabase(server,namesdb)

Set view=db.GetView("(fullname)")

Set doc=view.GetDocumentByKey(user)





Set uidoc = workspace.EditDocument( True,doc)

Subject: RE: Open person document

Thanks a lot i really appreciate your help