|
|
#7 |
|
Участник
|
Спасибо! Но у меня что-то не получается...
Я написа так: Код: 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;Отправила на печать format(TaskItem.EntryID) = "In Use" - это правильно? |
|
|