Guten Tag!
Ich habe eine Datenbank, in der normale User nur Authorenrechte haben. Diese sollen aber Dokumente per Strg+v hineinkopieren können. Das können sie auch, allerdings können sie diese Dokumente dann nicht bearbeiten, weil sie keine Authorenrechte auf dem Dokument haben. Kann man das irgendwie reintricksen?
Ich führe im Postpaste-Event der NotesUIView ein Script aus, das ein paar Felder in dem Dokument bearbeiten und es speichern soll. Das läuft allerdings auf einen Fehler (you are not Author, yada yada). Wenn ich es mit meinen Manager-Rechten mache, geht es natürlich.
Ich habe nun versucht im Querypaste-Event Authorenrechte zu dem Dokument hinzuzufügen, das hat aber leider nicht geholfen. Gibt da überhaupt eine Chance?
Gruß
SD
PS: Damit habe ich es versucht, aber erfolglos:
Sub Querypaste(Source As Notesuiview, Continue As Variant)
Dim nDocCol As NotesDocumentCollection
Set nDocCol = Source.Documents
Dim nDoc As NotesDocument
Set nDoc = nDocCol.GetFirstDocument
Dim nReaders As NotesItem
Dim nAuthors As NotesItem
While Not nDoc Is Nothing
Set nReaders = New NotesItem(nDoc, "AllReaders", "*", READERS)
Set nAuthors = New NotesItem(nDoc, "AllAuthors", "*", AUTHORS)
Call nDoc.Save(True, False)
Set nDoc = nDocCol.GetNextDocument(nDoc)
Wend
End Sub