Set up a database that is just a calendar and place a single entry on every day in the calendar. Open the calendar view thru a PickListCollection from UIWorkspace. From the picklist select the item for each day you want, and from the collection get the startdatetime field and do what you want with it. Does this make sense?

Don’t make the entries in the calendar repeating items because they are technically 1 document. Write an agent to add an appointment to every day for 10 years, or whatever you think you need.

I tested it in my Mail Database and it does work. here is the code to get you started.

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc as NotesDocument
Dim x as Long

Set db = session.currentdatabase

Set dc = ws.PickListCollection(PICKLIST_CUSTOM, True, db.server, db.FilePath, “Calendar”, “Test”, “Testing Pick”)

If dc.count > 0 Then
for x = 1 to dc.count
Set doc = dc.getnthdocument(x)
Msgbox Cstr(doc.startdatetime(0))

Next
End If

Mike K.