Restriction de fichiers atatchés sur un groupe d'envoi

[K. Chabot]

Bonjour,Je cherche à appliquer une restriction sur un groupe. Je désire que tous ceux qui utiliseront un ou des groupe(s) en particulier ne soit pas autorisé à envoyer de message s'il y a un fichier attaché.i.e : Le groupe s'appelle ENVOI FRANCESi l'usager envoi un message normal à ce groupe, tout passe. Cependant si un fichier se retrouve attaché, l'envoi du message ne sera pas autorisé.Des idées ? Global et spécifique à un groupe.K. Chabot

[Yteewt]

Par defaut dans notes tu ne peux pas faire ce genre de chose si tu veux le faire il va faloir que tu developpe toi meme (ou avec l'aide de qq'un) un aget qui traite les mail dans la mail.box et qui supprime la piece jointe.Sinon il y a certain anti-virus qui font ce genre de chose mais je ne sais pas si c'est vraiment paramètrable.Dans notes c'est bien simple les restrictions c'est tout ou rien mais tu ne peut pas faire d'exeption en general !

[oguruma]

il fa

[oguruma]

cependant un pb en v5 et supérieur : il faut intervenir dans les actions partagée et placer une procédure de contrôle avant MEMO_SEND:="1024";FIELD ActionInProgress:=MEMO_SEND;@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""))voir mon post à ce propos sur un autre sujet sur la limitation des groupes à certains utilisateurs...la logique est à peu identique à la différence que l'on doit détecter les PJ dans le document et identifier le groupesi j'ai du temps... je vois ce que je peux faire sur ce sujet... çe ne me parâit trop compliquélaisse moi un peu de temps... est-ce urgent

[K. Chabot]

Non ce n'est pas vraiment urgent, c'est que quelques fois certains utilisateurs envoient des documents d'une bonne grosseur et quand ils choisissent le groupe principale du serveur (+ de 400 utilisateurs) alors cela devient un problème.Routage, engorgement, grosseur des bases, etc...Donc j'essais d'éviter cela le plus possible ou du moins de le faire passer en low priority.MerciK. Chabot

[lemm]

Salut.j'ai (voire "on") à probablement les mêmes problèmes...Il faut interdire l'envoi d'un même fichier dans les bases de centaines d'utilisateurs (-> c'est souvent un doc à caractère informatif qui ne sera même pas modifié mais juste lu!). C'est plus une question de charte d'entreprise et de règle à faire respecter par tout le monde dans l'entreprise (avec engagement du staff de direction evidemment).techniquement il faut par contre proposer des solutions de remplacement :- bases de publications (ou le doc n'est enregistré qu'une fois et où c'est seulement le lien vers ce doc qui sera envoyé à 400 utilisateurs)- portail intranet avec des espaces de publications- bases notes pour classer des documents office (word-excel etc..) voir les modèles (je me rappelle plus mais ça avait l'air pas mal...)toutes ces alternatives ne brideront pas les flux d'information mais les canaliseront (ça me parait plus positif)-> Par contre, en même temps que "l'éducation", "la repression" : un rappel à l'ordre ferme par les DRH aux "malentendants" et "malcomprenants" est parfois aussi efficace qu'un dev LS...quand les alternatives existent.

[PAT]

Cest tout à fait vrai ... sauf que dans une boîte où il y a beaucoup de turn-over, il faut continuellement eduquer, informer, former ... il est donc plus simple alors de brider ...

[oguruma]

Il manque en fait à lotus notes, ce que possède son grand rival...la notion de dossiers publics...y a bien qq chose qui existe en ce sens mais ça n'est pas natif au moment de l'installation du client...

[K. Chabot]

Ce genre de fonctionnalité reste à être ammélioré justement et rajoutons à cela l'ammélioration des "règles" pour miuex filter le SPAM !Je n'ai pas jeté de coup d'oeil encore à la version 6 (Serveur), j'espère que celà à été ammélioré !MerciK. Chabot

[oguruma]

pour ma part en v6 je n'ai rien vu qui criait "venir voir !!!"

[oguruma]

sans pour autant aller dans le sens du vent, mais je me range dans le camps de K. Chabot.De plus le contrôle on-line pour m'y être penché quelques instants risque de ressembler à une petite bidouille bien connue pour capter "on-line" le contenu des zones RT (c'est-à-dire... dans le script on save, on sort, on revient et seulement après cela on peut faire correctement faire l'inventaire des attachement et récupérer les fichiersil est aussi possible de faire un agent qui serait chargé toutes nuits de supprimer les attachements en double dans les documents... ça se peut se faire, et en production informé les utilisateurs que les documents en double sont supprimés.Je peux te faire cette agent qui ferait un peu moins bidouille on linesi tu veux... tu n'as qu'à demander@+

[oguruma]

ne pas tenir compte de cette formulation de réponse que ne colle pas bien au sujet... elle n'était pas adressée à ce post.Je vous prie d'accepter toutes mes excuses.J'ai un script qui travaille sur les groupes, je vais te l'adapter pour bloquer les pj destinées à un groupe donné.Ceci dit, je suis d'accord tout de même avec K. Chabot sur les règles d'entreprise.

[oguruma]

Bien je t'ai fait un petit truc, je l'ai testé sur mon serveur ça fonctionneça peut resembler au coin du bidouilleur mais averti et ok mais si blocage représente un bcp d'intérêts pourquoi pasje passe sur le fait qu'il est nécessaire de construire un modèle en cascade j'ai fait un post à ce sujet pour qqun sur le forumpar ailleurs implémente cela sur un pool de recette avant de déployer en prodje suis parti du principe que l'on renseigne le champ desciption du groupe pour indiquer s'il est autorisé à recevoir des pj afin de ne pas codifier cela en dur dans le code... ; en effet tu placeras le texte[PIECES JOINTES NON AUTORISEES] dans cette zone ; par contre cette est codifiée en dur dans le lib (section déclaration)afin de ne pas surcharger ce post, je détaille chaque étape dans un document réponse

[oguruma]

1) bibliothèque STEControlSendToLibSynopsis de base de documents Lotus Notes - créé à 21:38:37 le 25/01/2004Informations de bibliothèque de codesNom : STEControlSendToLibDernière modification : 25/01/2004 20:51:41Code LotusScript :Option PublicConst CTRL="[PIECES JOINTES NON AUTORISEES]"Const VIMGROUPS ="($VIMGroups)"Const NAB="Names.NSF"Dim Ws As NotesUIWorkSpaceDim Session As NotesSessionDim Db As NotesDatabaseDim Note As NotesDocumentDim UIDoc As NotesUIDocumentDim DbAddressBook As NotesDatabaseDim SendField (1 To 3) As StringDim Zone (1 To 3) As StringDim ItemSendTo As NotesItemDim ViewVIMGroups As NotesViewDim DocVIMGroups As NotesDocumentDim CommonUser As StringDim UserName As StringSub InitializeEnd SubSub ControlSendTo Dim OkSendTo (1 To 3) As Integer Dim FieldOK As Integer Dim i As Integer On Error Goto handler '// Init de l'environnement Call InitArraySendTo Call GetVIMObject '// pour forcer le optimizedAddress Call uidoc.refresh '// Analyse des champs SendTo, CopyTo, BlindCopyTo For i=1 To 3 If Note.HasItem(SendField(i)) Then Set ItemSendTo=Note.GetFirstItem(SendField(i)) If Trim$(ItemSendTo.Text)<>"" Then OkSendTo(i)=ProcessField(i) Else OkSendTo(i)=True End If End If Next I '// Pour envoyer le message les trois zones doivent être correctes FieldOK= OkSendTo(1) And okSendTo(2) And OkSendTo(3) '// On enregistre dans le Notes.INI afin de récupérer la valeur de la variable dans l'agent If FieldOK Then Call Session.SetEnvironmentVar( "STEControlSendTo", "OK",False ) Else Call Session.SetEnvironmentVar( "STEControlSendTo", "NOK",False ) End If Exit Subhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"ControlSendTo" Resume finfin:End SubFunction ProcessField (C As Integer) As Integer Dim Ret As Integer Dim K As Integer Dim Dest As Variant On Error Goto handler Dest=ItemSendTo.Values Ret=True For K=0 To Ubound(Dest) If IsGroup(Dest(K)) Then '// Le groupe peut-il recevoir des pièces jointes If note.HasEmbedded Then If Not Autorized () Then Messagebox Zone(C) & " - Vous n'êtes pas autorisé à envoyer des pièces jointes à ce groupe " & Dest(K),48,"Envoyer - " & ItemSendTo.Name Ret=False Dest(K)="" End If End If End If Next K ProcessField=Ret Exit Functionhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"ProcessField" Resume fin fin: ProcessField=RetEnd FunctionFunction Autorized () As Integer Dim itemDescription As NotesItem On Error Goto handler Autorized=True If docVimGroups.HasItem("ListDescription") Then Set itemDescription=docVimGroups.getFirstItem("ListDescription") If Instr(itemDescription.text,CTRL) Then Autorized=False End If End If Exit Functionhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"Autorized" Resume finfin:End FunctionFunction IsGroup (Grp As Variant) As Integer Dim N As NotesName On Error Goto handler Set N=New NotesName(Grp) Set DocVIMGroups=ViewVIMGroups.GetDocumentByKey(N.Common) If DocVIMGroups Is Nothing Then IsGroup=False Else IsGroup=True End If Exit Functionhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"isGroup" Resume finfin:End FunctionSub InitArraySendTo On Error Goto handler SendField(1)="SendTo" SendField(2)="CopyTo" SendField(3)="BlindCopyTo" Zone(1)="Champ Pour :" Zone(2)="Champ CC :" Zone(3)="Champ CCC :" Exit Subhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"ControlSendTo" Resume finfin:End SubSub GetVIMObject On Error Goto handler Set Ws=New NotesUIWorkSpace Set Session=New NotesSession Set Db=Session.CurrentDatabase Set UIDoc=Ws.CurrentDocument Set Note=UIDoc.Document Set DbAddressBook=New NotesDatabase(Db.Server,NAB) Set ViewVIMGroups=DbAddressBook.GetView(VIMGROUPS) CommonUser=Session.CommonUserName UserName=Session.UserName Exit Subhandler: Messagebox "erreur " & Err & " " & Error$ & " ligne " & Erl,16,"GetVimObject" Resume finfin:End Sub

[oguruma]

2) modification des actions partagéesil faut modifier les actions partagées :- envoyer- envoyer et classer(avant de les modifier, dupliquer celles-ci et ajouter backup à la fin du nom de l'action)=> envoyer@PostedCommand([ToolsRunMacro];"($STEControlSendTo)");@PostedCommand([ToolsRunMacro];"($STESend)")=> envoyer et classer@PostedCommand([ToolsRunMacro];"($STEControlSendTo)");@PostedCommand([ToolsRunMacro];"($STESendAndSave)")