Функция Кодировать(Стр, Кодировка)
   ЦДО=СоздатьОбъект("CDO.Message");
   БодиПарт=ЦДО.BodyPart;
   Поля=БодиПарт.Fields;
   Поле=Поля.Item("urn:schemas:mailheader:content-type");
   Поле.Value="text/plain; charset=""windows-1251""";
   Поля.Update();
   Стрим = БодиПарт.GetDecodedContentStream();
   Стрим.charset = "windows-1251";
   Стрим.WriteText(Стр);
   Стрим.Flush();
   БодиПарт.ContentTransferEncoding = Кодировка;
   Стрим=БодиПарт.GetEncodedContentStream();
   Возврат Стрим.ReadText();
КонецФункции    // Кодировать64(Стр)

Функция Декодировать(Стр, Кодировка)
   ЦДО=СоздатьОбъект("CDO.Message");
   БодиПарт=ЦДО.BodyPart;
   БодиПарт.ContentTransferEncoding = Кодировка;
   Стрим=БодиПарт.GetEncodedContentStream();
   Поля=БодиПарт.Fields;
   Поле=Поля.Item("urn:schemas:mailheader:content-type");
   Поле.Value="text/plain; charset=""windows-1251""";
   Поля.Update();
   Стрим.WriteText(Стр);
   Стрим.Flush();
   Стрим = БодиПарт.GetDecodedContentStream();
   Стрим.charset = "windows-1251";
   Возврат Стрим.ReadText();
КонецФункции    // Декодировать64(Стр)
//*******************************************
Процедура Сформировать()
   Кодировка = "base64";
   Стр=Кодировать("Вася Пупкин",Кодировка);
   Сообщить(Стр);
   Сообщить(Декодировать(Стр,Кодировка));

   Кодировка = "quoted-printable";
   Стр=Кодировать("Вася Пупкин",Кодировка);
   Сообщить(Стр);
   Сообщить(Декодировать(Стр,Кодировка));
КонецПроцедуры

А как файлик закодировать?

атачнуть

Это как?

(3) приаттачить вложение к письму

(4)а где здесь письмо?

цдо поддерживает вложения, вложить в бодипарт а после прочитать, счас лениво, там не сложно будет

цдо - это вообще что?

(5) вот здесь: ЦДО

(7) ЦДО=СоздатьОбъект("CDO.Message");

(9)а где описания этого объекта смотреть?

вот нашел
.AddAttachment "C:\1.txt"

(0) и что теперь с этим делать?

Можно еще с помощью объекта "MSXML.DOMDocument"

+(13) http://infostart.ru/public/77530/ вот здесь применяется

зачет