Декодировка текста в обработке

Доброго дня! Есть обработка, вытягивающая с почти сообщения, разбирающая текст и создающая на его основе документы.
Столкнулся с проблемой, при получении писем от определенного отправителя 1с трактут текст сообщения как:
From: <anonimniy@640067937.ru>

X-Mailer: The Bat! (v3.99.3) Professional

Reply-To: <anonimniy@640067937.ru>

X-Priority: 3 (Normal)

MIME-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit
Message-Id: <20171124063443.7C9E316401D7@nepropadu.ru>

: 09:34, 24.11.2017

: 123123123
:
Testpretenz

IP : 46.4.69.199

Русские символы пропадают после того как срабатывает функция декодировки win1251 в utf-8

Функция:

если ВКкс<>Индекс тогда
//            ВК.ПолучитьЗаголовок(Индекс);
            ВК=Письма.Получить(Индекс);
//            ВК.ПолучитьТело(Индекс);
            если НРЕГ(сокрлп(ВК.Кодировка))<>"utf-8" тогда
            стр="";
            Для каждого ТекстПисьма из ВК.Тексты цикл
                Стр=Стр+" "+ТекстПисьма.Текст;
            КонецЦикла;
//                стр=ВК.Тело;
//
                Длина=СтрДлина(Стр);
//
            Для Н=1 По Длина Цикл
                    Знак=Сред(Стр,Н,1);
                    Код=КодСимвола(Знак,1);
                    Если Код<128 Тогда
                        Итог=Итог+Знак;
                    ИначеЕсли (Код>=128)И(Код<192) Тогда

                    Иначе
                        Н=Н+1;
                        Знак2=Сред(Стр,Н,1);
                        Код2=КодСимвола(Знак2,1);
                        Если Код=208 Тогда
                            Если Код2=129 Тогда
                                Итог=Итог+"Ё";
                            Иначе
                                Итог=Итог+Символ(КодСимвола("А",1)+Код2-144);
                            КонецЕсли;
                        ИначеЕсли Код=209 Тогда
                            Если Код2=145 Тогда
                                Итог=Итог+"ё";
                            Иначе
                                Итог=Итог+Символ(КодСимвола("р",1)+Код2-128);
                            КонецЕсли;
                        КонецЕсли;
                    КонецЕсли;
                КонецЦикла;
                ном=Найти(Итог,"This message was delivered by MDaemon - http");
                если Ном<>0 тогда
                    Итог=Лев(Итог,ном-1);
                конецесли;
                Итог=СокрЛП(Итог);
            иначе
                стр="";
                Для каждого ТекстПисьма из ВК.Тексты цикл
                    Стр=Стр+""+ТекстПисьма.Текст;
                КонецЦикла;
                Итог=СокрЛП(стр);
            конецесли;

Если функция не срабатывает вместо русских символов появляется Р через каждый символ, что явно указывает на win1251.