Dokument in RTF kopieren

[Sillik]

hi,

ich will ein dokument senden. In der Aktionsleiste hab ich den Senden Button. Wenn ich den öffne soll erst eine neue Maske geöffnet werden (weil ich beim direkten senden probleme krieg) in der ich ein RTF hab. In dieses RTF will ich das komplete Dokument kopieren und dann senden.

Wie mache ich das?

[Glombi]

Hi,
manuell mit Weiterleiten und programmtechnisch mit @Command([MailForward]).

In Script gibt es dann noch
flag = notesDocument.RenderToRTItem( notesRichTextItem )

Andreas

[Sillik]

Ok, das müste hinhaun. Aber wie öffne ich eigentlich per skript eine maske?  

[koehlerbv]

Hm, per Script "eine Maske" öffnen ist sicher nicht Deine Frage, Du willst bestimmt ein Dokument öffnen.
Und da schau mal bitte nach der Methode
NotesUIWorkspace.EditDocument

Mächtig, aber easy.

Bernhard

[Sillik]

Doch, ich will eine Maske öffnen. Und zwar hab ich in dieser Maske, die ich öffnen will nur das Feld Body (RTF) Und in dieses Feld will ich das Dokument das der User aktuell bearbeitet hineinkopieren, damit ich das dann versenden kann. Wenn ich direkt das aktuelle Dokument versende bekomm ich "Illegal Circular Use" Fehler (Diese Maske hab ich nicht erstellt, da will ich nicht rumpfuschen).

Also einfach nur das komplette doc in das RTF Feld der anderen Maske. Und für die Lösung von Glombi muss ich ja die Maske mit dem RTF öffnen...

[klaussal]

hi,

einfacher wäre es wohl, eine neue maske zu kreieren, ein doclink anzuhängen und dann dieses neue doc zu mailen.

[Glombi]

Hi Silik,
mit der Methode renderToRTItem musst Du das Dokument nicht im UI öffnen. Die Methode muss auf das Backenddokument angewendet werden.

Andreas

[Performance]

HILFE + HILFE + HILFE + HILFE + HILFE + HILFE
Example: RenderToRTItem method  

This script creates a picture of document A and places it into the Body item of the newly-created document B.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitem As NotesRichTextItem
Dim success As Variant
Set db = session.CurrentDatabase
'...set value of docA...
Set docB = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( docB, "Body" )
docB.Form = "Main Topic"
docB.Subject = "It's a picture of the document"
Call docB.Save( True, True )
success = docA.RenderToRTItem( rtitem )
Call docB.Save( True, True )
HILFE + HILFE + HILFE + HILFE + HILFE + HILFE

cu

[eknori]

"Illegal Circular Use" Fehler (Diese Maske hab ich nicht erstellt, da will ich nicht rumpfuschen).

die ist doch schon verpfuscht; möglicherweise hast du in letzter Zeit ein Update gemacht und eine ScriptLib, auf die die Maske zugreift ist nicht mehr da.
Gehe mal in die Gestaltung der Maske und schau nach, welche "Use" anweisungen da sind, dann vergleiche das mal mit den Libs in deiner DB. Auch mal in die Libs reinschauen, auf welche anderen Libs verwiesen wird.

Und zu guter Letzt den mit ins Boot nehmen, der die Maske erstellt hat.

Alles Andere ist IMHO Murks.

eknori

[Sillik]

Der Code aus der Hilfe haut hin, thx

[eknori]

immer das Gleiche: lieber die Symptome bekämpfen als die Ursachen zu beseitigen !!