Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

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

Создание встречи в Outlook из 1С и и проблема с автоотправкой приглашения пользователю
Я
   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();
 
 
   shadow_sw
 
1 - 17.11.17 - 11:20
   ahmato
 
2 - 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();

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

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует