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

Форум Программирование Общие вопросы программирования (Dev)

1. ahmato 16.11.17 17:19 Сейчас в теме

Добрый день!

Собственно говоря, созданию встречу в 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();

Показать

Найденные решения

2. ahmato 17.11.17 14:08 Сейчас в теме

В итоге что получилось, работающий код:

Попытка
        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();

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

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. ahmato 17.11.17 14:08 Сейчас в теме

В итоге что получилось, работающий код:

Попытка
        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();

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

Показать

3. vpaoli 26 17.07.20 19:07 Сейчас в теме

Допустим вы из 1С создали встречу. После этого как из 1С ее изменить (дату и содержание) ?

Оставьте свое сообщение

E-mail: