Perl发邮件 Nnt::SMTP::SSL

最新推荐文章于 2021-06-07 12:31:31 发布

原创最新推荐文章于 2021-06-07 12:31:31 发布 · 1.5k 阅读

CC 4.0 BY-SA版权

本文提供了一个使用Perl语言编写的脚本示例，该脚本通过Net::SMTP::SSL模块实现从QQ邮箱自动发送带有特定主题和内容的电子邮件。代码详细展示了如何设置发件人、收件人以及登录凭据等必要参数。

#!/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");