Name der aktuell geöffneten "persönlichen" View ermitteln

[Alexander 28]

Hallo. Habt ihr eine Idee, wie ich den Namen einer geöffneten View auslesen kann, wenn es sich um eine persönliche handelt, die in der desktop.dsk gespeichert ist? habe es mit ...

Set view = ws.Currentview.View

und

Dim viewname As Variant
viewname = Evaluate(|@UpperCase(@ViewTitle)|)

probiert. Klappt nur bei öffentlichen Ansichten. Bei pers. ist Return leer.
Gibts einen anderen Weg?

Gruß Alex

[Driri]

Du hast aber schon mit view.Name oder view.Aliases auf die Namen zugegriffen, oder ?

Edit : Habs gerade ausprobiert, funktioniert nicht.

Dann nimm doch einfach die NotesUIView und lies dann über die ViewName-Property den Namen aus. Das funktioniert auch bei lokalen gespeicherten Ansichten.

Set uiview = ws.CurrentView
viewname = uiview.ViewName

[marschul]

Wenn ich mich richtig erinnere, kommt man bei privaten Views im Desktop über den Weg der UIView nicht an die Backend-View heran. Die Frontend-View geht m.W. aber und diese hat auch die Properties .ViewName und .ViewAlias (siehe Designer-Hilfe).

[Alexander 28]

Stimmt, den ViewNamen habe ich nun. Aber jetzt möchte ich alle Docs in der View in eine EntryCollection packen um sie danach in einen Ordner zu kopieren. Leider liefern mir    

Dim vc As NotesViewEntryCollection
Set vc = view.Allentries

einen Fehler zurück. Hier mal mein Code.

Code

Function GrafikDieseAnsicht( ansichtname As String )

	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim newuidoc As NotesUIDocument
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim NotesUIView As NotesUIView

	Dim newdoc As NotesDocument
	Dim viewname As Variant
	Dim profildoc As NotesDocument
	Set db = session.CurrentDatabase
	Set profildoc = db.GetProfileDocument("CNF Feiertage")
	

	Dim vc As NotesViewEntryCollection

	
	If ansichtname = "" then
		Set view = ws.Currentview.View

	Else
		
		Set NotesUIView = ws.Currentview
		viewname = NotesUIView.Viewname
				
		Set view = db.Getview(viewname)
				
	End If
	
	view.AutoUpdate = False
	Set vc = view.Allentries

       Call vc.Putallinfolder("Buecher", True)
End Function

Wenn ich die vc mit den docs einer öffentlichen view fülle klappt es problemlos.
wie kriege ich die docs in der aktuellen privaten view in meinen ordner?

[m3]

1) Fehlerbehandlung einbauen
2) Genaue Fehlermeldung. Mit "einen Fehler" fangt niemand was an

[marschul]

Das Set View = Db.GetView(ViewName) instanziert die Objektvariable vermutlich entweder gar nicht (falls die private View allein besteht) oder mit der "Vorlage"-View (wenn es heißt "Öffentlich - privat bei erster Benutzung"). Ist dann eine Selektion mit @UserName enthalten, ist die öffentliche Basis-View natürlich leer.
Alternative: Baue das Select nach (geht auch dynamisch) und mach ein Db.Search. Ist zwar langsamer als die EntryCollection, aber sollte zum gewünschten Ergebnis führen...

[Alexander 28]

Ja, das leuchtet mir ein. Mal schauen wie ich weitermache. Der Fehler den ich bekomme heißt übrigens: "Index kann nicht auf dem Server erstellt werden."