Autor Thema: Pics mit Rich Text Feld übertragen  (Gelesen 1236 mal)

Offline JM

  • Frischling
  • *
  • Beiträge: 42
  • Geschlecht: Männlich
  • Der Mensch wächst mit seinen Aufgaben.
Pics mit Rich Text Feld übertragen
« 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 ???
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Pics mit Rich Text Feld übertragen
« Antwort #1 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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz