0
ahmato
17.11.17
✎
10:44
|
Добрый день!
Собственно говоря, созданию встречу в Outlook из 1С, добавляю участника все вроде хорошо, НО почему то Outlook не отправляет автоматически приглашение участнику. Может уже кто сталкивался с такой проблемой? что не так сделал?
Код:
Попытка
Outlook = Новый COMОбъект("Outlook.Application");
Исключение
Сообщить("Не удалось создать объект Outlook.Application");
Возврат;
КонецПопытки;
Событие = Outlook.CreateItem(1);
Событие.Subject = "Запись в календарь из 1С";
Событие.Start = Формат(ТекущаяДата()+3600, "ДЛФ=DT"); //в формате 01.01.0001 00:00:00
Событие.End = Формат(ТекущаяДата()+5100, "ДЛФ=DT"); //в формате 01.01.0001 00:00:00
Событие.Body = "Тут может быть любая запись. Также можно сделать.";
Событие.Location = "";
Событие.Recipients.Add("upp_support@****.ru"); // отправляем событие другому
Событие.ReminderMinutesBeforeStart = 15;
Событие.BusyStatus = 0;
Событие.MeetingStatus = 0;
Событие.Sensitivity = 2;
Событие.Save();
|
|
2
ahmato
17.11.17
✎
14:07
|
В итоге что получилось, работающий код:
Попытка
Outlook = Новый COMОбъект("Outlook.Application");
//Событие = Outlook.GetNamespace("MAPI");
Исключение
Сообщить("Не удалось создать объект Outlook.Application");
Возврат;
КонецПопытки;
Событие = Outlook.CreateItem(1);
Событие.Subject = "Запись в календарь из 1С";
Событие.Start = Формат(ТекущаяДата()+3600, "ДЛФ=DT"); //в формате 01.01.0001 00:00:00
Событие.End = Формат(ТекущаяДата()+5100, "ДЛФ=DT"); //в формате 01.01.0001 00:00:00
Событие.Body = "Тестовая запись";
Событие.Location = "Помещение";
Событие.MeetingStatus = 1;
Участник = Событие.Recipients.Add("upp_support@*****.ru"); // отправляем событие другому
Участник.Type = 1;
Событие.ReminderMinutesBeforeStart = 15;
Событие.BusyStatus = 0;
Событие.Sensitivity = 2;
//Событие.Display();
Событие.Save();
Событие.Send();
Сообщить("Событие в календаре создано успешно");
|
|