Время напоминия выполнения задачи при синхронизации с Outlook

[Marija84]

Всем Доброго времени суток!
Подскажите, плзз, если кто сталкивался: Как можно в Navision задать время напоминания выполнения задачи.

При постановке задача в модуле CRM, происходит синхронизации с Outlook и она отображается Outlook. Мне необходимо задать время напоминания выполения задачи 10 утра. В outlook есть объект TaskItem.ReminderTime, а в Navision его уже нет... Надо сделать в 4ке, но если на 5ке легче, будем на 5ку переносить все...

Спасибо!

[.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);

[anatol33]

Спасибо .Quattro. воспользовался Вашим кодом, от себя добавлю.

Если хотите назначить задачу другому пользователю добавьте следующий код:

OutlTask.Importance(2); // важно
TimeText := FORMAT("Posting Date",0,'<Day,2>.<Month,2>.<Year4>') + ' 09:00';
OutlTask.Owner('Sender Name'); // из адресной книги
OutlTask.Recipients.Add('Recipient Name 1'); // из адресной книги
OutlTask.Recipients.Add('Recipient Name 2'); // из адресной книги
OutlTask.Assign;
OutlTask.Send;
//OutlTask.Save;

[Sancho]

самое лучшее спасибо - в рейтинге под аватаркой!

[Marija84]

Спасибо за помощь!
Долго пробовала сама справиться, но не смогла... Поэтому, прошу у Вас помощи еще раз:
Вы писали способ реализации для объекта: 'Microsoft Outlook 11.0 Object Library'.TaskItem,
а в стандарте Navision задачи создается с помощью: 'NS Outlook Synchronization Handler'.OTask, а для данного объекта нет свойста ReminderSet....
Как быть, может кто подскажет: Как можно обратиться к созданной задаче, сделать ее объектом типа 'Microsoft Outlook 11.0 Object Library'.TaskItem и уже потом изменить свойство ReminderSet.

Всем Спасибо....

[.Quattro.]

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

[Marija84]

Спасибо! Но у меня что-то не получается...
Я написа так:

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(format(TaskItem.EntryID));
OutlTask.ReminderSet := TRUE;
OutlTask.Save;

И при создании задачи появляется ошибка: Не удалось вызвать функцию GetItemFromID. Компонент OLE или Automation вернул неизвестный код ошибки.
Отправила на печать format(TaskItem.EntryID) = "In Use" - это правильно?

[.Quattro.]

Это вы написали в КЮ 5073 в функции ProcessOutlookTask?

[Marija84]

в КЮ 5073 в функции CreateTaskItem.

[.Quattro.]

после строчки IF TaskItem.Save THEN BEGIN?

[Marija84]

Да.