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.
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?