Agent pour détruire un contact particulier

[dmb77]

Bonjour à tous, voici le code d'un agent réalisé par un spécialiste Lotus afin d'éradiquer un contact anormal qui se propage à travers notre annuaire domino comme un vers !!

Code : Tout sélectionner


Option Public
Option Declare

Sub Initialize
   dim sess as New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim dc As NotesDocumentCollection
   Dim doc As notesdocument
   Set db = sess.CurrentDatabase
'   Set view=db.getview("RecentCollaborators")
   Set dc=db.ftsearch("arusso",0)
   MsgBox "nb " & dc.count
   If dc.count>=1 Then
      Call dc.removeall(TRUE)
   End If
   
End Sub


L'histoire est que le arusso est attaché à la fin d'un contact de notre annuaire et cela fait presque 10 mois que ce truc apparait de manière redondante, surement pas aléatoire mais nous ne savons pas comment.
le souci est que cette agent est installé sur un ntf d'un pernames et que l'utilisateur doit le lancer manuellement afin de supprimer les entrées dans les contacts récents.

N'y a t il pas d'autres possibilités en automatique ? cela deviens très contraignant pour mes users.

[roubech]

Si l'itinerance est activée, les names perso sont répliques sur serveur et tu peux les nettoyer
Sinon, tu peux essayer peut être ajouter du code sur le postopen de la base mail

Et pour eviter qu'il ne revienne, il me semble qu'il y a des variables notes.ini pour exclure des adresses ou des domaines des contacts récents ...