glaube ich hab nicht die richtige Berechtigung für .runonserver...
Anbei das Initialize aus dem Agenten
Sub Initialize
'*****************************************************************************************************
'Dieser Agent wird im Querysave der Maske "Leiharbeitnehmer anlegen" beim Erstellen
'der An- /Abmeldung gestartet. Die übergebene DocID bezieht sich auf das per Script
'erstellte Dokument
'*****************************************************************************************************
Dim s As New notessession
Dim db As notesdatabase
Dim agent As NotesAgent
Dim doc As notesdocument
'*****************************************************************************************************
Set agent = s.CurrentAgent
Print agent.ParameterDocID
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(agent.ParameterDocID)
Print "DocID gefunden"
'Erforderliche Daten auslesen
If Not (doc Is Nothing) Then
Call VariablenAuslesen(doc)
Call EmailVorbereiten(db,doc)
End If
End Sub
Aufgerufen wird der Agent mit folgendem Code:
.........
If Art = "aufgenommen" Then
doc.Beginn = Beginn
Else
doc.Ende = Ende
End If
Call doc.Save(True,True)
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("BENACHRICHTIGUNG - Buttonänderung")
If agent.RunOnServer(doc.NoteID) = 0 Then
Messagebox "Agent ran",, "Success"
Else
Messagebox "Agent did not run",, "Failure"
End If
'Call agent.RunOnServer(doc.NoteID)
.......
Er zeigt zwar die msgbox "Agent ran", aber die print-Befehle des Agenten werden nicht ausgeführt. Habe ich hier nen Denkfehler?
Gruß
Demian