Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: JM am 19.09.02 - 09:56:14

Titel: Pics mit Rich Text Feld übertragen
Beitrag von: JM am 19.09.02 - 09:56:14

hi,


ich habe folgendes Problem :

ich habe eine bestehende Datenbank und möchte ein komplettes Dokument in eine andere Datenbank übertragen

dies soll Feld für Feld geschehen

die übertragung an sich klappt auch schon

wird wie folgt durchgeführt

... newdoc.body = doc.body ...

und das feld für feld

leider habe ich das problem das bei der übertragung von Rich Text Feldern  die embedded Elements, in meinem Fall die Pictures, nicht mit übertragen werden


kann mir jemand weiter helfen ???

Titel: Re: Pics mit Rich Text Feld übertragen
Beitrag von: eknori am 19.09.02 - 11:15:32

Hier eine Routine, um alle Felder eines Dokuments in ein anderes Dokument zu kopieren.
Umfasst auch RichText Felder und Attachments

                                           Sub CopyAllDocItems(Source As notesdocument, dist As notesdocument)

                                           Dim rtitemA As Variant
                                           Dim rtitemB As Variant

                                           Forall i In Source.items
                                           ItemName = i.name
                                           If Not i.name = "$FILE" Then 'Takes care of where there is an attachment in RTF fields
                                           If i.type = RICHTEXT Then
                                           Set rtitemA = Source.GetFirstItem( i.Name)
                                           Set rtitemB = New NotesRichTextItem ( Dist, i.Name )
                                           Call rtitemB.AppendRTItem( rtitemA )
                                           Else
                                           Set notesItem = i.CopyItemToDocument( Dist, i.Name )
                                           End If
                                           End If
                                           End Forall

                                           End Sub