1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. deeeman

    deeeman Well-Known Member

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

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

    Omh Well-Known Member
    Lotus team

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

    deeeman Well-Known Member

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

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

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

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