Hm, vielleicht könnte man einen Agent bauen der genau das macht... so spontan kann ich nichts finden. Ist bei mir auch so. Nur das meine Einträge erst 2125 expiren und ich solange wohl nicht leben werde :).
Ich stelle mir da ein Agent vor der über alle Documente drüberläuft und das Datum korrigiert... Ich stelle mir hier so einen Agent vor:
-------------
Sub Initialize
Dim nS As New NotesSession
Dim nDC As NotesDocumentCollection
Set nDC = nS.currentDatabase.UnprocessedDocuments
If nDC.Count <= 0 Then
Print "No documents selected."
Exit Sub
End If
Dim buf As String
buf = Inputbox("Enter Fieldname, Fieldvalue:", "Set Fieldvalue")
If buf <> "" Then
Dim fieldname As String, fieldvalue As Variant
Dim pos As Integer
pos = Instr(buf, ",")
If pos > 0 Then
fieldname = Trim(Left(buf, pos - 1))
fieldvalue = Trim(Right(buf, Len(buf) - pos))
End If
msgText = "Start operation?" +Chr(10)+Chr(10)_
+ "Documents = " + Cstr(nDC.Count) +Chr(10)_
+ "Fieldname = " + fieldname +Chr(10)_
+ "Value = " + fieldvalue
If Messagebox(msgText, 4+32, "Set Fieldvalue") = 6 Then
Dim nD As NotesDocument
Set nD = nDC.getFirstDocument
While Not nD Is Nothing
Call nD.replaceItemValue(fieldname, fieldvalue)
Call nD.save(True, False, True)
Set nD = nDC.getNextDocument(nD)
Wend
End If
End If
End Sub
----------
mußt da aber mal gucken ob das klappt... Ich habe mir die Kalendareinträge nicht angesehen... Mach vorher mal eine locale Replik davon und teste das dort 
