![]() |
#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); |
|