Richtext nur zur Anzeige

[Untitled]

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:

Code

	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

[Driri]

Zur Not setz einen Flag im Dokument und laß das Löschen einen Agent erledigen. Der kann dann ja z.B. nachts mit Server- oder Admin-ID laufen.

[Untitled]

Gute Idee.

Danke!