P.S. - Hier noch der Code des Agenten der Datum-Strings in Auswahl- oder Spaltenformeln durch das aktuelle Datum ersetzt:
Option Public
Sub Initialize
'Selection-Formel ersetzen
'Integer = Beginn des Datum-Strings in der Form DD.MM.YYYY
viewStr$="view1"
retStr$=replaceSelectionFormula(viewStr$,21)
Print "Selection Formula für '" & viewStr$ & "' aktualisiert auf:" & Chr$(10) & retStr$ & Chr$(10
'Spalten-Formel ersetzen
'Integer Nr. 1 = Spalten-Nr.
'Integer Nr. 2 = Beginn des Datum-Strings
viewStr$="view2"
retStr$=replaceColumnFormula(viewStr$,0,52)
Print "Column Formula für '" & viewStr$ & "' aktualisiert auf:" & Chr$(10) & retStr$ & Chr$(10)
End Sub
Function replaceSelectionFormula(viewStr As String,lStr As Integer) As String
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView(viewStr)
org_formula$=view.SelectionFormula
org_dat$= Mid(view.SelectionFormula,lStr,10)
new_dat$=Format(Now(),"dd.mm.yyyy")
new_formula$=Replace(org_formula$,org_dat$,new_dat$)
view.SelectionFormula=new_formula$
replaceSelectionFormula=new_formula$
End Function
Function replaceColumnFormula(viewStr As String,colNr As Integer, lStr As Integer) As String
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewColumn
Set db = session.CurrentDatabase
Set view = db.GetView(viewStr)
Set vc = view.Columns(colNr)
org_formula$=vc.Formula
org_dat$= Mid(vc.Formula,lStr,10)
new_dat$=Format(Now(),"dd.mm.yyyy")
new_formula$=Replace(org_formula$,org_dat$,new_dat$)
vc.Formula=new_formula$
replaceColumnFormula=new_formula$
End Function