Kan læsere skrive i Profildokumenter
Jeg har en database som i databasescriptet skriver en værdi i brugerens profildokument. Men for de personer som kun er Læser melder den at der ikke er rettigheder til at udføre handlingen.Er det nødvendigt for brugere at have skriveadgang til databasen for at benytte profildokumenter.
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim tekst As Variant
Dim user As String
Set db = session.CurrentDatabase
user = session.UserName
Set doc=db.GetProfileDocument("prodoc", user)
tekstArray = doc.profelt
tekstArray(0)="v"
doc.profelt=tekstArray
Call doc.Save(True,False) ' Her er der fejl hvis bruger er læser
End Sub
