Исходное сообщение
"Net::SMTP кодировка" Отправлено anonim, 02-Июн-11 12:10
Здравствуйте, господа ! #!/usr/local/bin/perl -w use Net::SMTP;     $smtp = Net::SMTP->new('XXXX:25'); $smtp->mail('XXXX@XXXX'); $smtp->to('XXXX@XXXX'); $smtp->data(); $smtp->datasend('To:XXXX@XXXX'); $smtp->datasend("\n"); $smtp->datasend("Content-Type: text/plain; charset=\"windows-1251\"\n\n"); $smtp->datasend("ПРИВЕТ"); $smtp->dataend(); $smtp->quit; Microsoft ESMTP MAIL Service, Version: 6.0.3790.4675 Используется Exchange2003, Письмо приходит, но с Русскими буквами проблема? Заранее благодарен.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Здравствуйте, господа ! > #!/usr/local/bin/perl -w > use Net::SMTP; > $smtp = Net::SMTP->new('XXXX:25'); > $smtp->mail('XXXX@XXXX'); > $smtp->to('XXXX@XXXX'); > $smtp->data(); > $smtp->datasend('To:XXXX@XXXX'); > $smtp->datasend("\n"); > $smtp->datasend("Content-Type: text/plain; charset=\"windows-1251\"\n\n"); > $smtp->datasend("ПРИВЕТ"); > $smtp->dataend(); > $smtp->quit; > Microsoft ESMTP MAIL Service, Version: 6.0.3790.4675 > Используется Exchange2003, Письмо приходит, но с Русскими буквами проблема? > Заранее благодарен.
	Введите код, изображенный на картинке: