Bonjour
 
Administratrice Lotus Notes, je dois développer un agent qui me permet de créer un nouveau mail (dans la session du user en cours) et de joindre a ce mail un fichier qui se trouve sous c: (sans envoyer le mail et sans spécifier les destinataires)
 
depuis 3 jours je cherche des exemples et fais des tests mais rien ne marche pour le moment j'arrive juste a ouvrir un nouveau mémo avec ce code
 
Sub Click(Source As Button)
 
 Dim S As New NotesSession  
 Dim workspace As New NotesUIWorkspace
 Dim CurrentUIDoc As NotesUIDocument
 Dim uidoc As NotesUIDocument
 Dim Doc As NotesDocument
 
 'récup du doc en cours
 Set CurrentUIDoc = workspace.CurrentDocument
 Set doc=CurrentUIDoc.document
 MS=S.Getenvironmentstring("MailServer",True)
 MF=S.Getenvironmentstring("MailFile",True)
 
 ' création d'un doc signet
 Set uidoc = workspace.ComposeDocument(MS,MF, "memo" )
 uidoc.FieldAppendText(subject,"essai" )
 'Mise en place du lien doc dans le body du signet
 Set Doc=uidoc.document
 Set rtitem = New NotesRichTextItem( doc, "Body" )
 Set object1 = rtitem.EmbedObject _
 ( EMBED_ATTACHMENT, "", "c:\doclink.ndl" )
 
 
 
End Sub
 
Si quelqu'un pouvez m'aider je vous remercie