[.Quattro.]

Примерно так:

OutlApp 	Automation 'Microsoft Outlook 11.0 Object Library'.Application	
OutlTask	Automation 'Microsoft Outlook 11.0 Object Library'.TaskItem	
TimeText	Variant
***************************		
IF ISCLEAR(OutlApp) THEN
   CREATE(OutlApp);
OutlTask := OutlApp.CreateItem(3);

OutlTask.Complete := FALSE; 
OutlTask.Subject := 'Тема задания';
OutlTask.Body := 'Такая вот задача';
OutlTask.DueDate := 281008D; // Срок выполнения

// Оповещение
OutlTask.ReminderSet := TRUE;
TimeText := '28.10.2008 10:30';
OutlTask.ReminderTime := TimeText;

OutlTask.Save;
CLEAR(OutlApp);