Mail::Sender

来源：互联网发布：淘宝培训有用吗编辑：程序博客网时间：2024/05/22 13:56

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;

0 0