Devi copiare l\'intero campo contenente il file
Set rtitem = New NotesRichTextItem( newdoc, "Body" )
Set rtitem2 = doc.GetFirstItem( "Nome campo con file" )
If ( rtitem.Type = RICHTEXT And doc.HasEmbedded ) Then
Call rtitem.AppendRTItem( rtitem2 )
End If
|