DCOM в Navision (задачи в Outlook)

[andrw]

Вот отправка задачи по E-Mail:


SetTaskForOutlook(Body : Text[1024];Subject : Text[1024];Categories : Text[1024];Companies : Text[1024];ActualWork : Integer;Complete :
IF ISCLEAR(OutlookApp) THEN
CREATE(OutlookApp,TRUE);
TaskItem := OutlookApp.CreateItem(3);
TaskItem.Assign;
//Закладка задача

TaskItem.BillingInformation := BillingInformation; //Расходы:

TaskItem.Body := Body; //Тело
TaskItem.Categories := Categories; //Категории: Важные клиенты, мысли и пр.
TaskItem.Companies := Companies; //Организации:
TaskItem.ActualWork := ActualWork; //Реально затрачено (4 мин)
TaskItem.Complete := Complete; //Завершена, не завершена
TaskItem.Contacts := Contacts; //Контакты
TaskItem.ContactNames := ContactNames; //Имя контакта ???
//TaskItem.Owner := '43'; //Text:=Integer
TaskItem.PercentComplete := PercentComplete; //Готово % !!! только при TaskItem.Status=1
//TaskItem.ReminderOverrideDefault := TRUE;
TaskItem.ReminderPlaySound := ReminderPlaySound;
TaskItem.ReminderSet := ReminderSet;
TaskItem.ReminderSoundFile := ReminderSoundFile; //Путь для звука

//TaskItem.Role := Role; //Text:=Integer
//TaskItem.SchedulePlusPriority := '54'; //Text:=Integer
////TaskItem.Status := 1; //TaskItem.Status := 0; // !!! 1 - выполняется, 2 - завершена
//TaskItem.TeamTask := TRUE; //Boolean:=Integer
TaskItem.TotalWork := TotalWork; //Объем работ (5 мин)
TaskItem.Subject := Subject; //Тема
TaskItem.DueDate := DueDate; //Срок (27.02.06)
TaskItem.StartDate := StartDate; //Дата начала (26.01.06)
//TaskItem.Status := Status; // 1 - выполняется, 2 - завершена
TaskItem.Importance := Importance; //Важность: низкая 0-3 (Низкая - Высокая)
TaskItem.PercentComplete := PercentComplete; //Готово % !!!
TaskItem.ReminderTime := ReminderTime; //Оповещение
TaskItem.Recipients.Add("E-mail");

TaskItem.Body := Body; //Тело

//Закладка Подробно
TaskItem.DateCompleted := DateCompleted; //Дата завершения
TaskItem.TotalWork := TotalWork; //Объем работ (5 мин)
TaskItem.ActualWork := ActualWork; //Реально затрачено (4 мин)
{
TaskItem.Contacts := '35'; //Контакты

TaskItem.ContactNames := '36'; //Имя контакта
TaskItem.Owner := '43'; //Text:=Integer
TaskItem.Role := '53'; //Text:=Integer
TaskItem.Contacts := '35'; //Контакты
}
//TaskItem.Save;

TaskItem.Send;
TaskFolder := OutlookApp.GetNamespace('MAPI').GetDefaultFolder(13);
TaskFolder.Display;

CLEAR(OutlookApp);

Есть правда одно но: последний параметр надо удалить. Оказалось что навик не передает более 19 параметров в функцию!