SchedMgr: Error processing Calender profile

Det tyder på, at der ligger en mailfil for en person, som er blevet slettet i NAB'en. Når servertasken SchedMgr kører råber den "svin". Egentlig er det ikke noget problem, udover at filen ligger og fylder på serveren, medmindre selvfølgelig brugeren stadig skulle være i NAB'en.

Mailfilerne burde bliver slettet automatisk, men løsningen er at gøre det manuelt.

Det er rigtigt at der ligger en mail fil for denne person, men personen er stadigt oprettet.

Fejlen kom efter at brugeren loggede på serverens client del.

Det kan skyldes forkert navn i $BusyName i kalenderaftaler. 
Prøv at oprette en agent i mailfilen som retter feltet "$BusyName". Scriptet skal tage det korrekte brugernavn fra kalender-profilen (ejeren af mailfilen).

Eksempel script:

Sub Initialize
    Dim session As New Notessession
    Dim db As Notesdatabase
    Set db = session.Currentdatabase
   
    Dim Owner As String
    Owner = GetCalendarOwner( db )
   
    CorrectAllEntries db, Owner
   
    Print "Rettelser afvist!"
End Sub

Function GetCalendarOwner( db As NotesDatabase ) As String
    Dim doc As Notesdocument
    Set doc = db.GetProfileDocument( "CalendarProfile" )
   
    GetCalendarOwner = doc.Owner(0)
End Function

Sub CorrectAllEntries( db As NotesDatabase, Owner As String )
    Dim col As NotesDocumentCollection
    Set col = db.AllDocuments
   
    Dim count As Integer
    count = col.count
   
    Dim doc As NotesDocument
    Set doc = col.GetFirstDocument
   
    While Not ( doc Is Nothing )
          Print "To go: " & count
         
          If doc.Form(0) = "Appointment" Then CorrectOneDocument doc, Owner
         
          Set doc = col.GetNextDocument( doc )
          count = count - 1
    Wend
End Sub

Sub CorrectOneDocument( doc As NotesDocument, Owner As String )
    Dim Item As NotesItem
    Set Item = doc.GetFirstItem( "$BusyName" )
    If Item Is Nothing Then Exit Sub
   
    Call doc.ReplaceItemvalue( "$BusyName", Owner )
    Call doc.Save( True, False, True )
End Sub

OK tak det hjalp

gr8dane laver du et svar, så godkender jeg.

Takker og bukker :-)