#################################################################
Come inviare e-Mail
Potete trovare una puona documentazione sul modulo su cpan o su ActivePerl
use Net::SMTP;
$smtp=Net::SMTP->new("mail.tin.it") or die($!);
$smtp->mail($ENV{USER});
$smtp->to("destinatario@host.tld");
$smtp->data();
$smtp->datasend("content-type: text/html; charser="iso-8859-15"\n\n");
$smtp->datasend("<html>");
$smtp->datasend("<head><title>Pagina HTML</title></head><body><font color="red" face="arial" size="+2">Testo</font></body></html>");
$smtp->dataend();
$smtp->quit();
Aggiungi un commento