#!/usr/bin/perl
## Copyright (c) 2012 by novice(http://www.hailongchang.org)
use Net::SMTP::SSL;
my $mail_from = '2245190000@qq.com';
my $mail_to = '1823660000@qq.com';
#my $mail_cc = "123456789\@qq.com";
#my $mail_bcc = "123456789\@qq.com";
my $google_username = "2245190000";
my $google_password = "10000000009";
my $mail_subject = "Perl自动发送邮件\n";
sub SendMail
{
my $mail_content = shift;
my $smtp = Net::SMTP::SSL->new(
'smtp.qq.com',
Hello=>'novice.org',
Port=>465,
LocalPort=>0,
Debug=>1);
die("smtp undefined: $@") if !defined $smtp;
my $auth_return = $smtp->auth($google_username,$google_password);
die("auth error: $@") if !defined $auth_return;
$smtp->mail($mail_from);
$smtp->to($mail_to);
#$smtp->cc($mail_cc);
#$smtp->bcc($mail_bcc);
$smtp->data();
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("Subject: $mail_subject\n");
$smtp->datasend("\n");
$smtp->datasend("$mail_content");
$smtp->dataend();
$smtp->quit;
}
SendMail("这是由程序自动发出的E-mail\n");
Perl发邮件 Nnt::SMTP::SSL
最新推荐文章于 2021-06-07 12:31:31 发布