LCA Cohérente

[Gomes Carlos]

Bonjour,Comment imposer une LCA cohérente pour l'ensemble des BALs de mon serveur Domino ?Quelqu'un a t-il une idée ?Merci

[Raisin]

Regarde les classes NotesAcl et Notes AclEntry.Il y a une propriétés qui te retourne la valeur de cette case à cocher. (Lecture/ecriture)Ensuite tu te fais un petit bout de code, qui coche si elle est décochée, et ne fait rien sinon. Tu mets ca dans un bouton dans un memo, et hop tu envoies à tes utlisateurs le mail avec un joli cliquez ici.C'est une solution

[Gomes Carlos]

Salut,merci tout d'abord pour ta solution, mais il y a un hic?? C'est que je ne suis pas developpeur et je ne trouve pas l'endroit ou se trouve les classes que tu énumères. Peux tu me décrire avec designer ou se trouve ces éléments.Merci d'avances

[oguruma]

1/ tu fais un mémo2/ dans ce mémo tu places un bouton "Sécuriser votre messagerie"3/ dans le corps du message tu fais un peu de politique en expliquant qu'il est important de faire cela.... tra la la.. tu "brodes".4/ et hop tu envoies5/ tu peux te faire un modèle de ce message afin de le renvoyer en cas de besoinSub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL On Error Goto handleError Set db = session.CurrentDatabase Set acl = db.ACL Messagebox "Cette action a pour but de vérifier la sécurité de votre messagerie",64,"Sécurisation de votre messagerie" If Not acl.UniformAccess Then acl.UniformAccess = True Call acl.Save Messagebox "Votre messagerie est désormais sécurisée",64,"Sécurisation de votre messagerie" Else Messagebox "Votre messagerie est déjà sécurisée",64,"Sécurisation de votre messagerie" End If Exit SubhandleError: Messagebox "Erreur n° " & Err & " : " & Error$ & " ligne " & Erl,16,"Erreur LCA" Resume finfin:End Sub

[Raisin]

http://www-12.lotus.com/ldd/doc/domino_ ... cumentVoilà la propriété en question. Ensuite il te reste à créer un bouton dans le corp du mail, et de choisir comme langage LotusScript.Puis tu copie l'exemple de cette propriété:Dim session As New NotesSessionDim db As NotesDatabaseDim acl As NotesACLSet db = session.CurrentDatabaseSet acl = db.ACLIf acl.UniformAccess Then If Messagebox("Do you want to toggle?", _ MB_YESNO + MB_ICONQUESTION, _ "Uniform access is in effect") = IDYES Then acl.UniformAccess = False Call acl.Save End IfElse If Messagebox("Do you want to toggle?",_ MB_YESNO + MB_ICONQUESTION, _ "Uniform access is not in effect") = IDYES Then acl.UniformAccess = True Call acl.Save End IfEnd IfIl te reste a faire la traduction en français, et de vérifier que tu peux faire du lotusscript si tu n'as pas de client Lotus Designer.It's OK ?

[oguruma]

ne pas oublier de remplacer les constantes MB_ par leur valeurs...on peut les récupérer dans le fichier lsconst.lssvoir ci-dessous :Const MB_OK = 0 ' OK button onlyConst MB_OKCANCEL = 1 ' OK and Cancel buttonsConst MB_ABORTRETRYIGNORE = 2 ' Abort, Retry, and Ignore buttonsConst MB_YESNOCANCEL = 3 ' Yes, No, and Cancel buttonsConst MB_YESNO = 4 ' Yes and No buttonsConst MB_RETRYCANCEL = 5 ' Retry and Cancel buttonsConst MB_ICONSTOP = 16 ' Critical messageConst MB_ICONQUESTION = 32 ' Warning queryConst MB_ICONEXCLAMATION = 48 ' Warning messageConst MB_ICONINFORMATION = 64 ' Information messagepositionner ces définitions avant les ordres Dim

[oguruma]

également tu peux aussi contrôler les interventions de chacun, deux méthodes :1/ quand un utilisateur clic sur le bouton, tu t'envoies un message pour dire ce qu'il a fait... (bon si tu arroses nnnn utilisateurs tu vas être débordé)2/ tu fais rapidos un base de LOG sur le serveur, celle-ci comporte un masque et une vuemasque : dateheureutilisateuraction3/ les utilisateurs sont uniquement déposants4/ les actions de chaque utilisateurs sont enregistrées dans cette base et tu codes cela en LS... (pas compliqué)dis moi si tu optes pour l'une ou autre solution ou tu ne souhaites pas suivre... (pas de retour)pour la solution 1 ou 2, je t'envoie cela par mail car il ya un peu plus de chose et ça sera plus simple.je te fais en fait une base démo, tu n'auras plus reprendre les objets et les scripts

[PAT]

Et pour les nouveaux comptes/Bases mail créées, comment faire en sorte que leur LCA soit automatiquement coherente sans avoir a envoyer ensuite un message avec ce bouton ?

[Raisin]

Tu ne peux pas le définir lors de la création du user ?Sinon tu es en quelle version ?

[PAT]

J'utilise l'admin 6.03 Fr pour acces a un serveur 5.011 Fr, et je ne vois pas ou cela se parametre lors de la creation du compte Notes !

[fabrice]

Bonjour,A tester, coche LCA Cohérente sur ton modèle de base courrier, fais un test en créant un user, si cela fonctionne laisse le, la nuit la tache design effectuera la modif sur toutes les BALs.

[Raisin]

Je ne pense pas que la tache Design aille modifier la LCA des bases. Enfin je n'ai pas essayer non plus :p