как создать скриптом напоминание в почтовой бд (сообщение Alarm!)

[deeeman]

Привет ВСЕМ!

кто нибудь создавал скриптом в почтовой бд напоминания (выскакивает поверх всех окон ALARM), и чтобы они потом еще и работали ))
поделитесь опытом.

 

[Omh]

Напимер тут

 

[deeeman]

Все делаю по ссылке, которая выше.
Но выскакивающего окошка не вываливается (((
запись создается и открывается нормально
вот код (на кнопке на форме):
в чем прокол?

Dim ws As New NotesUIWorkspace

Dim alarmDateTime As NotesDateTime
Set alarmDateTime = New NotesDateTime( "today" )
Call alarmDateTime.SetNow
Call alarmDateTime.AdjustMinute( 20 )

mailDBName = Evaluate({@MailDbName})
Set maildb = New NotesDatabase(mailDBName(0), mailDBName(1))
Set maildoc = maildb.CreateDocument
With maildoc
.Form = "Appointment"
.~$AlarmTime = alarmDateTime.LSLocalTime
.~$Alarm = 1
.Subject = docui.Document.Subject(0)
.CalendarDateTime = alarmDateTime.LSLocalTime
.StartDateTime = alarmDateTime.LSLocalTime
.ReminderTime = alarmDateTime.LSLocalTime
.EndDateTime = alarmDateTime.LSLocalTime
.ExcludeFromView = Evaluate({"D" : "S"})
.Principal = docui.Document.From(0)
.~$AltPrincipal = docui.Document.From(0)
.AppointmentType = "4"
.~_ViewIcon = 10
End With
Call maildoc.Save(True, True, True)
Call maildoc.PutInFolder("($Alarms)")
Call ws.CheckAlarms

 

[Medevic]

Вручную созданные работают? Оповещения не отключены?