|
|
#6 |
|
Участник
|
Можно попоробовать через EntryID
Код: 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(TaskItem.EntryID); |
|
|