Forum Webscript.Ru

Программирование => Perl => Тема начата: restart2003 от 15 Декабря 2003, 04:16:54

Название: Sendmail
Отправлено: restart2003 от 15 Декабря 2003, 04:16:54

Скажите пожалуйста, я отправляю почту стандартным способом:
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?

Название: Sendmail
Отправлено: restart2003 от 15 Декабря 2003, 05:04:16

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

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

Название: Sendmail
Отправлено: NeoNox от 15 Декабря 2003, 11:02:14

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);

Название: Sendmail
Отправлено: restart2003 от 15 Декабря 2003, 13:48:40

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

Название: Sendmail
Отправлено: Chs от 15 Декабря 2003, 22:30:07

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

Название: Sendmail
Отправлено: restart2003 от 17 Декабря 2003, 01:01:29

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