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

[oguruma]

Synopsis de base de documents Lotus Notes - créé à 21:45:06 le 25/01/2004Informations d'agentNom : $STEControlSendToDernière modification : 25/01/2004 18:08:31Commentaire : [Sans]Agent partagé : OuiType : LotusScriptEtat : Activé(e)Déclencher : Lorsque vous le sélectionnez dans la liste des agents.S'applique à : Exécuter une fois (commandes @ autorisées)Code LotusScript :Option PublicUse "STEControlSendToLib"Sub Initialize Call ControlSendTo Print "Contrôle des destinataires effectué"End Sub Nom : $STEnvoyerClasserCorbeilleDernière modification : 25/01/2004 18:09:13Commentaire : [Sans]Agent partagé : OuiType : FormuleEtat : Activé(e)Déclencher : Lorsque vous le sélectionnez dans la liste des agents.S'applique à : Exécuter une fois (commandes @ autorisées)Formule : @If(@Trim(@Environment("STEControlSendTo")) = "NOK"; @Return(@False); @True);FIELD tmpAction := @If(DefaultMailSaveOptions = "1"; "Mailing"; @DeleteField);FIELD MailOptions := @DeleteField;@If(@Command([MailSend]); @True; @Return(0));FIELD tmpAction := "SendAndFile";@If(@PostedCommand([FileSave]); @True; @Return(0));@Command([Folder]; "($Trash)"; "1");@PostedCommand([FileCloseWindow]); Nom : $STESendAndSaveDernière modification : 25/01/2004 21:10:40Commentaire : [Sans]Agent partagé : OuiType : FormuleEtat : Activé(e)Déclencher : Lorsque vous le sélectionnez dans la liste des agents.S'applique à : Exécuter une fois (commandes @ autorisées)Formule : @If(@Trim(@Environment("STEControlSendTo")) = "NOK"; @Return(@False); @True);MEMO_SEND_FILE := 2097152;FIELD ActionInProgress := MEMO_SEND_FILE;@If(@Command([FileSave]); @Command([FileCloseWindow]); @Return(""));

[oguruma]

il te reste ensuite à identifier les groupes et ajouter dans le champ description la chaine de contrôlepetite remarque : je te recommande de documenter tout ceci dans un cahier t'etude ou d'exploitation du serveur pour le cas où... (enfin tu devine un peu)tiens moi informé de cette mise en production

[oguruma]

ma manière de détecter les PJ est assez généraliste avec la propriété hasEmbedded qui détecte tout les types d'objets attachéson peut uniquement brider sur les PJ en écrivant une fonctionfunction haveAttachment() as integerforall i in note.itemsif i.Type=ATTACHMENT thenhaveAttachment=trueexit functionend forallend functionet de remplacer le testif note.habEmbedded thenpar if haveAttachment() then