Copy AllItems to memo

[MrMagoo]

Hallo zusammen,
kleines Problem. Ich versuche ein Dokument in das Body Feld der Memo Maske zu verschieben. Wie spreche ich das body Feld hier an??

   Set doc2 = New NotesDocument(db)
   doc2.Form = "Memo"
   Call doc.CopyAllItems(doc2)
   Call doc2.Save(True, False)
   Call doc2.Send( False )

Danke
   

[Axel_Janssen]

Ich glaub das geht nicht mit copyAllItems.  

Du willst ja den Inhalt  der Items in das RichTextFeld kopieren und nicht die Items selbst.

Dim rtItem As new NotesRichTextItem(doc2, "Body")

Dann gibt es in der Klasse NotesRichTextItem eine Reihe von Funktionen die du zu Fuß benutzen kannst .

z.B. so die Art:
rtItem.appendText ("someField hat Wert: " & doc.getItemValue("SomeField")(0))

[MrMagoo]

Ist es nicht möglich alle Felder, sprich das gesamte Dok auf einmal in das Body Feld zu kopieren? sind so viele

[Axel]

Hi,

vielleicht hilft dir die Methode RenderToRTItem aus der NotesDocument-Klasse weiter. Die Methode fügt allerdings nur ein Abbild des Dokumentes ein und nicht die Felder selbst.

Beispiel aus der Notes-Hilfe:

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 )



Axel