Hallo,
ich schon wieder. Und zwar biete ich eine Suchfunktion an. Im Prinzip werden die Dokumente per Script je nach Auswahl gesucht und zum Anzeigen in einen Ordner verschoben.
Im Detail funktioniert das so. Der Benutzer drückt einen Button in einer Ansicht. Die öffnet zunächst den privaten Ordner per Formel-Sprache. Dadurch wird der Ordner erstellt, wenn er noch nicht vorhanden ist. Anschließend wird ein Agent gestart.
@SetTargetFrame("NotesView" );
@Command([OpenView]; "geschaefteFolder");
REM {@Command([ToolsRunMacro]; "(Eingrenzer)")};
@Command([RunAgent]; "(Eingrenzer)")
Der Agent sucht die Dokument und soll diese anschließend in den privaten Ordner einfügen. Und genau hier liegt das Problem. Der Agent kann den privaten Ordner des aktuellen Nutzers einfach nicht initialisieren.
...
Dim view1 As NotesView
'Set view1 = db.GetView("AusgewählteDokumente")
Set view1 = uiws.CurrentView.View
If Not view1 Is Nothing Then '<-- view1 is nothing
Call view1.AllEntries.RemoveAllFromFolder(view1.Name)
Call doccolForFolder.PutAllInFolder(view1.Name,False)
End If
...
Woran kann das liegen? Sieht der Agent die private Ansicht des Benutzers nicht?
Vielen Dank für eure Hilfe.