[kosalex]

Господа!

Процедура ЗадачаИсполнителяПриЗаписи(Источник, Отказ) ЭКСПОРТ
    Если НЕ Источник.Выполнена  Тогда
            НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.Пользователь.Установить(Источник.Исполнитель);
            
            СтрокаНабора                 = НаборЗаписей.Добавить();
            СтрокаНабора.Пользователь     = Источник.Исполнитель;
            
            НаборЗаписей.Записать();
            
        //Отправка эл. письма пользователю-исполнителю при появлении для него задачи.
        ///////////////////////////////////////////////////////////////////////////////////////////////////////////
        ТекстПредупреждения = "В справочнике УчетныеЗаписиЭлектроннойПочты нет такого пользователя " + Источник.Исполнитель; 
        ПользовательИсполнитель =СокрЛП(Источник.Исполнитель);
        
        Запрос = Новый Запрос;
        Запрос.Текст = 
         "ВЫБРАТЬ
         |    УчетныеЗаписиЭлектроннойПочты.ИмяПользователя,
         |    УчетныеЗаписиЭлектроннойПочты.Ссылка
         |ИЗ
         |    Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
         |ГДЕ
         |    УчетныеЗаписиЭлектроннойПочты.ИмяПользователя = &ИмяПользователя";
         
         Запрос.УстановитьПараметр("ИмяПользователя",ПользовательИсполнитель);
                  
         Если НЕ Запрос.Выполнить().Пустой() Тогда
             
             РезультатЗапроса = Запрос.Выполнить().Выгрузить();
             
             Для Каждого ТекСтрока Из РезультатЗапроса Цикл 
                 
                 Параметры = Новый Структура;
                 ТелоПисьма = "У Вас есть новая задача";
                 
                 Параметры.Вставить("Кому",ТекСтрока.Ссылка);
                 Параметры.Вставить("Тело",ТелоПисьма);
                 
                 
            ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись,Параметры);
             КонецЦикла;     
             
             
         Иначе 
             Сообщить(ТекстПредупреждения, СтатусСообщения.Важное); 
         КонецЕсли;
         
         
         
         
     КонецЕсли;
КонецПроцедуры

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

[Vofka]

ТекСтрока.Ссылка

[kosalex]

Ошибка:{ОбщийМодуль.ЭлектроннаяПочта.Модуль(267)}: Итератор для значения не определен
Для Каждого ПочтовыйАдресПолучателя Из Кому Цикл

Код:

Процедура ЗадачаИсполнителяПриЗаписи(Источник, Отказ) ЭКСПОРТ
Если НЕ Источник.Выполнена  Тогда
   НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();
   НаборЗаписей.Отбор.Пользователь.Установить(Источник.Исполнитель);
  
   СтрокаНабора     = НаборЗаписей.Добавить();
   СтрокаНабора.Пользователь  = Источник.Исполнитель;
  
   НаборЗаписей.Записать();
  
  //Отправка эл. письма пользователю-исполнителю при появлении для него задачи.
  ///////////////////////////////////////////////////////////////////////////////////////////////////////////
  ТекстПредупреждения = "В справочнике УчетныеЗаписиЭлектроннойПочты нет такого пользователя " + Источник.Исполнитель;
  ПользовательИсполнитель =СокрЛП(Источник.Исполнитель);
  УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты
;
 
  Запрос = Новый Запрос;
  Запрос.Текст =
   "ВЫБРАТЬ
   | УчетныеЗаписиЭлектроннойПочты.ИмяПользователя,
   | УчетныеЗаписиЭлектроннойПочты.Ссылка
   |ИЗ
   | Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
   |ГДЕ
   | УчетныеЗаписиЭлектроннойПочты.ИмяПользователя = &ИмяПользователя";
  
   Запрос.УстановитьПараметр("ИмяПользователя",ПользовательИсполнитель);
     
   Если НЕ Запрос.Выполнить().Пустой() Тогда
   
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
   
    Для Каждого ТекСтрока Из РезультатЗапроса Цикл
    
     Параметры = Новый Структура;
     ТелоПисьма = "У Вас есть новая задача";
    
     Параметры.Вставить("Кому",Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию(ПользовательИсполнитель));
     Параметры.Вставить("Тело",ТелоПисьма);
    
    
   ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись,Параметры);
    КонецЦикла; 
   
   
   Иначе
    Сообщить(ТекстПредупреждения, СтатусСообщения.Важное);
   КонецЕсли;

  КонецЕсли;
КонецПроцедуры

[logist]

Все что идет после Новый Запрос, можно забыть. Потому, что вы ищите не то и не там.
1. Учетная запись в вашем случае это запись от которой отправляется письмо.
2. У справочника Пользователи есть ТЧ КонтактнаяИнфомрация, которая должна хранить там адрес электронной почты этого пользователя (по СтрокаТЧ.Вид = Справочники.ВидыКонтактнойИнформации.EmailПользователя), соответственно что бы сформировать поле Кому - нужно выбирать эту информацию из ТЧ справочника Пользователи.

[kosalex]

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

Кому = ПользовательИсполнитель.АдресЭлектроннойПочты, почему нельзя взять отсюда e-mail пользователя?

Процедура ЗадачаИсполнителяПриЗаписи(Источник, Отказ) ЭКСПОРТ
    Если НЕ Источник.Выполнена  Тогда
            НаборЗаписей = РегистрыСведений.ОповещениеПользователя.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.Пользователь.Установить(Источник.Исполнитель);
            
            СтрокаНабора                 = НаборЗаписей.Добавить();
            СтрокаНабора.Пользователь     = Источник.Исполнитель;
            
            НаборЗаписей.Записать();
            
        //Отправка эл. письма пользователю-исполнителю при появлении для него задачи.
        ///////////////////////////////////////////////////////////////////////////////////////////////////////////
        ТекстПредупреждения = "В справочнике УчетныеЗаписиЭлектроннойПочты нет такого пользователя " + Источник.Исполнитель; 
        
        ПользовательИсполнитель = СокрЛП(Источник.Исполнитель);
        ПользовательИсполнитель = Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию(ПользовательИсполнитель); //Получаем пользователя которому будем отправлять эл. сообщение
        
        УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты
; //Получаем пользователя от которого будем отправлять эл.сообщение
        
        Запрос = Новый Запрос;
        Запрос.Текст = 
         "ВЫБРАТЬ
         |    УчетныеЗаписиЭлектроннойПочты.ИмяПользователя,
         |    УчетныеЗаписиЭлектроннойПочты.Ссылка
         |ИЗ
         |    Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
         |ГДЕ
         |    УчетныеЗаписиЭлектроннойПочты.ИмяПользователя = &ИмяПользователя";
         
         Запрос.УстановитьПараметр("ИмяПользователя",СокрЛП(Источник.Исполнитель));
         
         РезультатЗапроса = Запрос.Выполнить();
         Если НЕ РезультатЗапроса.Пустой() Тогда   //Если Пользователь-исполнитель найден в справочнике "УчетныеЗаписиЭлектроннойПочты"
             
             ДетальныеЗаписиРезультатЗапроса = РезультатЗапроса.Выгрузить();
             
             Для Каждого ТекСтрока Из ДетальныеЗаписиРезультатЗапроса Цикл 
                 
                 Параметры = Новый Структура;
                 ТелоПисьма = "У Вас есть новая задача";
                 
                 Параметры.Вставить("Кому",ПользовательИсполнитель.АдресЭлектроннойПочты); //Получаем эл. адрес пользователя-исполнителя
                 Параметры.Вставить("Тело",ТелоПисьма);
                 
                 
            ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(УчетнаяЗапись,Параметры);
             КонецЦикла;     
             
             
         Иначе 
             Сообщить(ТекстПредупреждения, СтатусСообщения.Важное);
             Возврат;
         КонецЕсли;
         
         
         
         
     КонецЕсли;
КонецПроцедуры

[logist]

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

Где я сказал что ее нельзя использовать? Я об этом говорил "Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию(ПользовательИ
сполнитель)".

Кому = ПользовательИсполнитель.АдресЭлектроннойПочты, почему нельзя взять отсюда e-mail пользователя?

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

[kosalex]

Подскажите как получить эл. адрес со справочника Пользователи.
Там в форме "ФормаЭлемента" скрыта заакладка "КонтактнаяИнформация" . Как достучаться к значению реквизита АдресЭП табличной части "КонтактнаяИнформация" ??

[logist]

Вам не нужна "закладка" Контактная информация. В режиме предприятия адрес вводится на вкладке "Адреса, телефоны", поле E-mail.
Получить адрес можно запросом, как - я писал выше.

p.s. вы хоть сами как-то ковыряйтесь там, пытайтесь разобраться как работает что-то, а то когда видишь, что человек не пытается сам что-то сделать - пропадает интерес отвечать.

[kosalex]

Вам не нужна "закладка" Контактная информация. В режиме предприятия адрес вводится на вкладке "Адреса, телефоны", поле E-mail.
Получить адрес можно запросом, как - я писал выше.

p.s. вы хоть сами как-то ковыряйтесь там, пытайтесь разобраться как работает что-то, а то когда видишь, что человек не пытается сам что-то сделать - пропадает интерес отвечать.

можете не поверить, я ковыряюсь!!
Если у меня есть вопрос,я пишу его здесь, а сам продолжаю ковырятся!

[logist]

можете не поверить, я ковыряюсь!!

Плохо ковыряетесь. Получить адрес электронной почты, в Вашем случае, можно так

Кому = УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Источник.Исполнитель, Справочники.ВидыКонтактнойИнформации.EmailПользователя);

И уберите этот запрос который непонятно что делает. Получили системную учетную, получили адрес пользователя, задали текст, и дальше ЭлектроннаяПочта.ОтправитьПочтовоеСообщение

[kosalex]

Плохо ковыряетесь. Получить адрес электронной почты, в Вашем случае, можно так

Кому = УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Источник.Исполнитель, Справочники.ВидыКонтактнойИнформации.EmailПользователя);

И уберите этот запрос который непонятно что делает. Получили системную учетную, получили адрес пользователя, задали текст, и дальше ЭлектроннаяПочта.ОтправитьПочтовоеСообщение

Может не там ковыряю...
Про это "УправлениеКонтактнойИнформацией.ПолучитьКонтактнуюИнформацияОбъекта(Источни
к.Исполнитель, Справочники.ВидыКонтактнойИнформации.EmailПользователя)" первый раз увидел...
Спасибо!!