Спасибо! Но у меня что-то не получается...
Я написа так:
Код:
OutlApp Automation 'Microsoft Outlook 11.0 Object Library'.Application
OutlNameSpace Automation 'Microsoft Outlook 11.0 Object Library'.NameSpace
OutlTask Automation 'Microsoft Outlook 11.0 Object Library'.TaskItem
=======================
IF ISCLEAR(OutlApp) THEN
CREATE(OutlApp);
OutlNameSpace := OutlApp.GetNamespace('MAPI');
OutlTask := OutlNameSpace.GetItemFromID(format(TaskItem.EntryID));
OutlTask.ReminderSet := TRUE;
OutlTask.Save;
И при создании задачи появляется ошибка:
Не удалось вызвать функцию GetItemFromID. Компонент OLE или Automation вернул неизвестный код ошибки.
Отправила на печать format(TaskItem.EntryID) = "In Use" - это правильно?