Net::SMTP

MIME::Lite

Mime::Entity

В Google зобанили?

Поиск по "perl mime send email" дает хренову кучу ссылок с примерами
типа http://www.akadia.com/services/email_attachments_using_perl.html

Весьма популярен (как уже сказали) MIME::Lite, perldoc которого
содержит подробные примеры:
http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm

HTH

Всем спасибо, НО
Похоже все забыли прочитать тему с вопросом....
Я спрашиваю про модуль Net::SMTP
Возможно ли такое и как если возможно?

Всё же гугл: http://episteme.arstechnica.com/eve/forums/a/tpc/f/6330927813/m/914007289731

Возможно, но себе дороже

Эту ссылку я нашел, но так не работает....

> Всем спасибо, НО
> Похоже все забыли прочитать тему с вопросом....
> Я спрашиваю про модуль Net::SMTP

Почему забыли? Просто думали, что ты способен к самостоятельному
мышлению.

1. Компонуешь message при помощи MIME::Lite
2. Выводишь его в строку, то есть получаешь готовый,
MIME-закодированный текст.
3. Отправляешь его по Net::SMTP

(хотя почему ты не хочешь посылать сразу через MIME::Lite - непонятно)

HTH

P.S. Смотри EXAMPLES на http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm

сорри, но кроме стандартных модулей, нет возможности использовать другие....

Mime::Lite хороший модуль, но его нет и не будет на той системе....

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");

$smtp->datasend("------=_Part_1\n");
$smtp->datasend("Content-Type: application/octet-stream\n");
$smtp->datasend("Content-Disposition: attachment; filename=\"Archive.zip\"\n");
$smtp->datasend("Content-Transfer-Encoding: base64\n");
$smtp->datasend("\n");
$smtp->datasend(...данные закодированные в base64...);
$smtp->datasend("------=_Part_1--\n");

$smtp->dataend();

.. Что-то в этом духе. Открой KMail, посмотри как он структуру сообщения сохраняет, или почитай RFC-822, там написано как кодировать сообщения + используй MIME::Base64 для кодирования двоичных данных

anterior
СПАСИБО, ТАК И СДЕЛАЛ... но только через sendmail