par polbusse » 09 Déc 2003 à 16:44
en LS ca donne ca :Set db = fiche.ParentDatabaseSet mail = db.CreateDocumentmail.Form = ""mail.Subject = "Fiche "Set rti = New NotesRichTextItem (mail, "Body") '// cartouche du mail :message = "Le "+Cstr(Now())+"; "Call rti.appendText(message)Call rti.addnewline(1) message = "la fiche incident n°12, intitulé '" +fiche.TxtIntitule(0)+"' "Call rti.appendText(message) message = "Vous pouvez accèder à la fiche en cliquant sur ce lien "Call rti.appendText(message) Call rti.AppendDocLink(fiche,"lien vers la fiche")mail.Send(False)