Archive Criteria enablen LotusScript

[Bernard]

Hallo liebes Forum,

mein Name ist Bernard und ich administriere seit mehreren Jahren Lotus Notes in unserem Unternehmen. Ich habe die Aufgabe bekommen in einer bestehenden Applikation ein Button zu erstellen mit dem man speziellen Maildatenbanken automatisch ein serverbasiertes Archivprofil zuweisen kann. Das funktioniert alles soweit einwandfrei, nur kann ich das archive criteria nicht enablen. Wenn das Script durchgelaufen ist, kann ich mit NotesPeek sehen, das der Wert "enabled" von "0" auf "1" gesetzt wurde. Schaue ich mir das Ganze im Mailfile an, ist dort kein Kriterium aktiviert und auch der Wert im Feld "enabled" wurde wieder auf "0" gesetzt.
Hier ist das Script, bitte schaut doch einmal wo ich da eventuell einen Fehler gemacht habe...Vielen Dank schon mal.
Wenn ihr andere gute Ideen habt, wie man das sonst noch lösen könnte, dann bitte her damit.... ;-)

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As New NotesDatabase ("","")
   Dim doc As NotesDocument
   Dim doc2 As NotesDocument
   Dim doc3 As NotesDocument
   Dim session As New notessession
   Dim filename As String
   Dim result As Integer
   Dim flag As Boolean
   
   Set uidoc = ws.CurrentDocument
   Set doc2 = uidoc.Document
   flag = db.OpenByReplicaID(doc2.GetItemValue("fl_adminServer")(0),doc2.GetItemValue("fl_replicaID")(0))
   If flag Then
      
      Set doc=db.getprofiledocument("Archive Profile")
      Set doc3 = db.GetProfileDocument("default for last modified")
      filename=Left$(Left$(db.filename,Len(db.filename)-4),6)+".nsf"
      
      doc3.arcenbl ="1"
      doc3.arcagenum = "30"
      doc3.arcslctage = "5"
      
      Call doc3.Save (True, False)
      
      doc.ArchiveLog="Yes"
      doc.ArchiveLogDBPath="archive\l_"&filename
      doc.ArchiveLocation="Server"       
      doc.ArchivePath="archive\a_"&filename
      doc.ArchiveServer=db.Server
      doc.ArchivingServer=db.Server
      doc.Enabled="Yes"
      doc.ServerEnabled="Yes"
      
      Call doc.computewithform(True,True)
      Call doc.sign()
      Call doc.save(True, False)
   End If
   
End Sub

[smokyly]

Ohne jetzt länger darüber nachgedacht zu haben - warum nicht über eine Richtlinie?
Oder habe ich die Anforderung falsch verstanden?

[Bernard]

Hi Smokyly,

das Ganze soll eine Self-Service Anwendung für den Servicedesk werden, d.h. die Mitarbeiter sollen keine direkten Rechte auf das Domino Directory haben.

[Driri]

Evtl. schießt Dir das ComputeWithForms irgendwelche Werte wieder raus, weil für irgendwelche Berechnungen Werte fehlen oder nicht korrekt sind.

[Pfefferminz-T]

Self-service-Anwendung kann ja auch bedeuten, dass ein Agent dann im Domino Verzeichnis die Richtlinie zuordnet...

[Bernard]

Hallo, habe das ComputeWithForm herausgenommen, hat leider nichts gebracht. Gibt es eventuell noch ein zweites Feld das zum aktivieren des Archiv Kriteriums benötigt wird?