Ahoi Matrosen
Ich möchte gerne alle ausgewählten Dokumente einer View in einer Tabelle in einem RTF für den anschliessenden Druck anzeigen.
Das RTF, bzw. das darunterliegende Dokument muss nur während dem Drucken existieren und kann anschliessend wieder ne Fliege machen.
Mein Versuch:
Dim session As New NotesSession
Dim database As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uiView As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem
Set uiView = workspace.CurrentView
Set dc = uiView.Documents
Set database = session.CurrentDatabase
Set doc = database.CreateDocument
Set rtItem = doc.CreateRichTextItem("Body")
doc.Form = "(printSummary)"
Call rtItem.AppendText("some text")
'für die Anzeige, muss das Dokument gespeichert werden
doc.Save True, False
Call workspace.EditDocument(False, doc, True, , True)
'nun kann es aber wieder gelöscht werden
Call doc.RemovePermanently (True)
Das Problem dabei: Man benötigt Löschrechte.
Gibt's da Alternativwege, oder kann ich den Richtext auch anzeigen, ohne das Doc zu speichern... irgendwie....?
Danke & Grüsse
Moritz
