detcher une piece jointe.

[FredO]

Bonjour a tous , Voila , je souhaite créer une sorte de base d'archivage , grâce a un bouton , je souhaite coller le message dans un document d une autre base, Aucun souci pour le corps du message , ni le texte , cependant , je n arrive pas a recuperer la pièce jointe quand il y en a une.J ai essayer la commande EMBEBEB DOCUMENT mais sans succès.Un petit coup de main ne serais pas de refus .

[Rigol'man]

je c pas si ca aidera .....' Recuperation du champ Texte RicheSet BodyFR = doc.getFirstItem("Body")'Parcours des attachementsForall x In BodyFR.EmbeddedObjects ' Création du champ Texte Riche dans le nouveau document Set rtitem = newDocCat.CreateRichTextItem( "AttachmentList") ' Extraction de l'attachement sur le disque dur Call x.ExtractFile( dirnom & "\" & x.Source ) ' Attachement du fichier dans le champ Texte Riche Set object = rtitem.EmbedObject (EMBED_ATTACHMENT, "", dirnom & "\" & x.Source )End Forall[%sig%]

[Cedric]

Pour éviter de détacher/rattacher, tu peux directement copier tout le document dans la base destination avecNotesDocument.CopyToDatabaseenfin, c juste une idée

[FredO]

Merci pour ces info, en effet je prefere la solution de copy , j avais essayer avec CopyALLItem mais sans succes!.je vais essayer avec la commande NOtesDocument.CopytoDatabase.