Здравствуйте.
Пытаюсь заполнить контактную информацию контрагента полученную из excel файла.

(Пока тренируюсь на e-mail.)
Код:

```1c
    НовыйЕмаил = "test@TEST.ru";
    тСхема = "<КонтактнаяИнформация xmlns="http://www.v8.1c.ru/ssl/contactinfo" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Представление="" + НовыйЕмаил + ""><Состав xsi:type="ЭлектроннаяПочта" Значение="" + НовыйЕмаил + ""/></КонтактнаяИнформация>";
    КонтИнформация = Новый ТаблицаЗначений;
    КонтИнформация.Колонки.Добавить("Тип");
    КонтИнформация.Колонки.Добавить("Вид");
    КонтИнформация.Колонки.Добавить("Представление");
    КонтИнформация.Колонки.Добавить("ЗначенияПолей");
    КонтИнформация.Колонки.Добавить("Значение");
    КонтИнформация.Колонки.Добавить("Дата");
    ТЗстр = КонтИнформация.Добавить();
    ТЗстр.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;//"Адрес электронной почты";
    ТЗстр.Вид = "Email";
    ТЗстр.Представление = НовыйЕмаил;
    ТЗстр.ЗначенияПолей = тСхема;
    ТЗстр.Значение = "{"value": "" + НовыйЕмаил + "","type": "АдресЭлектроннойПочты"}";
    ТЗстр.Дата = ТекущаяДата();

    УправлениеКонтактнойИнформацией.УстановитьКонтактнуюИнформациюОбъекта(МойКонтрагент, КонтИнформация);
```

Текст ошибки:
Значение не является значением объектного типа (РазрешитьВводНесколькихЗначений)
{ОбщийМодуль.УправлениеКонтактнойИнформациейСлужебный.Модуль(2340)}: Если ВидКонтактнойИнформации.РазрешитьВводНесколькихЗначений Тогда
{ОбщийМодуль.УправлениеКонтактнойИнформациейСлужебный.Модуль(2192)}: Если ЗапрещенВводНесколькихЗначений(СтрокаКонтактнойИнформацииОбъекта.Вид, Объект.КонтактнаяИнформация, СтрокаКонтактнойИнформацииОбъекта.Дата, ХранитьИсториюИзменений, ИдентификаторСтрокиТабличнойЧасти) Тогда
{ОбщийМодуль.УправлениеКонтактнойИнформацией.Модуль(430)}: УправлениеКонтактнойИнформациейСлужебный.УстановитьКонтактнуюИнформациюОбъекта(СсылкаИлиОбъект, КонтактнаяИнформация, ОбъектМетаданных, Замещать);
{ВнешняяОбработка.Тест.Форма.Форма.Форма(1228)}: УправлениеКонтактнойИнформацией.УстановитьКонтактнуюИнформациюОбъекта(МойКонтрагент, КонтИнформация);
{ВнешняяОбработка.Тест.Форма.Форма.Форма(1255)}: ЗаполнитьЕПочтуНаСервере();

Что я делаю не так и есть ли более простой способ?
---
- Совершенно верно, спасибо, я уже весь код поправил и всё работает.

Код:

 Спр = Справочники.Контрагенты.Выбрать();
 Пока Спр.Следующий() Цикл
  МойКонтрагент = Спр.ПолучитьОбъект();
  КонтИнформация = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(МойКонтрагент,,ТекущаяДата(),Ложь);
  Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
  Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
  ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(АдресЭлектроннойПочты, Тип);
  Если КонтИнформация.Количество() < 1 Тогда
   ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
   УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(МойКонтрагент, ЗначенияПолей, Вид, Тип);
  Иначе
   Если ФлагЗамены Тогда
    Для каждого ТекСтрока ИЗ КонтИнформация Цикл
     Если ТекСтрока.Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты Тогда
      ТекСтрока.Представление = АдресЭлектроннойПочты;
      ТекСтрока.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
      УправлениеКонтактнойИнформацией.УстановитьКонтактнуюИнформациюОбъекта(МойКонтрагент, КонтИнформация);
     КонецЕсли;
    КонецЦикла;
   КонецЕсли;
  КонецЕсли;
  МойКонтрагент.Записать();
 КонецЦикла;
---
ТЗстр.Вид = "Email";

Вид это должен быть элемент справочника ВидыКонтактнойИнформации, а не строка, т.е. заменить на
```1c
    ТЗстр.Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
```
---
- Совершенно верно, спасибо, я уже весь код поправил и всё работает.

Код:

 Спр = Справочники.Контрагенты.Выбрать();
 Пока Спр.Следующий() Цикл
  МойКонтрагент = Спр.ПолучитьОбъект();
  КонтИнформация = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(МойКонтрагент,,ТекущаяДата(),Ложь);
  Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
  Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
  ОбъектXDTOКИ = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(АдресЭлектроннойПочты, Тип);
  Если КонтИнформация.Количество() < 1 Тогда
   ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
   УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(МойКонтрагент, ЗначенияПолей, Вид, Тип);
  Иначе
   Если ФлагЗамены Тогда
    Для каждого ТекСтрока ИЗ КонтИнформация Цикл
     Если ТекСтрока.Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты Тогда
      ТекСтрока.Представление = АдресЭлектроннойПочты;
      ТекСтрока.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
      УправлениеКонтактнойИнформацией.УстановитьКонтактнуюИнформациюОбъекта(МойКонтрагент, КонтИнформация);
     КонецЕсли;
    КонецЦикла;
   КонецЕсли;
  КонецЕсли;
  МойКонтрагент.Записать();
 КонецЦикла;