Frage zu Privaten Ordnern

[Don Pasquale]

Hallo Leute,


ich habe eine DB mit Private on First Use Ordnern.
Bei Usern mit Admin Rechten kann ich das folgende Skript
aufrufen, bei allen anderen Nutzern bekomme ich
die Fehlermeldung
"Can´t move document to shared Private On First Use Folder (Eigene Dokumente)"

   Dim ws As New NotesUiWorkspace
   Dim s As New NotesSession
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Dim db As NotesDatabase
   
   Dim ORDNER_DOKS_NACH_INITIATOREN As String
   Dim ORDNER_DOKS_NACH_SENDEN_AN As String
   Dim ORDNER_EIGENE_DOKUMENTE As String
   
   ORDNER_DOKS_NACH_INITIATOREN =  "_Initiator"
   ORDNER_DOKS_NACH_SENDEN_AN = "_Senden"
   ORDNER_EIGENE_DOKUMENTE  = "Eigene Dokumente"
   
   
   Set db = s.CurrentDatabase  
   Set view = db.GetView(ORDNER_DOKS_NACH_INITIATOREN)      
   Set dc = view.GetAllDocumentsByKey(s.CommonUserName, True)
   Call dc.PutAllInFolder( ORDNER_EIGENE_DOKUMENTE )
   Set view = db.GetView(ORDNER_DOKS_NACH_SENDEN_AN)      
   Set dc = view.GetAllDocumentsByKey(s.CommonUserName, True)
   Call dc.PutAllInFolder(ORDNER_EIGENE_DOKUMENTE )
   Set view = db.GetView( ORDNER_EIGENE_DOKUMENTE )      
   Call ws.ViewRefresh

Hat da jemand eine Idee ?

Ciao

Don Pasquale

[ata]

... so auf die schnelle - ich denke der Ordner existiert noch nicht...

ata

[Don Pasquale]

Doch das tut er.

Ich habe keinen Schimmer wonach ich suchen soll.


Ciao

Don Pasquale

[Fis]

Hmm ich glaube private Ordner sind nur vom Ersteller oder vom Admin der DB sichtbar. Handelt sich bei dir um eine Mail-DB??

[Don Pasquale]

Es handelt sich um eine Mail-Inn DB, in der jeder Mitarbeiter sich einen eigenen privaten Ordner erstellen soll.

Die Aktionen löschen aus Ordner und Verschieben in Ordner werden
nur vom jeweiligen Client aus versucht, aber gelingen nur auf Rechner
von Nutzern mit Admin Rechten und nicht bei Usern mit Autoren Rechten.

Hat noch jemand eine Idee ?


Ciao

Don Pasquale

[Performance]

hat du in der ACL den "Create personal folders/view" angeklickt ?

cu