Проблема в следующем: пишу выгрузку из ТиС в ТиС справочники и документы выгружаются в текстовые сообщения и отправляю по почте через CDO , получаю почту через ROM-Mail. Приходит кракозябра. Почта на mail.ru, причем на самой почте отображается все нормально. ОС Windows 7 64bit. Может кто сталкивался, помогите. Заранее благодарен.

Документация:

Кодировка
Charset
Синтаксис:
Кодировка
Назначение:
Кодировка сообщения при отправке/получении. По умолчанию "windows-1251"
Замечание:
Атрибут может принимать любое значение, однако автоматическое кодирование/декодирование средствами внешней компоненты доступно только для следующих кодировок: "windows-1251", "koi8-r", "koi8-u", "ibm866", "x-mac-cyrillic", "iso-8859-1"..."iso-8859-9".
Пример:
Почта.Кодировка="windows-1251"

Не пашет
Процедура глПолучитьПочту(Логин,Пароль)  Экспорт                                  

   Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
       Предупреждение("ROM-Mail.dll не загружена!");
         Возврат;
     КонецЕсли;    
   Попытка    
       Почта = СоздатьОбъект("AddIn.AddInMail");
   Исключение        
       Сообщить("Ошибка инициализации E-Mail");
         Возврат;
   КонецПопытки;
   Почта.СерверПриема = "pop.mail.ru";                                              
   Почта.ПортПриема = "110";
   Почта.Логин = Логин;
   Почта.Пароль = Пароль;
   Почта.ОставлятьНаСервере = 1;
   Почта.ПоказыватьПредупреждения = 0;
   Почта.Кодировка="windows-1251";    ///////// Не пашет

   
   Если Почта.Подключиться("Прием") = 0 Тогда
//        Сообщить("Не удалось подключиться к серверу!");
         Возврат;
   КонецЕсли;    
     
   Для Индекс=1 По Почта.КоличествоСообщений() Цикл
       Почта.ПолучитьСообщение(индекс);
       Адрес = Почта.АдресОтправителя;
       Тема = СокрЛП(Почта.Тема);
       Тело = СокрЛП(Почта.Тело);
       ДатаП = Почта.ДатаОтправки;
       Инд = Прав(Тема,2);
       Если Найти(Тема,"~~~OBMEN___DANNAMI~~~") > 0 Тогда
           Если Найти(Константа.ПрефиксИБ,"Ц") = 0 Тогда
               Если Найти(Тема,Константа.ПрефиксИБ) = 0 Тогда
                   Продолжить;
               КонецЕсли;    
           КонецЕсли;    
           ТекстТ = СоздатьОбъект("Текст");
           ТекстТ.ДобавитьСтроку(Тело);
           Если глСоздатьДок(ТекстТ) = 1 Тогда
               Почта.ОставлятьНаСервере = 0;                    
           КонецЕсли;
       Иначе
           Почта.ОставлятьНаСервере = 0;
       КонецЕсли;        
   КонецЦикла;            
   Почта.Отключиться();            
   
КонецПроцедуры
Не пашет

Может при отправке надо? Но как поменять кодировку через CDO?

Может, поиграться с объектом Текст, задав явно кодировку?
ТекстТ.КодоваяСтраница(<Режим>);

(0) В ОС поставь правильную кодировку.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage. Исправить кодировки с 1250 по 1255 на 1251.

objEmail = Createobject("CDO.Message");
objEmail.BodyPart.CharSet = "windows-1251";

(3) Думается, мысли у тебя верная :)