Каталог решений - Как создать встречу и разослать приглашения в outlook из 1С?

&НаСервере

Процедура СоздатьСобытиеКалендарь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();

    СообщениеПользователю = Новый СообщениеПользователю;
    СообщениеПользователю.Текст = «Событие создано успешно!»;
    СообщениеПользователю.Сообщить();

КонецПроцедуры