DominoArea.org [Archive]

ton script ne me retourne dans le nouveau document QUE les rattachements qui sont dans des champs textes riches. Pas les autres, que je veux c quoi ce bordel !!!

bon, à force, on y arrive :seul problème, on est obligé de passer par une copie temporaire sur le serveur. du moins, g pas trouvé mieux.Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim vue As NotesView Dim doc As NotesDocument, memo As NotesDocument Dim objet As NotesEmbeddedObject Dim rtitem As NotesRichTextItem Set db = session.CurrentDatabase Set memo = db.CreateDocument Set vue = db.GetView("vue") Set doc = vue.GetFirstDocument Forall i In doc.Items If i.Type = 1084 Then Set objet = doc.GetAttachment(i.Values(0)) Call objet.ExtractFile("path\" & Cstr(i.Values(0))) Set rtitem = New NotesRichTextItem(memo,"PJ") Set objet = rtitem.EmbedObject(EMBED_ATTACHMENT,"","path\" & Cstr(i.Values(0))) Kill "path\" & Cstr(i.Values(0)) End If End Forall Call memo.Send(False,"who")End Sub