&НаСервере
Процедура СоздатьСобытиеКалендарьOutlook()
Попытка
ПочтоваяПрограмма = Новый COMОбъект("Outlook.Application");
Исключение
СообщениеПользователю = Новый СообщениеПользователю;
СообщениеПользователю.Текст = "Не удалось подключиться к Outlook:" + Символы.ПС + ИнформацияОбОшибке().Описание;
СообщениеПользователю.Сообщить();
Возврат;
КонецПопытки;
// создание объекта "Встреча"
// о параметрах функции Createitem() - http://msdn.microsoft.com/en-us/library/office/bb208104(v=office.12).aspx
Событие = ПочтоваяПрограмма.CreateItem(1);
Событие.Subject = "Тема встречи";
Событие.Start = ТекущаяДата();
Событие.End = ТекущаяДата() + 1800;
Событие.Body = "Описание встречи";
Событие.Location = "Помещение";
// The meeting has been scheduled - http://msdn.microsoft.com/en-us/library/office/ff869427.aspx
Событие.MeetingStatus = 1;
ВыборкаПолучатели = ПолучитьСписокПолучателей();
Пока ВыборкаПолучатели.Следующий() Цикл
Получатель = Событие.Recipients.Add(ВыборкаПолучатели.Адрес);
// Required attendee - // http://msdn.microsoft.com/en-us/library/office/ff869959.aspx
Получатель.Type = 1;
КонецЦикла;
// установка напоминания
Событие.ReminderMinutesBeforeStart = 15;
// сохраняем встречу
Событие.Save();
// отправляем приглашения
Событие.Send();
СообщениеПользователю = Новый СообщениеПользователю;
СообщениеПользователю.Текст = "Событие создано успешно!";
СообщениеПользователю.Сообщить();
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
