Можно попоробовать через 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);