Создание встречи в Outlook из 1С и и проблема с автоотправкой приглашения пользователю

1С v8

, , ,

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();

1 shadow_sw

17.11.17

✎

11:20

https://stackoverflow.com/questions/28904656/add-a-cc-recipient-to-outlook-2010-vba

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();

        Сообщить("Событие в календаре создано успешно");