Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: jo@chim am 28.06.13 - 09:48:46

Titel: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 09:48:46

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?

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: Axel am 28.06.13 - 10:00:43

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

Axel

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: Peter Klett am 28.06.13 - 10:07:50

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 10:17:43

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.

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: Peter Klett am 28.06.13 - 10:22:39

Nochwas

Set destFolder = destDb.GetView(folder.Name)

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 10:28:38

Zitat von: Peter Klett am 28.06.13 - 10:07:50

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

Exakt. Ich will öffentliche Ordner per Script anlegen.

Zitat von: Peter Klett am 28.06.13 - 10:07:50

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.

Zitat von: Peter Klett am 28.06.13 - 10:07:50

-> 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

Zitat von: Peter Klett am 28.06.13 - 10:07:50

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.

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 10:37:21

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: ascabg am 28.06.13 - 10:42:30

Hallo,

Hab ich jetzt etwas verpasst.

Zitat

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: Peter Klett am 28.06.13 - 10:48:19

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 10:53:44

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.

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 11:06:51

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...

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 11:09:37

Per RunOnServer exakt dasselbe Verhalten.

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 11:27:43

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

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

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: Driri am 28.06.13 - 12:17:50

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 :

Zitat

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.

Titel: Re: Ordner per Lotusscript anlegen funktioniert nicht
Beitrag von: jo@chim am 28.06.13 - 13:47:49

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