Sub Postopen(Source As Notesuidocument)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As notesdatabase
Set db = session.currentdatabase
source.EditMode = True
Dim doc As notesdocument
Set doc = source.document
Dim ACL As NotesACL
Set ACL = db.ACL
doc.CurrentRoles = ACL.Roles
End Sub