Hallo und einen Guten Morgen,
ich hätte da gerne ein Problem.
In einer Schaltfläche ist der unten stehende LS-Code definiert.
Gemäß Debugger kommt der Fehler sobald der DocLink eingefügt werden soll und der User erhält
sinngemäß Fehlermeldung "Sie sind nicht zur Ausführung dieser Aktion berechtigt"
System: Notes 8.5.3 FP 6
User hat "Editor"-Recht auf die Datenbank und ist im Dokument auch als Autor gelistet.
Ähnlicher Code funktioniert in anderen DB's einwandfrei, warum in dieser DB nicht
Hat Jemand einen Tipp für mich?
Dim Session As New NotesSession
Dim db As NotesDatabase
Set db = session.currentdatabase
Dim wks As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = wks.CurrentDocument
Dim Doc As NotesDocument
Set Doc = uidoc.Document
.
.
.
Dim Memo As NotesDocument
Set Memo = New Notesdocument(db)
Dim RTI As NotesRichTextItem
Set RTI = New NotesRichTextItem(Memo, "Body")
Memo.Subject = "neuer Eintrag ""Ideenmanagement"" "
Call RTI.AppendText("neuer Eintrag "+Chr(34)+doc.Titel(0)+Chr(34)+" >>> ")
Call RTI.AppendDocLink(Doc, db.Title)
Call Memo.Send(False, Verantwortliche)