本文主要是介绍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;
这篇关于Mail::Sender的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!