Hallo,
ich möchte über eine Script - Funktion Dokumente in einer Ansicht selektieren. Diese sollen anschliessend gedruckt werden. Leider werden die Dokumente nicht selektiert.
-> Die Funktion springt im if-Teil in den True - Bereich
Hier mein Script:
Dim ws As New NotesUIWorkSpace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ddoc As NotesDocument
Dim view As NotesView
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim sdoc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView(" viwTodoByDate")
Set uiview = ws.CurrentView
Set ddoc = db.CreateDocument
flag = ws.DialogBox("dlgSelectPrintView", True, True, True, False, False, False, "Drucken...", ddoc, True, False)
Set doc = view.GetFirstDocument
While Not doc Is Nothing
If IsMember(ddoc.fdPersonen, doc.fdMitarbeiter) = True Then
uiview.SelectDocument(doc)
End If
Set doc = view.GetNextDocument(doc)
Wend
Call uiview.Print(,,,,, True)