Script: Persönlichen Ordner erzeugen

Inhalt

Das Script erzeugt für den aktuellen Bearbeiter einen persönlichen Ordner. Dieser erscheint als Root-Ordner, sobald der Bearbeiter eingeloggt ist und kann vom Bearbeiter frei gefüllt werden.

Version

VersionBeschreibungScript
ab Versionen 5.0 Verwendet die Variablen Vertec und argobject. scriptpersordner.txt
ab Version 5.8 Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) scriptpersordner58.txt

Ausführen

Auf dem Bearbeiter, dem der Ordner hinzugefügt werden soll.

Scripttext

'---Bezeichnung: Persönlichen Ordner erzeugen
'   Klassen: Projektbearbeiter
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Dieses Script erstellt für den aktuellen Bearbeiter einen
'   persönlichen Ordner. Dieser erscheint als Root-Ordner,
'   sobald der Bearbeiter eingeloggt ist.
'---05.07 Vertec AG: erstellt.
'---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.

option explicit

dim persordner
dim bearbeiter

if vertec.argobject.isoftype("Projektbearbeiter") then
set bearbeiter = vertec.argobject
set persordner = vertec.CreateObject("PersoenlicherOrdner")
persordner.member("bezeichnung") = "persönliche Ordner"
persordner.member("idx") = 0
persordner.member("canhavesubordner") = True
persordner.member("abstractUserAsRoot").add bearbeiter
else
vertec.msgbox "Persönliche Ordner können nur für Bearbeiter angelegt werden. Bitte führen Sie das Script auf einem Bearbeiter aus.",,"Vertec"
end if

14.08.2006 | 29.10.2013: msgox auf vertec.msgbox geändert. Altes und neues Script zur Verfügung gestellt.
Produktlinien: Expert
Module: Leistung & CRM