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

  • Автор темы Alexander (Criz)
  • Дата начала
A

Alexander (Criz)

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

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

Alexander (Criz)

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

'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....