Hallo liebe Community,
ich habe nachfolgendes Problem:
Ich versuche über einen Button in einer Ansicht ein Dokument zu verändern, an dem der Nutzer nur Leserechte hat.
Ich rufe den Agenten über
NoteID = doc.NoteID
Call agent.RunOnServer(NoteID)
auf.
Der Agent meldet mir dann :
Fehler 91: Object variable not set in Zeile 20aufgetreten
In dieser Zeile greife ich das erste mal aufs Doc zu, welches ich vorher über die Parameterdocid geholt gehabt dachte...
Ich dachte immer, dass man das so machen kann. Wenn man nur Leserechte hat, über einen Agenten Änderungen an Dokumenten vornehmen.
Der Agent ist mit dem Server signiert. Jemand ne Idee ?
Besten Gruß
Thorsten
Der Agent bis zur Zeile, in der der Fehler auftritt:
On Error GoTo Fehlermeldung
Dim agentLog As New NotesLog("Agentenprotokoll")
Call agentLog.OpenAgentLog
Dim s As New NotesSession
Dim agent As NotesAgent
Set agent = s.CurrentAgent
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim user As NotesName
Set db = s.Currentdatabase
Set doc = db.GetDocumentByID(agent.Parameterdocid)
doc.removeItem("Feld") <-- Das ist Zeile 20
Der Code des Buttons:
On Error Goto Fehlermeldung
Dim s As New Notessession
Dim db As Notesdatabase
Dim dc As Notesdocumentcollection
Dim doc As Notesdocument
Dim agent As Notesagent
Dim NoteID As String
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set agent = db.GetAgent("Agentenname")
Set doc = dc.GetFirstDocument
NoteID = doc.NoteID
Call agent.RunOnServer(NoteID)