[kosalex]

Подумал,поискал, и нашёл страндартный общий модуль в типовой конф Документооборот в котором уже реализовано отправления сообщения.

Код:

Функция ОтправитьСообщение(знач УчетнаяЗапись, знач ПараметрыПисьма) Экспорт
    
    Возврат ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
    
КонецФункции

Функция ОтправитьПочтовоеСообщение(знач УчетнаяЗапись,
                                   знач ПараметрыПисьма) Экспорт
    
    Если ТипЗнч(УчетнаяЗапись) <> Тип("СправочникСсылка.УчетныеЗаписиЭлектроннойПочты")
       ИЛИ НЕ ЗначениеЗаполнено(УчетнаяЗапись) Тогда
        ВызватьИсключение НСтр("ru = 'Учетная запись не заполнена или заполнена не правильно'");
    КонецЕсли;
    
    Если ПараметрыПисьма = Неопределено Тогда
        ВызватьИсключение НСтр("ru = 'Не заданы параметры отправки.'");
    КонецЕсли;
    
    Кому = "";
    Если ПараметрыПисьма.Свойство("Кому", Кому) Тогда
        Если ТипЗнч(Кому) = Тип("Строка") Тогда
            ПараметрыПисьма.Кому = ОбщегоНазначенияКлиентСервер.РазобратьСтрокуСПочтовымиАдресами(Кому);
        КонецЕсли;
    Иначе
        ВызватьИсключение НСтр("ru = 'Не указан ни один получатель письма.'");
    КонецЕсли;
    
    Копии = "";
    Если ПараметрыПисьма.Свойство("Копии", Копии) Тогда
        Если ТипЗнч(Копии) = Тип("Строка") Тогда
            ПараметрыПисьма.Копии = ОбщегоНазначенияКлиентСервер.РазобратьСтрокуСПочтовымиАдресами(Копии);
        КонецЕсли;
    КонецЕсли;
    
    СлепыеКопии = "";
    Если ПараметрыПисьма.Свойство("СлепыеКопии", СлепыеКопии) Тогда
        Если ТипЗнч(СлепыеКопии) = Тип("Строка") Тогда
            ПараметрыПисьма.СлепыеКопии = ОбщегоНазначенияКлиентСервер.РазобратьСтрокуСПочтовымиАдресами(СлепыеКопии);
        КонецЕсли;
    КонецЕсли;
    
    АдресОтвета = Неопределено;
    
    // проверяем правильную заполненность АдресаОтвета
    Если ПараметрыПисьма.Свойство("АдресОтвета", АдресОтвета) Тогда
        ПараметрыПисьма.АдресОтвета = ОбщегоНазначенияКлиентСервер.РазобратьСтрокуСПочтовымиАдресами(АдресОтвета);
    КонецЕсли;
    
    Вложения = Неопределено;
    
    Если ПараметрыПисьма.Свойство("Вложения", Вложения) Тогда
        Для Каждого Вложение Из Вложения Цикл
            Если ТипЗнч(Вложение.Значение) = Тип("Строка") Тогда
                Если ЭтоАдресВременногоХранилища(Вложение.Значение) Тогда
                    Вложения.Вставить(Вложение.Ключ, ПолучитьИзВременногоХранилища(Вложение.Значение));
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        ПараметрыПисьма.Вложения = Вложения;
    КонецЕсли;
    
    Возврат ОтправитьСообщение(УчетнаяЗапись, ПараметрыПисьма);
    
КонецФункции

Как в функцию ОтправитьСообщение передать значения параметров учётная запись?
Задача моя следующая, при формировании какого нибудь БП уведомлять пользователя по электронке,для которого была сформирована задача.

[logist]

Как в функцию ОтправитьСообщение передать значения параметров учётная запись?

Этот код нио чем не говорит?

    Если ТипЗнч(УчетнаяЗапись) <> Тип("СправочникСсылка.УчетныеЗаписиЭлектроннойПочты")
       ИЛИ НЕ ЗначениеЗаполнено(УчетнаяЗапись) Тогда
        ВызватьИсключение НСтр("ru = 'Учетная запись не заполнена или заполнена не правильно'");
    КонецЕсли;

[kosalex]

Говорит! Как в неё передать пользователя - исполнителя БП?

ЭлектроннаяПочта.ОтправитьСообщение(????,????);

[logist]

А зачем это в нее передавать пользователя? В нее надо передать ПараметрыПисьма. Смотрим код дальше:

    Если ПараметрыПисьма.Свойство("Кому", Кому) Тогда
        Если ТипЗнч(Кому) = Тип("Строка") Тогда
            ПараметрыПисьма.Кому = ОбщегоНазначенияКлиентСервер.РазобратьСтрокуСПочтовымиАдресами(Кому);
        КонецЕсли;
    Иначе

Может сразу составите вопросы для себя и проанализируете код, как видите там есть ответы на многие вопросы.

[kosalex]

я понимаю,что в эту функцию нужно передать пользователя для которого создаётся БП и параметры письма.

Если НЕ ФормаОповещенияОткрыта Тогда 
            
            ЭлектроннаяПочта.ОтправитьСообщение(что сдесь писать?); //Как определить кому отослать сообщение?


            ОткрытьФормуМодально("ОбщаяФорма.ОповещениеПользователяНовыеЗадачи");
            ОповещениеПользователей.ОчиститьОповещенияОЗадачах();
КонецЕсли;

[Vofka]

что сдесь писать?

УчетнаяЗапись - это ссылка на элемент соответствующего справочника.
А ПараметрыПисьма - это я не помню что уже, вроде структура какая-то.

[logist]

УчетнаяЗапись - это учетная запись от имени которой будет отправляться письмо. Это запись соответствующего справочника, которая хранит, в данном случае, настройки "Отправителя".
А ПараметрыПисьма это произвольная структура, в которую можно передавать что необходимо для составления письма, типовые ключи структуры видны в "ОтправитьПочтовоеСообщение".
Вам же перед вызовом этой перед вызовом функции необходимо заполнить эту структуру, ПараметрыПиьма.Кому = АдресПользователяДляОповещения.

[kosalex]

мне нужно передать ссылку на пользователя в справочнике "СправочникСсылка.УчетныеЗаписиЭлектроннойПочты", да?

[logist]

мне нужно передать ссылку на пользователя в справочнике "СправочникСсылка.УчетныеЗаписиЭлектроннойПочты", да?

В первом параметре - да. Ссылку на ОТПРАВИТЕЛЯ письма.

[kosalex]

я не шарю....

что туда нужно написать и как?

[Vofka]

kosalex, посмотрите как эту функция вызывается в документообороте.

Сообщение отредактировал Vofka - 10.07.13, 15:42

[kosalex]

Здравствуйте. Не нашёл как вызывается....

Вот что у меня написалось:

Процедура ПроверитьЗадачиПользователя() Экспорт
    

    Параметры = Новый Структура;
    Параметры.Вставить("Кому",Исполнитель);
    
    УчетнаяЗапись = Пользователи.ТекущийПользователь();
    
    Если ОповещениеПользователей.ЕстьНовыеЗадачи() Тогда
        Сигнал();
        Если НЕ ФормаОповещенияОткрыта Тогда 
            
            ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись,Параметры); //Как определить кому отослать сообщение?

            ОткрытьФормуМодально("ОбщаяФорма.ОповещениеПользователяНовыеЗадачи");
            ОповещениеПользователей.ОчиститьОповещенияОЗадачах();
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

Не могу понять как вернуть, передать пользователя-исполнителя для которого задача!
По подписке на события при записи задачи получаю пользователя-исполнителя:

Процедура ЗадачаИсполнителяПриЗаписи(Источник, Отказ) ЭКСПОРТ
    Если НЕ Источник.Выполнена  Тогда
            НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.Пользователь.Установить(Источник.Исполнитель);
            
            СтрокаНабора                 = НаборЗаписей.Добавить();
            СтрокаНабора.Пользователь     = Источник.Исполнитель;
            
            НаборЗаписей.Записать();
            
    КонецЕсли;
КонецПроцедуры

А вот как передать пользователя-исполнителя в структуру "Параметры" ??

[asd34]

ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись,Параметры); //Как определить кому отослать сообщение?

Как-то так:

Пользователь = Исполнитель;//определяем пользователя 1С.
УчетнаяЗапись = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(Пользователь, "ОсновнаяУчетнаяЗапись"); //это основная учетная запись эл. почты пользователя, указанная в настройках пользователя

ПараметрыПисьма = Новый Структура;
ПараметрыПисьма.Вставить("Тема", НСтр("ru = 'Задачи'"));
ПараметрыПисьма.Вставить("Тело", НСтр("ru = 'У Вас новая задача!'"));
ПараметрыПисьма.Вставить("Кому", УчетнаяЗапись.АдресЭлектроннойПочты);
Если Пароль <> Неопределено Тогда
     ПараметрыПисьма.Вставить("Пароль", Пароль);
КонецЕсли;

[kosalex]

Пользователь = Исполнитель;

как получить Пользователь = Исполнитель;//определяем пользователя 1С. ??

в регистре сведений хранятся пользователи-исполнители.

Как его от туда выбрать?

[asd34]

Процедура ПроверитьЗадачиПользователя() проверяет задачи текущего пользователя? Тогда

Пользователь = глЗначениеПеременной("глТекущийПользователь");

[kosalex]

не текущего. текущий пользователь делает задачу для пользователя - исполнителя. Уведомлять нужно пользователя-исполнителя, который записывается в регистр сведений при формировании бизнес процесса. Если в регистре сведений есть запись с именем "Пользователь-исполнитель",тогда этому пользователю-исполнителю нужно отправить уведомление.

[asd34]

Получайте исполнителя из Вашего регистра.

[kosalex]

не получается....

НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Пользователь.Установить( Что сдесь писать?);

или это не правильно?

[asd34]

[необходимо зарегистрироваться для просмотра ссылки]

[kosalex]

спасибо, гуглить я умею. я сюда пишу после того как погуглю.....

Функция ВыбратьИсполнителяБП() ЭКСПОРТ
    
    НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();    
    НаборЗаписей.Отбор.Пользователь.Установить("Пользователь", ???????);
    НаборЗаписей.Прочитать();
    Исполнитель = НаборЗаписей.Пользователь;
    НаборЗаписей.Очистить();
    Возврат Исполнитель;
    
    
КонецФункции

Как сдесь установить значение??Сдесь должен быть по идеи пользователь-исполнитель.