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

[Alexander (Criz)]

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

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

 

[Medevic]

OLE + Outlook + Google.

 

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