Domino 9 und frühere Versionen > ND6: Entwicklung

Richtext nur zur Anzeige

(1/1)

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)
--- Ende Code ---

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!

Navigation

[0] Themen-Index