par Eric » 17 Mars 2003 à 12:21
Tu créé une base et dans cette base tu fais un agent manuel qui te rattache le fichier ID. Tu pourras alors le récupérer simplement.Voici un exemple que j'ai developpé, cet agent est planifié est récupere tout les fichiers d'un répertoire mais c'est un début pour ton agent.Bon courage. Dim pathName As String, fileName As String Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim object As NotesEmbeddedObject Set db = session.CurrentDatabase Set doc = New NotesDocument( db ) Set rtitem = New NotesRichTextItem( doc, "Body" ) Print ("----------------- DEBUT de l'agent -----------------") pathName$ = "d:\lotus\domino\data\WebLog\*.log" fileName$ = Dir$(pathName$, 0) Print fileName$ Do While fileName$ <> "" Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "d:\lotus\domino\data\WebLog\"+fileName$) Print fileName$ fileName$ = Dir$() Loop doc.form = "Fichier" Call doc.Save(True, True) Print ("----------------- FIN de l'agent -----------------")