Sub Postopen(Source As Notesuidocument)
Dim workspace as new notesuiworkspace
Dim session As New NotesSession
Dim User As String
User = session.commonusername
Dim thisdb As NotesDatabase
Set thisdb = session.CurrentDatabase
Dim profileview As NotesView
Set profileView = thisdb.GetView("User Profiles")
Dim uidoc as notesuidocument
Set uidoc = workspace.currentdocument
Dim doc As notesdocument
Set doc = uidoc.document
End Sub