адрес email в xml

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