[Marija84]

Спасибо! Но у меня что-то не получается...
Я написа так:

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" - это правильно?