Domino 9 und frühere Versionen > Entwicklung

Problem bei Richttextfeld

(1/2) > >>

NotesRookie:
Hi all ,

ich hab folgendes Problem :


Ich versuche den Inhalt der Felder von einem Dokument in die Felder eines anderen Dokumentes zu kopieren.
Aber bei Richttextfeldern werden Verknüpfungen und die abgelegten
Dateianhänge nicht in das Feld des anderen Dokumentes kopiert.

Kann mir jemand helfen ?

Toll wären auch ein paar zeilen Script, die das machen ... ich
hab es bis dato nicht hinbekommen <schäm>


Schon mal vorab vielen Dank und viele Grüße,

Marcus

Axel:
Hi,

ich hab mal für eine Datenübernahme so was gemacht:


...
'Bearbeitung des RichText-Feldes Bemerkungen
Set rtitemA = doc.GetFirstItem( "Bemerkungen" )
Set rtitemB = New NotesRichTextItem(newdoc, "Bemerkungen" )

If ( rtitemA.Type = RICHTEXT And  rtitemB.Type = RICHTEXT ) Then
  Call rtitemB.AppendRTItem( rtitemA )
End If  'If ( rtitemA.Type = RICHTEXT And  rtitemB.Type = RICHTEXT ) Then

...
      

Axel

eknori:
Ich habs mal so gelöst

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

NotesRookie:
Hallo Miteinander,

hat geklappt ...

Nochmals vielen Dank für die Prompte und geniale Hilfe ...


Nee schöne Arbeitswoche ..

Grüße,
Marcus

bificypdog:
Kurze Frage - auch wenn die Beiträge schon älter sind.

Ich habe ein Script, dass ungefähr so aussieht, wie du hier geschrieben hast.

Doch nach einer Replizierung der beiden Datenbanken existiert das Dokument zweimal.
Beide Dokumente haben unterschiedlich DocUniqueIDs.

Wie umgehe ich das?

Navigation

[0] Themen-Index

[#] Nächste Seite