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

deeeman

Well-known member
04.12.2007
383
0
#1
Привет ВСЕМ!

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

deeeman

Well-known member
04.12.2007
383
0
#3
Все делаю по ссылке, которая выше.
Но выскакивающего окошка не вываливается (((
запись создается и открывается нормально
вот код (на кнопке на форме):
в чем прокол?

Код:
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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
Вручную созданные работают? Оповещения не отключены?