DominoArea.org [Archive]

Bonjour,

Un utilisateur est absent en longue maladie, on me demande d'enlever un renvoi de mail vers une adresse internet, mais je ne vois pas cette adresse! il n'y a aucune regle et pas d'agents. J'ai parcouru tous les champs du doc personne, il n'y a pas d'adresse de reacheminement. J'ai ouvert la base avec le designer, ytria, mais je ne vois nul part cette foutu adresse mail.
Pouvez-vous m'eclairer ?
Dans les logs est indiqué :
12/10/2012 14:28:03 Router: Message 00447D45 auto forwarded by JL ENMERDEUR/Marseille/TOTO to jl.enmerdeur@gmail.com
12/10/2012 14:28:03 Router: Message 00447D45 delivered to JL ENMERDEUR/Marseille/TOTO
12/10/2012 14:28:04 Router: Message 00447CC9, 00447D45 delivered to Moi meme
12/10/2012 14:28:04 Router: Transferring mail to DOMINOSMTP1/TOTO via Notes
12/10/2012 14:28:04 Router: Transferred 1 messages to DOMINOSMTP1/TOTO via Notes
12/10/2012 14:28:04 Router: Message 00447CC9 transferred to DOMINOSMTP1/AFT-IFTIM for jl.enmerdeur@gmail.com via Notes

Merci

"Auto-forwarded" ça sent pourtant bien la règle de messagerie.
Si tu ne vois pas de règles , vérifie dans le doc profile CalendarProfile si ce n'est pas une "règle fantôme" champ $filterformula

Sinon règle au niveau serveur ?

Merci,
Quel talent! ;o)
c'est effectivement un fantome....
avec trois champs
$FilterFormula
$FilterFormula_0
$FilterFormula_1
dont le dernier contient l'adresse mail !
Et il faut faire quoi dans ce cas ?

recreer la regle avec les memes criteres,
desactiver la regle,
supprimer la regle,
cet fois ci le champ $FilterFormula_1 degage,

Plein de messages sur ce sujet ...
desactiver toutes les regles
Un petit script pour supprimer les champ et remettre le count à 0
Activer les règles souhaitées

Bonjour,

Le bouton désactive TOUTES les règles (visible et non visible) puis te demande ensuite de réactiver celle que tu veux

Code : Tout sélectionner

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

Bonne journée.
Phil59.