![]() |
#2 |
Участник
|
Примерно так:
Код: 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); |
|