1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

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

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

  1. Alexander (Criz)

    Alexander (Criz) Гость

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

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

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

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

    Alexander (Criz) Гость

    Репутация:
    0
    Ок, так и сделал:

    '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....
     
Загрузка...
Похожие Темы - Календари Lotus Outlook
  1. cLif
    Ответов:
    0
    Просмотров:
    20
  2. Domino-Designer
    Ответов:
    0
    Просмотров:
    25
  3. anna
    Ответов:
    4
    Просмотров:
    124
  4. dmitriy8
    Ответов:
    3
    Просмотров:
    164
  5. dasov
    Ответов:
    3
    Просмотров:
    212

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