LO38694: MAIL FILE MOVE THROUGH ADMINP FAILS IF OUT OF OFFICE AGENT HAS A $ONBEHALFOF FIELD.

APAR status

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

Error description

• When moving large amounts of users, administrators commonly
  notice that for
  some of the databases, the move fails. This is due to the fact
  that the user's
  out of office agent has the $OnBehalfOf field populated. AdminP
  will fail with
  the following error:
  Errors:Title: Billy McLawhorn File name: mail8/a236212.nsf;
  Name:
  OutOfOffice|OutOfOffice; Error: You are not authorized to
  perform that
  operation
  
  Title: Billy McLawhorn File name: mail8/a236212.nsf; Error: You
  are not
  authorized to perform that operation
  
  Action comments:Billy McLawhorn/CCI/WACH needs Run unrestricted
  methods and
  operations rights on MS128b.Notes.Wachovia.Net/WACH in order to
  have the
  Administration Process reschedule the agent
  OutOfOffice|OutOfOffice in
  mail8/a236212.nsf
  
  Steps to reproduce this:
  1) Create a test user and give the user Editor access to the
  mail database with
  all available privleges.
  2) Switch ID to the test user and enable the out of office
  agent. Wait for it
  to become enabled via AdminP ( You can then disable it at this
  point. Whether
  or not the agent is enabled is not relevant. )
  3) Initiate a mail move through AdminP and wait for it to fail.
  

Local fix

• 1) Remove the value in the "Run on Behalf Of" field of the agent
  properties (
  second tab )
  2) The following code can be used to programmatically reset the
  agent
  properties:
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Dim unid, flags, newflags As String
  Dim nc As NotesNoteCollection
  Dim pos As Integer
  
  Set db = session.GetDatabase("server", "database")
  Set nc = db.CreateNoteCollection(False)
  nc.SelectAgents = True
  Call nc.BuildCollection
  
  unid = nc.GetFirstNoteId
  While unid <> ""
   'get the next document in the list of UNIDs
   Set doc = db.GetDocumentByID(unid)
  
   'if this is the design doc for an OoOA
   If Instr(1,doc.GetItemValue("$Title")(0), "OutOfOffice") Then
    If doc.HasItem("$OnBehalfOf") Then
     'set the OnBehalfOf to blank or remove it
     Call doc.ReplaceItemValue("$OnBehalfOf", "")
     'Call doc.RemoveItem("$OnBehalfOf")
  
     flags = doc.GetItemValue("$FlagsExt")(0)
     'check flags to see if there is an "a",
     'if so remove it and save it back
     pos = Instr(flags, "a")
     If pos <> 0 Then
      ' we found "a", rebuild the flags field
      newFlags = StrLeft(flags, "a") & StrRight(flags, "a")
      Call doc.ReplaceItemValue("$FlagsExt", newFlags)
     End If
     Call doc.Save(1,0)
    End If
   End If
   'get the next UNID in the list
   unid = nc.GetNextNoteId(unid)
  Wend
  

Problem summary

Problem conclusion

Temporary fix

Comments

• This APAR is associated with SPR# BMGN6ZWNAD.
  Dev unable to reproduce
  

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