Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 28.01.03 - 16:04:34
-
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
-
... so auf die schnelle - ich denke der Ordner existiert noch nicht...
ata
-
Doch das tut er.
Ich habe keinen Schimmer wonach ich suchen soll.
Ciao
Don Pasquale
-
Hmm ich glaube private Ordner sind nur vom Ersteller oder vom Admin der DB sichtbar. Handelt sich bei dir um eine Mail-DB??
-
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
-
hat du in der ACL den "Create personal folders/view" angeklickt ?
cu