()У Вас представлен механизм создания и отправки почтового сообщения. А собственно откуда должно вызываться это действие? Из карточки контрагента или из формы списка документов?
Для того чтобы получить адрес контрагента нужно считать данные о контактной информации
Вот пример: в табличной части есть ссылка на контрагента и получаем его эл. адрес.
&НаКлиенте
Процедура КлиентыСправочникКлиентПриИзменении(Элемент)
ТекущиеДанные = Элементы.Клиенты.ТекущиеДанные;
Если ЗначениеЗаполнено(ТекущиеДанные.СправочникКлиент) Тогда
ТекущиеДанные.ИмяКлиента = ТекущиеДанные.СправочникКлиент;
ТЗКонтИнфы = ТекущиеДанные.СправочникКлиент.Партнер.КонтактнаяИнформация;
ОтборЭА = Новый Структура;
ОтборЭА.Вставить("Тип", ВернутьТипКонтактнойИнфы() );
ЭлектронныеАдреса = ТЗКонтИнфы.НайтиСтроки(ОтборЭА);
Если ЭлектронныеАдреса.Количество() =1 Тогда
ТекущиеДанные.ЭлектронныйАдрес = ЭлектронныеАдреса[0].АдресЭП;
Иначе
ТекущиеДанные.ЭлектронныйАдрес = "";
КонецЕсли;
ТекущиеДанные.Условия = ТекущиеДанные.СправочникКлиент;
Иначе
ЭлАдрес = ТекущиеДанные.ЭлектронныйАдрес;
ТекущиеДанные.ЭлектронныйАдрес = ЭлАдрес;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ВернутьТипКонтактнойИнфы()
Возврат Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
КонецФункции
Показать