Email и электронный адрес физ. лица

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

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