Ic hab hier mal noch den Quellcode, mit dem ich den Ordner erzeuge und den Gliederungseintrag erstelle.
Im letzten Teil wird dann die Navigationsseite ("navi") im linken Frame ("left") neu geladen, was ja wie beschrieben nicht so funktioniert wie's soll.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidb As NotesUIDatabase
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim outline As NotesOutline
Dim entryA As NotesOutlineEntry
Dim entryB As NotesOutlineEntry
Dim macro, pre_macro, post_macro As String
Set db = session.CurrentDatabase
Set uidb = workspace.CurrentDatabase
Set uidoc = workspace.CurrentDocument
'Dokument speichern
Call uidoc.Save()
'Ordner erzeugen
folderName = uidoc.FieldGetText("NBAktion_Name")
Call db.EnableFolder(folderName)
pre_macro = |@UpdateViewDesign("|
post_macro = |" ;"Vorlage")|
macro = (pre_macro & folderName & post_macro)
Evaluate(macro)
'In Gliederung eintragen
Set outline = db.GetOutline("ordner")
Set entryA = outline.GetLast()
Set entryB = outline.Createentry(folderName,entryA,1)
Call entryB.SetNamedElement(db,folderName,OUTLINE_CLASS_FOLDER)
entryB.FrameText = "main"
entryB.ImagesText ="blind.gif"
Call outline.save()
'Ansicht und Navi laden
Call workspace.SetTargetFrame("left")
Call workspace.openPage("navi")
Call workspace.ReloadWindow( )
End Sub
Wie gesagt, ich bin für jede Hilfe dankbar.
Gruß
semtex