v7: Простое кодирование и декодирование base64

Функция Кодировать(Стр, Кодировка)
ЦДО=СоздатьОбъект("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";
Стр=Кодировать("Вася Пупкин",Кодировка);
Сообщить(Стр);
Сообщить(Декодировать(Стр,Кодировка));
КонецПроцедуры