LO60459: A NOTES MAIL RULE DISABLED IN INOTES AND THEN DELETED FROM THE MAIL FILE IS RE-ACTIVATED (OS400)

APAR status

• Closed as returned (APAR cannot be resolved without additional info from IBM or customer.)

Error description

• A user's mail file resides on a Domino 8.5.2 server on OS400.
  The user creates a new mail rule in the mail file opened in the
  Notes client. They then open their mail file from a Web browser
  and disable the mail rule. At this point tests show that the
  mail rule is correctly disabled. The user then deletes the
  disabled mail rule from the mail file opened in the Notes
  client. At this point tests show that the mail rule is active
  again although it does not appear in the mail rules view.
  
  Investigation shows that the mail rule is corrupted at the point
  that it is disabled in the Web browser. Examining the disabled
  (but not yet deleted) mail rule in the Notes client, it contains
  invalid characters. For example a condition in a mail rule
  appears as follows:
  
  "
  When:
   2&#166, 3&#166, Test&#166, 0
  "
  
  Attempting to open the rule results in the error "Invalid
  formula format".
  
  
  This is not reproducible on Windows.
  

Local fix

• Executing the code from the following Technote corrects the
  issue:
  https://www-304.ibm.com/support/docview.wss?uid=swg21088058
  
  Sub Click(Source As Button)
   Dim s As New notessession
   Dim db As notesdatabase
   Dim rulesfolder As notesview
   Dim rules As notesviewentrycollection
   Dim rule As notesviewentry
   Dim ruledoc As notesdocument
   Set db=s.currentdatabase
   Set rulesfolder=db.getview("Rules")
   Set rules=rulesfolder.allentries
   Set profile=db.GetProfileDocument("CalendarProfile")
  'Optional code to remove rule entries from the Calendar Profile
  which
  did not disable as expected.
  'The code can be used if you want to "clean out" the rule
  entirely in
  the profile.
  'NOTE: The code below will disable the C&S Miniview rule so it
  must be
  manually re-enabled.
  
   If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
    profile.Use_CalendarRule = "0"
   End If
   Set Count=profile.getfirstitem("$FilterFormulaCount")
   Call count.remove
   Forall ff In profile.Items
    If ff.type = 1536 And Lcase(Left(ff.name,15)) =
  "$filterformula_" Then
     Call ff.remove
    End If
   End Forall
   Call profile.Save(True, True)
   If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
    number=1
   Else
    number=0
   End If
   Set rule=rules.getfirstentry
   While Not rule Is Nothing
    Set ruledoc=rule.document
    ruledoc.ordernum=Cstr(number)
    Call ruledoc.save(True, True)
    Set rule=rules.getnextentry(rule)
    number=number+1
   Wend
  End Sub
  

Problem summary

Problem conclusion

Temporary fix

Comments

• This APAR is associated with SPR# DPOL8GCJWU.
  The record was returned to the person who created it for more
   information.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels