@ all
der Weg über die Reminder-Funktion im Kalender ist geglückt, so wie ich mir eine einfache Lösung erhofft hatte:
Set ws = New notesuiworkspace
Set uidoc2 = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
StartDate=source.FieldGetText("DueDate")
Call uidoc2.FieldSetText("AppointmentType","4")
Call uidoc2.Reload
Call uidoc2.FieldSetText("Subject","Reminder #" + AITxt)
Call uidoc2.FieldSetText("StartDate", StartDate)
Call uidoc2.FieldSetText("Body", Chr(10) & "Today is Due Date for the Action Item # " + AITxt)
Call uidoc2.FieldSetText("AppointmentType", "Reminder")
Call uidoc2.Save()
Call uidoc2.Close()
Die Daten sind hier sehr spezifisch, den Code kann man natürlich noch entsprechend erweitern.
Alexis