Lotus Notes - Rutina de Aviso programada

Necesito Elaborar una rutina que me genere un aviso de cumplimiento de tiempos como lo hace la agenda de lotus, ¿Alguien me podria ayudar?

si lo que necesitas es una alarma, puedes generar entradas en la agenda del usuario para que le avise

este código crea un aviso para una fecha x y avisa a las 14:00 hrs (ojo que para poder crear entradas en la agenda de otra persona debes tener permisos o el mismo usuario es quien debe correr el agente)

Sub createReminder(fecha As String)

Dim dateTime As NotesDateTime
Dim fechaini As String
fechaini=fecha &" 14:00 PM"

Set dateTime = New NotesDateTime( fecha)

Dim userMailDb As New NotesDatabase( "miservidor", "mibasededatosdecorreo.nsf" )

Dim reminderDoc As New NotesDocument( userMailDb )

Dim DTItem As NotesItem

With reminderDoc

.Form = "Appointment"


.AppointmentType = "Reminder"
.tmpEventLabel = "Reminder"
.tmpApptType = 4
.ReplaceItemValue "$Alarm", 1
.ReplaceItemValue "$AlarmDescription", "Prueba de alarmas..."
.ReplaceItemValue "$AlarmMemoOptions", ""
.ReplaceItemValue "$AlarmOffset", 1
.ReplaceItemValue "$AlarmUnit", "M"
.ReplaceItemValue "$AlarmSound", "Ring"
.Subject = "alarma"
.Alarms = "1"

.CalendarDateTime = dateTime.lsLocalTime
.StartDate = dateTime.lsLocaltime
.StartTime = dateTime.lsLocaltime
.StartDateTime = dateTime.lsLocaltime

.EndDate = dateTime.lsLocaltime
.EndTime = dateTime.lsLocaltime
.EndDateTime = dateTime.lsLocaltime

.AppointmentType = 4

.ComputeWithForm False, False
.Save True, False

.PutInFolder( "$Alarms" )

End With

End Sub

Muchas gracias por el consejo, y mira ya adapte la rutina y si me agenda la cita, nada mas que no me manda la alarma, ¿tienes alguna idea de porque puede ser?

Saludos!