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

Тема в разделе "Lotus - Программирование", создана пользователем deeeman, 23 мар 2010.

  1. deeeman

    deeeman Well-Known Member

    Регистрация:
    4 дек 2007
    Сообщения:
    382
    Симпатии:
    0
    Привет ВСЕМ!

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

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
  3. deeeman

    deeeman Well-Known Member

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

    Код (Text):
    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
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Вручную созданные работают? Оповещения не отключены?
     
Загрузка...

Поделиться этой страницей