Как с сервера послать e-mail, прикрепив к нему файл message.htm

[Smirnoff]

Как с сервера послать e-mail, прикрепив к нему файл message.htm, который лежит на сервере. Чтобы письмо было в формате html

[NeoNox]

FAQ
perldoc Mime::Lite;

[Smirnoff]

to NeoNox  
а если я полный чайник? я не поняло....

[NeoNox]

Здесь, возможно, более понятно:
http://www.webscript.ru/stories/02/07/31/6750857

[Kwazar]

А не проше ли так:
open (F,"@page = ;
close (F);

open MAIL, \'|/usr/sbin/sendmail -t\';
print MAIL ("from: from\\@mail.ru\\n",
   "Reply-To: reply\\@mail.ru\\n",
   "to: to\\@ri,
   "subject: Тема письма
   "Content-Type: text/html; charset=\\"windows-1251\\" \\n Content-Transfer-Encoding: base64\\n\\n
@page
,
   "\\n\\n");
   close MAIL;

Отправится html письмо. И никаких модулей не нужно.
В этом подходе есть лишь одно но. Отправляется только html страница без вложенных картинок. Их можно вытягивать с сервера, как с обыкновенной страницы.

[NeoNox]

Kwazar ты вопрос читал? Вложение а не хтмл в теле письма.

[Kwazar]

NeoNox

Smirnoff:
Чтобы письмо было в формате html

Потому и написал.
Если я все же не правильно понял, тогда
#!/usr/bin/perl -w

#use MIME::Lite;
require "/pub/home/volgoart/cgi-bin/modules/lib/MIME/Lite.pm";

    ### Create a new multipart message:
    $msg = MIME::Lite->new(
                 From    =>\'price@volgoart.ru\',
                 To      =>\'skrebnev@volgoart.ru\',
                 Subject =>\'Price from volgoart.ru\',
                 Type    =>\'multipart/mixed\'
       );
   
    ### Add parts (each "attach" has same arguments as "new"):
    $msg->attach(Type     =>\'TEXT\',  
                 Data     =>"Here\'s price of our group!"
       );  
    $msg->attach(Type     =>\'application/x-zip-compressed\',
                 Path     =>\'\',
                 Filename =>\'1.zip\',
       Disposition => \'attachment\'
       );

    ### Format as a string:
    $str = $msg->as_string;
   
    ### Print to a filehandle (say, a "sendmail" stream):
    $msg->print(\\*SENDMAIL);

    ### Send in the "best" way (the default is to use "sendmail"):
    $msg->send;

[Smirnoff]

to Kwazar
не работает почему то твой первый вариант
посмотри, где ошибка?

#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
open (F,"../message.htm");
@page = ;
close (F);


open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "From: jokerj\\@mail.ru\\n";
print MAIL "To: 2smirnoff\\@mail.ru\\n";
print MAIL "Reply-To: jokerj\\@mail.ru\\n";
print MAIL "Subject: Тема\\n\\n";
print MAIL "
Content-Type: text/html; charset=\\"windows-1251\\" \\n
Content-Transfer-Encoding: base64\\n\\n
@page
\\n\\n";
close(MAIL);

[Kwazar]

А в логи не смотрел?
Исправь этот кусок:
print MAIL "Subject: Тема\\n\\n";
print MAIL "
Content-Type: text/html; charset=\\"windows-1251\\" \\n
Content-Transfer-Encoding: base64\\n\\n
@page
\\n\\n";
close(MAIL);

На
print MAIL "Subject: Тема\\n\\n";
print MAIL "
Content-Type: text/html; charset=\\"windows-1251\\" \\n
Content-Transfer-Encoding: base64\\n\\n
@page","\\n\\n";
close(MAIL);

[Smirnoff]

to Kwazar
все-равно не работает
ну и черт с ним...