01.10.2001, 20:04
|
|
Регистрация: Aug 2001
Адрес: Москва
Сообщений: 275
|
Как сказать SendMail ' у чтобы посылал HTML ?
Как сказать SendMail ' у чтобы посылал HTML ?
#!/usr/local/bin/perl
$adressto='adsdd';
$adressfrom='dsdsd';
print "Content-type: text/html\n\n";
$| = 1;
print "Content-type: text/html\n\n";
print "<html><body>\n";
print "Sending message<br>\n";
print "</body></html>\n";
$mailprog = 'sendmail.exe';
open (MAIL, "|$mailprog -t");
print MAIL "To: <$adressto>\n";
print MAIL "From: Web Site <$adressfrom>\n";
print MAIL "Subject: This is the subject\n\n";
print MAIL "This is the body of the message\n";
print MAIL "This is line 2\n";
close (MAIL);
|