Domino 9 und frühere Versionen > Entwicklung

RenderToRTItem in Zwischenablage

<< < (3/4) > >>

Glombi:
Habe es auf die Schnelle getestet - so ginge es:

@Command([MailForward]);
@Command([EditGotoField];"Body");
@Command([EditSelectAll]);
@Command([EditCopy]);
@Command([FileCloseWindow])

Es kommt nur die eigene Signature dazu, wenn man Weiterleitet. Das kann stören.

Andreas

TMC:
Hmm, danke.

Mein Ziel ist es eigentlich, nur einen Code zu haben (z.B. in einem Agenten). Und diesen Agenten kann ich dann sowohl in einem Mailfile einsetzen (ohne eine zusätzliche Maske reinzukopieren) als auch in anderen DB's.

Daher würde ich das ganze gerne ohne weitere Masken machen.

Hintergrund:
Z.B. von einem Mailfile (MailIn) aus sollen Mail-Dokumente in andere DBs übernommen werden. Dies mache ich, indem ich Buttons bzw. Agenten zur Verfügung stelle, um Items von Mails in neue Doks in anderen DBs rüberzuschaufeln. Allerdings sind manchmal Mails dabei, für die es nicht lohnt, extra solche Skripts aufzubauen. Daher soll User einen Button haben, um die Mail so zu kopieren (mit Empfänger, Absender, Richtext  etc.), um diese dann manuell in die DB seiner Wahl in ein RTFeld zu kopieren.

Bisherige Vorgehensweise vom User: Klick auf Weiterleiten, Klicken ins Body-Feld, Strg+A, Strg+C.
Ist 1. nicht elegant, und 2. ist immer die oberste Zeile mit dabei (Diese Zeile "Forwarded on....by.... usw.".

Das ganze würde ich gerne ohne Maske realisieren, um einen Copy&Paste fähigen Code auch für andere DBs zu haben.....

Matthias

TMC:
Man soll nicht zwischenzeitlich was anderes machen....

Mein letztes Posting war bezogen auf Thomas, Datum/Zeit: Heute um 22:29:43

Matthias

TMC:
Fazit: Erst mal danke Euch allen für die Hilfe.

Was ich gerne hätte:

Wie bekomme ich den Richtext (mit Anhängen etc.) eines RT-Items in die Zwischenablage?

Das Richtextfeld würde ich via RenderToRTItem füllen......

M.E. würde ich nur dadurch vermeiden dass
a) eine zusätzliche Maske benötigt wird
b) (wenn ich @Formel einsetze): Signatur und "Forward by...." erscheint

Sorry dass ich mich oben wohl nicht klar ausgedrückt habe.

Matthias

Glombi:
Das ist knifflig.

Ich habe es versucht mit

Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim docA As NotesDocument
   Dim docB As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim success As Variant
   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   Set docA = uidoc.Document
   Set docB = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem( docB, "Body" )
   docB.Form = "Memo"
   docB.Subject = "It's a picture of the document"
   Call docB.Save( True, True )                                         ' Ein oder Ausschalten
   success = docA.RenderToRTItem( rtitem )
   
   Set uidoc = workspace.EditDocument( True, docB )
   Call uidoc.GotoField("Body")
   
   Call uidoc.SelectAll
   Call uidoc.Copy   


aber es sieht zumindest unter R6 blöd aus...
Mit Call docB.Save( True, True )   wird die Signatur nicht eingesetzt, ohne schon.
Ausserdem wird mit Save immer das Dokument gespeichert.

Man könnte sich noch überlegen, eine extra DB zu erstellen, in der das Dokument gerendert wird. Dort dann keine "Schweinereien" wie Signatrue oder dergleichen einbauen...

Sorry, aber mir fällt da momentan nichts mehr ein.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete