VPF::События календаря OutlookXP - Форум программистов

Kesh

Дата 26.9.2005, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: нет
Всего: 54

Есть такая проблемка... Необходимо выбрать из Outlook события на 7 дней вперед, НО при выборке AppointmentItem выбирается только одно событие и повторяющихся... Например, если стоит событие Дня рождения на 30 октября 1983 года и оно должно повторяться ежегодно, но при выборке из Outlook'a выбирается только одно событие на 30.10.1983 а надо, чтобы при составлении запроса на Find('[Sort] >= ''27/10/2005''') - событие это выбиралось...

Как?

Пояснения и исходный код, если недостаточно понятно разъяснил, - вечером...

--------------------

Kesh

Дата 26.9.2005, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: нет
Всего: 54

Спасибо, нашел...
Надо вот так...

Код


var
  OlCals: OutlookXP._Items;
  OlNameSpace: OutlookXP._NameSpace;
  OlCalItem: OutlookXP._AppointmentItem;

function GetCalenderEvents: string;
var
  i: integer;
  ResS, S, S1: string;
begin
  ResS := '';
  OlNamespace := Outlook.GetNamespace('MAPI');
  OlCals := OlNamespace.GetDefaultFolder(olFolderCalendar).Items;
  OlCals.Sort('Start',0);
  OlCals.IncludeRecurrences := true;

  OlCalItem := OlCals.Find('[start] >= ''25/09/2005'' and [start] <= ''25/09/2007''') as OutLookXP._AppointmentItem;

  while Assigned(OlCalItem) do
    begin
      ResS := ResS + OlCalItem.Subject+' - '+DateToStr(OlCalItem.Start)+#13+#10;
      OlCalItem := OlCals.FindNext as OutlookXP._AppointmentItem;
    end;
  Result := ResS;
end;

Все дело было в строчке

Код


  OlCals.IncludeRecurrences := true;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »