Ordner per Lotusscript anlegen funktioniert nicht

[jo@chim]

Ich möchte benutzerdefinierte Ordner per Lotusscript anlegen - benötige das, um Suchergebnisse anzuzeigen. Wenn ich SPOFU's benutze, funktioniert das PutAllInFolder aus der Suchroutine nicht, bzw. nicht zuverlässig.

Ich habe mir folgendes Script gebastelt, das ich aus einem Agenten heraus aufrufen will, der ansonsten mit vollständigen Admin-Rechten (manipuliert die ACL) korrekt läuft:

Code

Sub createPersonalFolders(user$)
	Dim session As New NotesSession
	Dim sourceDb As New NotesDatabase("","")
	Dim sourceFolder As NotesDocument
	Dim destFolder As NotesDocument
	
	user$="test"
	
	Set sourceDb=session.Currentdatabase	
	'On Error Resume Next
	ForAll folder In sourceDb.Views
		If folder.IsFolder And folder.Name="SearchFolderTemplate" Then
			Set sourceFolder = sourceDb.GetDocumentByUNID(folder.UniversalID)
			Set destFolder = New NotesDocument( SourceDB )
			Call destFolder.CopyAllItems( sourceFolder,True)
			destFolder.~$TITLE="searchfolder_" & user$ &"|searchfolder_" & user$
			Call destFolder.save(True,False)
			Set destFolder = destDb.GetView(folder.Name)
			Exit forall
		End If
	End ForAll
End Sub

Wenn ich nun mein obenstehendes Script als Subroutine in dem Agenten laufen lasse, hängt sich der Client auf und der Ordner "searchfolder_test" wird auch nicht erstellt.

Hat jemand eine Idee, wo mein Fehler liegen könnte?

[Axel]

Hast du das Recht in der Datenbank persönliche Ordner zu erstellen?

Axel

[Peter Klett]

Wenn ich das richtig verstanden habe, geht es nicht um persönliche Ordner.

Was funktioniert bei SPOFU's nicht (baue nämlich gerade auch so etwas und nutze die dabei)?

Einige Dinge sind mir aufgefallen, ist aber nicht fundiert, sondern nur "Bauchgefühl"


Sub createPersonalFolders(user$)
    Dim session As New NotesSession
    Dim sourceDb As New NotesDatabase("","")
    Dim sourceFolder As NotesDocument
    Dim destFolder As NotesDocument
   
    user$="test"
   
    Set sourceDb=session.Currentdatabase   
    'On Error Resume Next  -> hier würde ich in eine Fehlerroutine springen und mir Details ausgeben lassen
    ForAll folder In sourceDb.Views
       If folder.IsFolder And folder.Name="SearchFolderTemplate" Then
          Set sourceFolder = sourceDb.GetDocumentByUNID(folder.UniversalID) -> m.W. kann man Gestaltungselemente nur über die NoteID, aber nicht über die UniversalID holen, also GetDocumentByID (folder.NoteID), mag aber auch nur in alten Versionen so gewesen sein
          Set destFolder = New NotesDocument( SourceDB )
          Call destFolder.CopyAllItems( sourceFolder,True)
          destFolder.~$TITLE="searchfolder_" & user$ &"|searchfolder_" & user$
          Call destFolder.save(True,False)
          Set destFolder = destDb.GetView(folder.Name) -> wozu?
          Exit forall
       End If
    End ForAll
End Sub

[jo@chim]

Das Recht habe ich Axel. Der Agent sollte es doch auch haben, wenn er signiert ist und mit vollständigen Admin-Rechten läuft, oder? Es geht aber in dem Fall nicht um persönliche Ordner, sondern darum öffentliche Ordner in der Form "searchfolder_benutzername" zu erstellen. Mit SPOFUs hat wie gesagt die Übergabe der Entry Collection nicht zuverlässig funktioniert.

[Peter Klett]

Nochwas

Set destFolder = destDb.GetView(folder.Name)

destDb ist nirgends definiert (aber m.E. eh überflüssig, wie ich schon geschrieben hatte)

[jo@chim]

Wenn ich das richtig verstanden habe, geht es nicht um persönliche Ordner.

Exakt. Ich will öffentliche Ordner per Script anlegen.

Was funktioniert bei SPOFU's nicht (baue nämlich gerade auch so etwas und nutze die dabei)?

Die Übergabe meiner Suchergebnisse per ViewEntryCollection.PutAllInFolder funktionierte zu Beginn, dann plötzlich nicht mehr.
In einem mauell erstellten öffentlichen Ordner werden die Doks aber problemlos angezeigt.

-> m.W. kann man Gestaltungselemente nur über die NoteID, aber nicht über die UniversalID holen, also GetDocumentByID (folder.NoteID), mag aber auch nur in alten Versionen so gewesen sein

Danke, ich werde es einmal damit probieren

Set destFolder = destDb.GetView(folder.Name) -> wozu?
 

Um den Ordner zu initialisieren. Aber ich werde auch das mal auskommentieren.
Und Du hast Recht - wenn dann müsste es sourceDb heissen.

[jo@chim]

Habe das jetzt mit NoteID und ohne das GetView versucht... der Client hängt schon wieder 5min... 

[ascabg]

Hallo,

Hab ich jetzt etwas verpasst.

Wenn ich SPOFU's benutze, funktioniert das PutAllInFolder aus der Suchroutine nicht, bzw. nicht zuverlässig.

Hier sagst Du, dass das PutAllInFolder nicht immer korrekt funktioniert. (in Bezug auf SPOFU)

Jetzt bist Du aber auf 'normale' Ordner umgeschwenkt.
Und bei diesen sollte das "PutAllInFolder" doch eigentlich reibungslos funktionieren.


Andreas

[Peter Klett]

Machst Du das mit agent.RunOnServer? Dann würde ich mal ein paar Prints einbauen und im Log nachschauen, was der treibt und wobei er nicht weiterkommt

[jo@chim]

Nein, ich bin als Manager in der ACL eingetragen, mit entsprechenden Rechten in der ECL des Servers. Das Script legt ansonsten Benutzer in der ACL an, ohne Probleme.

Nach 10min war übrigens soeben die Blockade des Clients aufgehoben. Der Ordner wurde aber nicht erstellt.

[jo@chim]

Habe gerade gesehen, dass es ladürnich

Code

Call SourceFolder.CopyAllItems( destFolder,True)

heissen muss, nicht umgekehrt.
Ich sehe den destFolder aber immer noch nicht nach Neustart des Clients und öffnen der DB...

[jo@chim]

Per RunOnServer exakt dasselbe Verhalten.

[jo@chim]

Hab die Lösung gefunden  Danke für Eure Unterstützung!

http://openntf.org/Projects/codebin/codebin.nsf/CodeByDate/8308E61B8975D3D88625726F004EE4A0/$file/CopyFolder.txt

[Driri]

Dafür brauchst Du (bzw. der Agent) aber mind. Designer-Rechte.

Ich habe mir in einem Agent, der auch einen Ordner anlegen und dann mit dem Ergebnis einer Suche füllen muß, mal mit folgendem Konstrukt beholfen. Ich kann leider nicht mehr sagen, wo ich den Tipp dazu herhabe, aber es funktioniert :

Code

...
Set folder = db.GetView("Ordername")
If (folder Is Nothing) Then
   Call db.EnableFolder("Ordnername")		
End If
...

Dadurch wird der Ordner mit dem Design des Standardordners angelegt und läßt sich auch direkt nutzen.

Dazu auch aus der Designer-Hilfe :

Call notesDatabase.EnableFolder( foldername$ )

foldername$
String. The name of the folder that you want to enable. If the folder does not exist, this method creates a folder.

[jo@chim]

Kurzes Code ist bessres Code - funktioniert ebenfalls. Herzlichen Dank!