Как отправить письмо в формате HTML через
перл скрипт? Вот скрипт:open MESSAGA, "$ARGV[0]" or die "Can't open $ARGV[0]\n";
@messaga = <MESSAGA>;
open MAIL, "| /usr/sbin/sendmail -n -t -oi" or die "Can't run sendmail\n";
print MAIL "From: email\@local\n";
print MAIL "To: email0\@local\n";
print MAIL "Subject:\n\n";
print MAIL "@messaga\n";
close MAIL;
тоесть как должен выглядить файл $ARGV[0]?Если не трудно покажите плз пример. Например нужно послать строку "string" 16 шрифтом, красный цвет
>Как отправить письмо в формате HTML
>через
>перл скрипт? Вот скрипт:
>
>open MESSAGA, "$ARGV[0]" or die
>"Can't open $ARGV[0]\n";
>
>@messaga = <MESSAGA>;
>
>open MAIL, "| /usr/sbin/sendmail -n
>-t -oi" or die "Can't
>run sendmail\n";
>print MAIL "From: email\@local\n";
>print MAIL "To: email0\@local\n";
>print MAIL "Subject:\n\n";
>print MAIL "@messaga\n";
>close MAIL;
>
>
>тоесть как должен выглядить файл $ARGV[0]?
>
>
>Если не трудно покажите плз пример.
>Например нужно послать строку "string"
>16 шрифтом, красный цветДелается через multipart-document:
Сначала нужно добавить заголовок
print MAIL "Content-Type: multipart/alternative;
boundary=\"------------3595723CAE91187A135D92DD\"
";
Содержимое "boundary" может быть произвольным, но он не должно потом появляться в самом тексте.А после составляется примерно такой документ:
$mail_body="--------------3595723CAE91187A135D92DD
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bitсодержимое в чистом ASCII
--------------3595723CAE91187A135D92DD
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bitСодержимое в HTML
--------------3595723CAE91187A135D92DD--
";
Само собой, "boundary" должен быть тем-же что и в заголовке. Кроме того, к последнему нужно добавить два штриха.По подобной схеме можно помимо самого HTML и файлы-довески прицеплять, картинки к примеру... Только Content-Type не забывать привильный указывать.