Кто поможет в реализации варианта с sendmail, как отправить на почтовый ящик сообщение в формате html с картинкой, на mail.ru приходит все как и положено, а на rambler.ru без картинки?

код скрипта
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$mailprog = "/usr/sbin/sendmail";

$demail ="адрес получателя\@rambler.ru";
$dnick="имя получателя";
$nick="имя отправителя";
$email="адрес отправителя@rambler.ru";

$mesage="Content-Type: text/html; charset=win-1251\nFrom: $nick <$email>\nTo: $demail\nSubject: тема ссылки\n\n".
"<body>\n<h1>Заголовок</h1>\n<br /><br />\n".
"<table><tr><td>сообщение</td></tr></table>\n".
"Наша картинка:<br /><img src=\"http://www.xxx.xxx.ru/GRAPHIC/10year.jpg\"/>\n</body>\n";

open (MAIL, "|$mailprog -t") || die "Content-Type: text/html\n\n Ошибка при попытке отправки почты $!";
print MAIL "$mesage\n";
close (MAIL);

print qq(
Письмо отправлено
);

Это сообщение отредактировал(а) glusan - 13.11.2009, 12:24

Поля должны разделяться "\r\n", а не одним "\n"

дело в том, что на mail.ru все приходит должным образом

perldoc MIME::Lite::HTML

вашу картинку блокируют как внешний источник.

увы, на установку Perl модулей, провайдер непробиваемый

Добавлено через 3 минуты и 59 секунд
может есть какой выход с использованием sendmail?

А может в этом дело (собака не заэкранированная и письмо режется по подозрительному полю From:):
$email="адрес отправителя@rambler.ru";

и почему бы не оформить, чтобы понятно было:

ИМХО, курить man sendmail.. Ничего явного я там не нашел.. Может не заметил.. 

уважаемый amg, использовал Ваши рекомендации, все осталось без изменений, на rambler.ru пришло с картинкой, а mail.ru  срезал картинку, оставил лишь текст

Добавлено через 3 минуты и 2 секунды
кстати, адрес отправителя реальный

А если убрать из тела письма все теги, или оформить http://... не как ссылку, а как просто текст. Тоже срежет?

формируйте тело письма вручную.

убрал теги, результат тот же

Добавлено через 1 минуту и 39 секунд
и что значит формировать тело письма вручную, я не совсем понял?

посмотрите, что делает MIME::Lite::HTML, и сделайте так же.

спасибо, попытаюсь использовать Ваш совет

живого и рабочего примера нет? - жаль

perldoc MIME::Lite::HTML -- живой и рабочий пример.