Autor Thema: Richtextfeld kopieren in Feld von neuem Dok  (Gelesen 1157 mal)

Offline bob

  • Aktives Mitglied
  • ***
  • Beiträge: 166
  • Geschlecht: Männlich
  • R5
Richtextfeld kopieren in Feld von neuem Dok
« am: 26.08.02 - 19:09:21 »
Hi,

ich habe in einem Profildokument ein RT-Feld, in dem eine Tabelle, Formatierungen etc. enthalten sind (Größe aber < 10kB).
Nun soll in einem neuen Dok automatisch das RT-Feld "Inhalt" mit dem RT-Feld "Profil_Inhalt" gefüllt werden.
Die Formel
@SetField("Inhalt"; @GetProfileField("Profile_Dok"; "Profil_Inhalt"))
funktioniert dabei leider nicht, weil es sich wohl um ein RT-Feld handelt.

Habt Ihr da einen Tipp?

Danke,
Bob
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re: Richtextfeld kopieren in Feld von neuem Dok
« Antwort #1 am: 26.08.02 - 20:24:33 »
schau dir mal bitte die Methode in LS "AppendRTItem" an(ich hoffe, habe sie richtig geschrieben). In der Notes Help findest Du ein passendes Codebeispiel genau zu Deinem Problem.
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline Chriss

  • Frischling
  • *
  • Beiträge: 39
  • Geschlecht: Männlich
  • Wissen ist Macht, nichts wissen macht auch nichts!
Re: Richtextfeld kopieren in Feld von neuem Dok
« Antwort #2 am: 28.08.02 - 12:16:04 »
hallo,
ich würde das dem profildokument das item holen und in das dokument einfügen.
hier ein beispiel aus der notes hilfe

um das profuildokument zu holen folgendes:
Set notesDocument = notesDatabase.GetProfileDocument( profilename$ [ , username$] )

um dann das item zu kopieren, dies:
This script creates a new mail memo and copies the Body item from a saved document to the memo.  This example uses the Call statement.
Dim db As New NotesDatabase( "", "review.nsf" )
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim item As NotesItem
'...set value of doc...
Set item = doc.GetFirstItem( "Body" )
Set memo = New NotesDocument( db )
memo.Form = "Memo"
memo.Subject = "Here's a copy of the review."
Call memo.CopyItem( item, "Body" )
Call memo.Send( False, "Viquinha Mayer" )
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
MfG
Chris

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz