Perl发送邮件模块比较

 Perl发送邮件模块比较

1.Mail::Sendmail,用这个模块发邮件很简单,但是貌似也只能处理简单的邮件... use Mail::Sendmail; %mail = ( To => 'you@there.com', From => 'me@here.com', Message => "This is a very short message" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log; 2.Mail::Sender 这家伙能发送带附件的,不过得经过SMTP服务器,我测试了一下失败... 找到一个例子是用网易的,不过我测试一下Login not accepted...好吧 use Mail::Sender; $sender = new Mail::Sender {smtp => 'mail.yourdomain.com', from => 'your@address.com'}; $sender->MailFile({to => 'some@address.com', subject => 'Here is the file', msg => "I'm sending you the list you wanted.", 3 file => 'filename.txt'}); 3.找到MIME::Lite. 初看一眼,丫看名字跟邮件好像关系不大.可是仔细一看丫貌似什么功能都有 Create a simple message containing just text Create a simple message containing just an p_w_picpath Create a multipart message Attach a GIF to a text message Attach a pre-prepared part to a message Print a message to a filehandle Print a message into a string Send a message Send an HTML document... with p_w_picpaths included! Change how messages are sent 靠..藏得太深了.我好不容易找到.这家伙好用极了! use MIME::Lite; $msg = MIME::Lite->new( From    => 'me@myhost.com', To       => 'me@ahaha.com', #Cc      => 'some@other.com, some@more.com', Subject => 'you have got a message', Type    => 'multipart/mixed' ); ### Add parts (each "attach" has same arguments as "new"): $msg->attach( Type     => 'TEXT', Data     => "Here's the GIF file you wanted" ); $msg->attach( Type     => 'AUTO', Path     => '111.txt', Disposition => 'p_w_upload' ); ### use Net:SMTP to do the sending $msg->send();