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

        Сообщить("Событие в календаре создано успешно");
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.