Copie d'un champ texte riche LS

[Julien]

Bonjour, j'ai un petit soucis que je peine à résoudre:Je dispose de deux document issus de masques différents mais contenant tous le deux le champ de texte riche "body".Je souhaite simplement dans un code LS copier le contenu du champ body du doc1 dans le champ body du doc2.A priori ça n'a pas l'air sorcier, j'ai essayé plusieurs choses :1 .Set rtitem = doc1.GetFirstItem( "body" )Call rtitem.CopyItemToDocument( doc2, "" )2.Set rtitem1 = doc1.GetFirstItem( "body" )Set rtitem2 = doc2.CopyItem( rtitem1, "body" )Le document attaché est bien copié (je le vois dans embeddedobject) mais il n'est pas visible dans mon champ body. En effet, après enregistrement, je le retrouve en bas de mon document, dans la zone de texte protégée...Auriez vous une explication, voire même la solution?Merci d'avance.

[albator]

Tu peux aussi essayer quelque chose comme ça : Dim itemmail As NotesItem Dim docA As NotesDocument Dim docMail As NotesDocument Dim itemdoc As NotesItem Dim rtitemmail As Variant Dim rtitemdoc As Variant Dim sFileName As String Dim eEmbed As NotesEmbeddedObject Set itemmail = docMail.GetFirstItem( "Body" ) Set rtitemmail = docMail.GetFirstItem("Body") Call docA.RemoveItem("Body") Set rtitem1 = docA.CreateRichTextItem ("Body") Forall oObjet In rtitemmail.EmbeddedObjects If ( oObjet.Type = EMBED_ATTACHMENT ) Then sFileName = "C:\\tmp\\" & oObjet.Source Call oObjet.ExtractFile(Cstr(sFileName) ) Set eEmbed = rtitem1.Embedobject(EMBED_ATTACHMENT,"",Cstr(sFileName)) End If End Forall Kill sFileNameA tester ....

[Julien]

ça fait surtout une usine à gaz pour une simple copie de champs!Je te remercie pour la réponse mais il doit bien exister un autre moyen.Les métodes que j'ai citées me copient bien les pièces jointes dans le document mais pas dans le champ voulu...Help!