| |
send HTML format mail with Sendmail
perl
send HTML format mail with Sendmail
#!/usr/bin/perl
###############################################
###
### (c) 2011, John Jan Popovic, All Rights Reserved http://1stmuse.com
###
###
### This script may be used and modified freely
### as long as this message remains intact.
# Author John J. Popovic
# v3.0 Aug 9, 2003
# v4.0 Feb 13, 2011
###############################################
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
# sendmail setup
$SENDMAIL = "/usr/sbin/sendmail -t";
$FROM = "XXXNews <info\@xxx.com>";
$TO = "XXXNews <info\@xxx.com>";
open(MAIL, "|$SENDMAIL");
print MAIL <<EOM;
From: $FROM
To: $TO
Subject: $subject
Content-type: text/html; charset="iso-8859-1"
<html>
<body>
$body
Per cancellarsi dalla Newsletter basta cliccare qui:\n
Non voglio ricevere più la XXX Newsletter
</body>
</html>
EOM
close MAIL;
|
|
)
)
)
)
)
)
