Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Bernard am 25.04.16 - 14:55:44
-
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
-
Ohne jetzt länger darüber nachgedacht zu haben - warum nicht über eine Richtlinie?
Oder habe ich die Anforderung falsch verstanden?
-
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.
-
Evtl. schießt Dir das ComputeWithForms irgendwelche Werte wieder raus, weil für irgendwelche Berechnungen Werte fehlen oder nicht korrekt sind.
-
Self-service-Anwendung kann ja auch bedeuten, dass ein Agent dann im Domino Verzeichnis die Richtlinie zuordnet...
-
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?