用Perl实现邮件发送

今天用Perl实现了发送邮件，需要用Perl Package Manager下载了Net-SMTP_auth模块

use Net::SMTP_auth;

$smtp = Net::SMTP_auth->new('mail.freelynet.com',
Hello => 'freelynet.com',
Debug => 1);

$smtp->auth('LOGIN', 'name', 'passwd');

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

$smtp->data();
$smtp->datasend("From: [email protected] n");
$smtp->datasend("To: [email protected] n");
$smtp->datasend("Subject: perl mailn");
$smtp->datasend("n");
$smtp->datasend("mail by perl n");
$smtp->dataend();

$smtp->quit;

 

转载于:https://blog.51cto.com/tkchw2/460208