Gliederungseinträge per Formel erstellen

[Claus_1]

Hallo zusammen!!!

Folgendes Problem: In der Gliederung einer Datenbank für Geräte hat jedes Gerät mehrere Unterordner für Schaltpläne, Stücklisten, Bilder usw..
Wie schaffe ich es, daß ich zum Anlegen eines neuen Gerätes mittels Programmcode einen neuen Gliederungseintrag samt zugehörigen Unterordnern automatisch erstellen kann. Die Gliederung habe ich auf eine Seite gezogen und in den Rahmen einer Rahmengruppe eingefügt (also keine Gliederung auf Ansichtsebene!).

Über Hilfe freut sich,
      Claus

[manuel]

Hallo Claus!

Dann will ich mal versuchen, es halbwegs verständlich zu erklären. Vorweg gleich mal: Ja, es ist möglich Gliederungseinträge mittels Programmcode zu erstellen, nur leider wirst du mit Formel nicht weiterkommen. Da brauchste schon ein bissal Script.
Es gibt hierfür die Klassen NotesOutline und NotesOutlineEntry.

Zuerst deklarieren wir mal die ganzen Variablen

     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim outline As NotesOutline
     Dim entry As NotesOutlineEntry

Dann erstellen wir ein Objekt der Klasse NotesOutline und fügen einen neuen Gliederungseintrag hinten an:

     Set db = session.CurrentDatabase
'Gets the outline      
Set outline = db.GetOutline("NameDerGliederung")
'Creates a new outline entry called MyFirstEntry  
'and adds it to the outline
     Set entry = outline.Createentry("MyFirstEntry")

Dem Eintrag muss jetzt noch irgendeine Funktion zugewiesen werden, zB soll er eine Ansicht öffnen:

flag = entry.SetNamedElement( db, "NameDerAnsicht , OUTLINE_CLASS_VIEW)


Am Schluss noch Speichern:

'Saves the outline with its new entry
     Call outline.save()

Beim nächsten mal öffnen der Seite, wird (hoffentlich) der neue Eintrag angezeigt.