cyberscooty a écrit:J'avais le même soucis j'ai trouvé la solution sur ce site ....
Il faut créé un bouton dans un mail (création>zone sensible>bouton)
dans la liste déroulante choisir Lotus Script puis copier collé le code ci dessous
Le bouton désactive TOUTES les règles (visible et non visible) puis te demande ensuite de réactiver celle que tu veux
[syntax="LotusScript"]Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim folder As NotesView
Set db = session.currentdatabase
Set folder = db.GetView("(Rules)")
'Trouver le document "(Calendar profile)" dans la base
Dim calendarProfile As NotesDocument
Set calendarProfile = db.GetProfileDocument( "CalendarProfile" )
'LEs règles sont conpilés dans un champs nommé $FilterFormula_xx xx représente un OrderNum
'On retire les champs du "(Calendar profile)"
Forall item In calendarProfile.Items
If( Lcase$(Left$(item.Name,15)) = "$filterformula_" ) Then
Print "Cleanup " & item.Name
Call item.Remove
End If
End Forall
'Enregistrer les changements du "(Calendar profile)"
Call calendarProfile.Save( False, False )
'Désactiver toutes les règles visibles ou non.
Dim mailrule As NotesDocument
Set mailrule = folder.GetFirstDocument
While Not( mailrule Is Nothing )
Call mailrule.ReplaceItemValue( "Enable","0" )
Call mailrule.Save( True,False,True )
Set mailrule = folder.GetNextDocument( mailrule )
Wend
'Ouvrir le dossier Règles poru que l'usager réactive seulement celle qui sont nécessaires
Call workspace.OpenDatabase( db.Server, db.FilePath, "(Rules)" )
Messagebox "Mise-à-jour terminée, veuillez réactiver les règles s'il y a lieu."
End Sub[/syntax]
Stéphane Maillard a écrit:Sénario 2 => http://www-1.ibm.com/support/docview.wss?rs=0&uid=swg21088058
