Sendmail

[restart2003]

Скажите пожалуйста, я отправляю почту стандартным способом:
open(SENDMAIL, "|$mailprog $mailto");
print SENDMAIL "From: $autor\\n";
print SENDMAIL "To: $mailto\\n";
print SENDMAIL "Subject: $subj\\n";
print SENDMAIL "$comments \\n";
close(SENDMAIL);

Но при отправке HTML-кода в почтовом клиенте отображается сам код, а не страница. Как указать почтовому клиенту, что это HTML-пага, а не plain text?

[restart2003]

print MAIL "
Content-Type: text/html; charset=\\"koi8-r\\" \\n
Content-Transfer-Encoding: base64\\n\\n
@message";

Даёт тот же эффект.

[NeoNox]

open (MAIL, "|$mail_prog -t");
print MAIL "To: $to <$to>\\n";
print MAIL "Reply-to: $reply_to <$reply_to>\\n";
print MAIL "From: $from <$from>\\n";
print MAIL "Subject: $subject\\n";

print MAIL "Content-type: text/html\\n\\n";

print MAIL "\\n\\n";
print MAIL " Hello,
\\n ";
print MAIL " This is a very cool rich text e-mail.
 \\n";
print MAIL " All the best,
 Andrew \\n";
print MAIL "\\n\\n" ;
close(MAIL);

[restart2003]

NeoNox
Спасибо огромное, всё работает!

[Chs]

Ну а потом надо будет пару картиночек вставить для большей кульности письма....и в base64 все таки сделать - а то части клиентов битое приходить будет....ну и еще что-нибудь до кучи.
Так к чему я это? А, вспомнил, - это я все про модули, про модули.)

[restart2003]

Ну пока мне это не надо... Но потом попробую