Gestion espace disque

[François LE GAL]

Bonjour,Je cherche une solution qui me permettrais de repondre au mails avec historique. Mais qui me donnerais la possilité de ne pas envoyer les fichiers joints a chaque fois.Cela de maniere a reduire le poid des mails et le flux d'information inutile.CordialementFLE

[Yatatoo]

Je ne pense pas que Notes (R5) le propose nativement...La V6 est bcp plus évoluée de ce coté la.La solution consiste probablement à faire un peu de dev' dans le design de le base soit en modifiant le bouton "Répondre avec historique" soit en en créeant un nouveau (genre "Réponse avec historique rapide")Malheureusment je suis developpeur mais je suis intéressé par du feedback dans ce genre de soucis.Pour finir dans la gestion pièces jointes, si qq'un a créé un script de "Purge" qui permetterai de détacher les PJ de mails sélectionnés vers un repertoire donné (encore une fois en natif en V6) ce serait fort intéressant.Salutations.

[Yatatoo]

A ben tiens je suis developpeur maintenant ! J'ai oublié le 'pas' entre je suis et developpeur...

[YAMR6]

Bjr, oui c'est possible en V5, notre admin central (je suis admin que d'une O.U) la fait, je l'interroges s'il veur me donner la manip ou la prog et s'il veut , je reviendrai te la donner..a+

[yop]

rajouter dans le masque memo avec historique un bouton d'action qui supprime les PJ, ou forcer cette suppression avec un LS en ouverture du memo avec historique.dans tous les cas, il te faut un développeur LS.

[François LE GAL]

Bonjour, Je te remercie de ta reponse et j'attend avec plaisir une solution!CordialementFrançois LE GAL

[Ron]

Bonsoir,Voici un scriot qui fonctionne très bien.Sub Click(Source As Button) Dim session As New NotesSession Dim ws As New NotesUIWorkspace Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim tempdoc As NotesDocument Set db = session.currentDatabase Dim uidoc As NotesUIDocument Set uidoc = ws.currentdocument Set doc = uidoc.document If doc.HasEmbedded = False Then Call ws.ComposeDocument("","","Reply With History") Exit Sub End If Dim count As Integer Dim item As NotesRichTextItem Set item=doc.getFirstItem("body") ' get body count = 0 If Not ( item Is Nothing) Then xx = item.embeddedObjects If Isarray(xx) Then Forall x In item.embeddedObjects If x.type=1454 Or x.type = 1453 Or x.type = 1452 Then count = 1 End If End Forall End If End If If count = 0 Then Call ws.ComposeDocument("","","Reply With History") Exit Sub End If Set tempdoc = New NotesDocument(db) Set item=doc.getFirstItem("body") Forall x In item.embeddedObjects If x.type=1454 Or x.type = 1453 Or x.type = 1452 Then x.remove End If End Forall Call uidoc.close Call doc.CopyAllItems(tempdoc,True) Call tempdoc.MakeResponse( doc) Call tempdoc.Save(True,False) Set uidoc = ws.EditDocument(True,tempdoc) Set anotheruidoc = ws.ComposeDocument("","","Reply With History") Dim refitemintempdoc As NotesItem Set refitemintempdoc = tempdoc.GetFirstItem("$REF") Dim refitem As Notesitem Set refitem = refitemintempdoc.CopyItemToDocument( anotheruidoc.document,"$REF") Call uidoc.close Call tempdoc.Remove(True)End SubCordialementRon

[Xavier Di-Mambro]

Tu le place où ce script ??

[Yatatoo]

Up ! Ca m'intéresse aussi bcp de savoir ou placer ce LS...

[Ron]

De mémoire, j'ai rajouté une action dans le masque du mémo, intitulée "Répondre sans rattachements" car ce LS ne fonctionne que si le mémo est ouvert.