Symbol in den Outlines

[iceball]

Hallo Zusammen!
Ich bin gerade daran die Outlines automatisch via Script zu erstellen. Jedoch bin ich dabei auf ein Problem gestoßen. Und zwar legt er mir bei den übergeordneten Einträgen unter den Text ein Ordner-Symbol! Ich hab weder in der Hilfe noch im Web eine Lösung dafür gefunden.
Vielleicht kann mir hier jemand weiterhelfen.
Hier noch mein Code:

Option Public
Option Declare

Sub Initialize()
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim outline As NotesOutline
   Dim oe1 As NotesOutlineEntry
   Dim oe2 As NotesOutlineEntry
   Dim oe3 As NotesOutlineEntry
   Dim oe4 As NotesOutlineEntry
   Dim entry As NotesOutlineEntry
   Dim customer As Variant
   
   Set db = session.CurrentDatabase
   
   'Anlegen der Gliederungseinträge aus den Dokumenten
   customer = workspace.Prompt (PROMPT_OKCANCELEDIT, "new customer...", "Please provide the new customer name.")
   
   If Not IsEmpty (customer) Then
      
      'legt die outline Einträge an
      Set outline = db.GetOutline("OutNavigation")
      'Legt einen NavTitel an      
      Set entry = outline.Createentry(customer)
      
      'Legt die einzelnen NavViews an
      Set oe1 = outline.CreateEntry("XXentry1", entry, True, True)
      Set oe2 = outline.CreateEntry("entry2", entry, True, True)
      Set oe3 = outline.CreateEntry("entry3", entry, True, True)
      Set oe4 = outline.CreateEntry("entry4", entry, True, True)
      
      ' Weist dem NavEintrag eine View hinzu
      Call oe1.SetAction("@SetTargetFrame( 'NotesView' );@Command([OpenView];'ViewByTitleDE' )")
      ' Setzt die Hideformel des NavEintrages
      oe1.HideFormula = "@IsNotMember('[Developer]';@UserRoles)"
      'Aktiviert das Verstecken      
      oe1.UseHideFormula = True
      
      'Speichert das Outline
      
      Call outline.Save()
'Ende Anlegen Gliederungseinträge      
   End If
End Sub

Vielen Dank!

[0xse]

Was ist wenn du bei "Test" den ImagesText auf "" setzt? Vielleicht liegt das nur übereinander, weil die Gestaltung der Gliederung den Text entsprechend einrücken soll?

[iceball]

Hab es gerade probiert:

entry.Imagestext = ""

Jedoch ohne Erfolg!

Hab mir schon überelegt, ob ich manuell einen pseudo Eintrag mache und diesen kopiere?
Aber wenn man dann bei Erweiterungen die Outlines neu anlegt (erst löschen), dann wäre dieser Eintrag auch wieder weg!

[0xse]

Zum Ansatz mit der Vorlage:
Eine unsichtbare Outline, die Dummys für die verschiedenen Ebene enthält, die du dann bei Bedarf rauskopierst und als Vorlage verwendest.

Zum überlagern des Bildes:
Die Outline ist ja sicher in eine Maske oder Seite eingebettet. Da kannst du die Einrückung der Ebenen vorgeben, somit sollte der Text zumindest neben dem Ordner stehen können.