Problem bei Richttextfeld

[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?

[bificypdog]

Ooops,bei mir geht es natürlich um das Kopieren von Dokumenten in anderen DBs.

Ausschnitt:

Code

Set db = s.CurrentDatabase
     Set view = db.GetView( sViewName )
     Set doc = view.GetFirstDocument
     
     If Not arc_db Is Nothing Then
          If Not doc Is Nothing Then
               doc.CALL_Status = "Gesendet"
               doc.DocCopied = "1"
               doc.DocStatus = "1"
               Set arc_doc = arc_db.CREATEDOCUMENT()
               
               Forall i In doc.items
                    If i.Name <> "$FILE" Then
                         Call i.CopyItemToDocument( arc_doc, i.Name  ) 
                    End If
               End Forall
               
               Call arc_doc.RemoveItem( "$Links" )
               
               arc_doc.OrigDBPath = db.FilePath
               Call doc.save(True,False)
               Call arc_doc.Save( True, False )
          End If
     End If