Forum Webscript.Ru

Программирование => Perl => Тема начата: Xander от 14 Июля 2003, 21:09:51

Название: HTML с картинками аттачем
Отправлено: Xander от 14 Июля 2003, 21:09:51

Подскажите пожалуйста, как модифицировать следующий кусок кода, чтобы картинки показывались в приаттаченном HTML. На данный момент все аттачится, и  приходит, но картинки не показываются. Я догадываюсь, что надо немного поменять Type, но читать несколько RFC сил уже нету.

Код: [Выделить]


$msg = new MIME::Lite
From     =>\'my@email.ru\',
To       =>\'my@email.ru\'\',
Subject  =>\'Статистика за месяц\',
Type     =>\'multipart/related\',
Data     =>$rep;
attach $msg
Type     =>\'text/html\',
Data     =>$cont,
Filename =>\'stats.html\';
@pngs=(\'awstats_logo1.png\',\'barrehe.png\',\'barrehh.png\',\'barrehk.png\',\'barrehp.png\',\'barrevh.png\',\'barrevk.png\',\'barrevp.png\',\'barrevu.png\',\'barrevv.png\');
foreach(@pngs) {
attach $msg
Type     =>\'image/png\',
Path     =>$_,
Filename =>$_;
};


Название: HTML с картинками аттачем
Отправлено: Xander от 14 Июля 2003, 23:05:01

уф, я его победил.
надо было вот так:

Код: [Выделить]


$msg = new MIME::Lite
From     =>\'my@email.ru\',
To       =>\'my@email.ru\'\',
Subject  =>\'Статистика за месяц\',
Type     =>\'multipart/related\',
Data     =>$rep;
attach $msg
Type     =>\'text/html\',
Data     =>$cont,
Filename =>\'stats.html\';
@pngs=(\'awstats_logo1.png\',\'barrehe.png\',\'barrehh.png\',\'barrehk.png\',\'barrehp.png\',\'barrevh.png\',\'barrevk.png\',\'barrevp.png\',\'barrevu.png\',\'barrevv.png\');
foreach(@pngs) {
attach $msg
Type     =>\'image/png\',
Path     =>$_,
[b] [u]Id =>"<$_>";[/u][/b]
};


+все ссылки должны выглядеть как

Название: HTML с картинками аттачем
Отправлено: Xander от 14 Июля 2003, 23:24:16

P.S. я не тормоз, просто у меня дистрибутив старый. В доках к свежему MIME::Lite этот пример есть.