Copie d'une pièce jointe en LS.

[CED]

Sous web : J'ai un doc1 avec une pièce jointe que j'ai attaché avec un controle de chargement de fichier.Avec un agent Lotusscript, je créér un doc2 dans une base de publication qui reprend quelques champs de mon doc1. Je voudrais aussi copier ma pièce jointe dans mon doc2.Quelqu'un a-t-il une idée?Mon Code:Dim S As New NotesSessionDim ws as New NotesUIWorkspaceDim Db As NotesDatabaseDim UIDoc as NotesUiDocumentSet UiDoc = ws.currentdocumentSet Db = S.CurrentdatabaseDim DbPub As New NotesDatabase(Db.server, "Pub.nsf")Dim DocPub As NotesDocumentSet DocPub = DbPub.createdocumentDocPub.Form = "MasquePub"DocPub.Redacteur = UiDoc.Redacteur(0)DocPub.Titre = UiDoc.Titre(0)DocPub.Code = UiDoc.ISO_Code(0)Call DocPub.save(True , True)Ceci fonctionne bien mais je souhaiterais donc copier aussi une pièce jointe...

[Stéphane]

Voila peut être un petit script qui peut t'aider...En faite il récupère tous les fichiers uploadés d'un document et les place dans le champ "Photo" afin d'avoir sous le client Notes les photos uploader dans le bom champ et non en bas de formulaire...fichiers = Evaluate({@AttachmentNames}, doc)Forall f In fichiers Set objet = doc.getAttachment(f) If Not objet Is Nothing Then Call objet.extractFile("c:\temp\" + f) Set rtitem = doc.getFirstItem("Photo") Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", "c:\temp\" + f) Call objet.remove() doc.save True, False End IfEnd ForallMaintenant tu as aussi la facon suivante, doc2 = New Notesdocument(db)...Set itemA = doc1.GetFirstItem( "Body" )Call itemA.CopyItemToDocument( doc2, "" )Ou encore avec les méthodes de Notesrichtextitem...