使用Net::SMTP::TLS待賬号認證發郵件

使用Net::SMTP::TLS待賬号認證發郵件：

# cpan Net::SMTP::TLS

# vi mail.pl

#!/usr/bin/perl -w  

use Net::SMTP::TLS; 

my $subject = 'Test mail';

my $header = << "MAILHEADER";

Content-Type:text/plain;charset="UTF-8"

MAILHEADER

my $body = << "EOF";

Hi Zhi

hello

EOF

my $mailer = new Net::SMTP::TLS(  

       'smtp.ming.com',  

       Hello   =>      'ming.com',  

       Port    =>      587, #redundant  

       User    =>      'zhi.yang',  

       Password=>      'xxxxx');  

$mailer->mail('[email protected]');  

$mailer->to('[email protected]');  

$mailer->data();  

$mailer->datasend("Subject:" . $subject . "\n"); 

$mailer->dataend("$header\n\n"); 

$mailer->dataend("$body\n\n"); 

$mailer->dataend();  

$mailer->quit;  

:wq

# perl mail.pl

本文轉自linux部落格51CTO部落格，原文連結http://blog.51cto.com/yangzhiming/1935112如需轉載請自行聯系原作者

yangzhimingg