Mail::Sender

1 发送附件

#!/usr/bin/perl 

use Mail::Sender; 

$sender = new Mail::Sender{ 
                     smtp => 'localhost', 
                     from => 'xxx@localhost' 
                     }; 
$sender->MailFile({ 
               to => 'xxx@xxx.com', 
               subject => 'hello', 
               file => 'Attach.txt' 
               }); 
$sender->Close(); 

print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;

2 发送html内容

#!/usr/bin/perl 

use Mail::Sender; 

open(IN, "< ./index.html") or die(""); 

$sender = new Mail::Sender{ 
                     smtp => 'localhost', 
                     from => 'xxx@localhost' 
                     }; 

$sender->Open({ 
               to => 'xxx@xxx.com', 
               subject => 'xxx', 
               msg => "hello!", 
               ctype => "text/html", 
               encoding => "7bit", 
               }); 

while(<IN>) 
{ 
   $sender->SendEx($_); 
} 
close IN; 
$sender->Close(); 

print $Mail::Sender::Error eq "" ? "send ok!\n" : $Mail::Sender::Error;