Hier noch ein kleiner weiterer Denkanstoss.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim doc As NotesDocument
Dim varRc As Variant
Dim strSearch As String
strSearch = |@Date(@Certificate([Expiration]; Certificate))|
'Set db = s.CurrentDatabase
If Not db.IsOpen Then Exit Sub
Set vw = db.GetView("People")
If vw Is Nothing Then Exit Sub
Set doc = vw.GetFirstDocument
Do While Not (doc Is Nothing)
varRc = Evaluate(strSearch, doc)
// hier nun Dein Vergleich mit aktuellem Datum und varRc
Set doc = vw.GetNextDocument(doc)
Loop
End Sub
Andreas