Hallo Notes-Gemeinde,
folgendes Problem:
In einer eingebetteten Ansicht in einer Seite oder Maske ist eine Aktion, die mit
@Command([ToolsRunMacro];"Agent")
einen Script-Agenten starten soll.
Die Aktionsleiste der Ansicht zeige ich in der eingebetteten Ansicht an, ebenso den Auswahlrand.
Der Code des Scriptagenten sieht so aus:
Variante 1:
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Msgbox doc.Form(0)
Variante 2:
Dim ws As NotesUIWorkspace
Dim uiview As NotesUIView
Dim doc As NotesDocument
Set ws = New NotesUIWorkspace
Set uiview = ws.CurrentView
Set doc = dc.GetFirstDocument
Msgbox doc.Form(0)
Beides geht nicht, denn es kommt immer die Fehlermeldung
"Dokument ist noch nicht gespeichert"
Wenn ich den Code (Variante 1) direkt in die Aktion als Script-Code einbaue, geht es.
Ich muss aber aus bestimmten Gründen einen Agenten starten.
Hat jemand einen Tipp?
Andreas