Показать сообщение отдельно
Старый 11.11.2008, 11:22   #6  
.Quattro. is offline
.Quattro.
Участник
Лучший по профессии 2009
 
194 / 22 (1) +++
Регистрация: 22.05.2006
Можно попоробовать через 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);