J'ai créé un agent qui envoie un message sur une adresse
perso@free.fr d ke la personne recoit un mail sur
taff@domaine.com(ca doit faire le meme que la fonction intégrée a Notes...Cependant je ne peu pa l'utiliser dans ce cas)Le truc que j'arrive pa a faire c recuperer le mail d'origine et le renvoyer sur l'adresse
perso@wanadoo.fr ...Style arriV a le mettre en copie.Voila j'espere avoir été klr.Merci d'avance:Voici mon agent pr le moment: Dim session As New Notessession Dim db As NotesDatabase Dim rtitem As NotesrichTextitem 'création d'un texte riche Dim doc_memo As NotesDocument Set db = session.Currentdatabase Set doc_memo = New NotesDocument(db) Set rtitem = New NotesrichTextitem(doc_memo , "Body" ) doc_memo.replaceitemvalue "Form", "Memo" 'le SendTo --> doc_memo.replaceitemvalue "SendTo", "perso@yahoo.fr" doc_memo.Subject = "Transfert rulez" rtitem.Appendtext("Transfert mode engaged") doc_memo.send(False) Set rtitem = Nothing Set doc_memo = Nothing Set db = Nothing