Календари Lotus и Outlook

Тема в разделе "Lotus - Программирование", создана пользователем Alexander (Criz), 24 июл 2008.

  1. Alexander (Criz)

    Alexander (Criz) Гость

    Есть заказчик, у него везде стоит Outlook, у них там и почта и календарь.
    Есть база на Лотусе, где есть возможность создавать напоминалки в свой Лотусный календарь.
    Есть хотелка - создавать напоминалки не в Лотусном календаре, а в Outlook....

    Какие есть идея как это можно сделать?
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    OLE + Outlook + Google. :)
     
  3. Alexander (Criz)

    Alexander (Criz) Гость

    Ок, так и сделал:

    'Outlook---------------------------------------------
    Dim objOutlook As Variant
    Dim objAppointment As Variant

    Const olAppointmentItem = 1

    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppointment = objOutlook.CreateItem(olAppointmentItem)

    objAppointment.Start = dateTime.LSLocalTime
    objAppointment.Duration = 60
    objAppointment.Subject = "Напоминание о " + Client$
    objAppointment.Body = msg$
    ' objAppointment.Location = "44/2039"
    objAppointment.ReminderMinutesBeforeStart = 15
    objAppointment.ReminderSet = True

    objAppointment.Save

    '------------------------------------------------------------------------------

    Хотя можно и через iCal, но пока хватило и OLE....
     
Загрузка...

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