"Geht nicht gibts nicht", wie's bei Tode so schön zu lesen ist ;) Und es geht sogar sehr einfach:
Sub CreateMyFolder(defaultview as String, foldertemplate as String, foldername as String)
'defaultview - Vorgabeansicht der Datenbank
'foldertemplate - Notes View als Ordnervorlage
'foldername - Name des zu erstellenden Ordners
Dim session As New NotesSession
Dim db As NotesDatabase
Dim folder As NotesView
Set db = session.CurrentDatabase
Set folder=db.Getview(foldertemplate)
folder.Isdefaultview=True
Call db.EnableFolder(foldername)
Set folder= db.GetView(defaultview)
folder.Isdefaultview=True
Exit Sub
Wir hatten im 8er Entwicklungsbereich darüber diskutiert - mit dieser Lösung geht es sehr einfach, benutzerspezifische Ordner anzulegen und endlich endlich endlich auf die SPOFU :-: zu verzichten.