PERL Net::SMTP

最新推荐文章于 2024-07-27 12:20:46 发布

weixin_33851429

最新推荐文章于 2024-07-27 12:20:46 发布

阅读量652

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/347414/blog/301445

版权

2019独角兽企业重金招聘Python工程师标准>>>

#！/usr/bin/perl -w


use strict;
use Net::SMTP;

my $to = 'toMail';
my $from = 'fromMail';
my $site = 'mail.126.com';
my $smtp_host = 'smtp.126.com';
my $pop_host = 'pop3.126.com';
my $username = "userName";
my $password = "password";
    &writeAMesg;
sub writeAMesg{
    my $smtp = Net::SMTP->new( $smtp_host, Timeout=>60, Debug=>1 );
    $smtp->auth($username, $password);
    $smtp->mail( $from );
    $smtp->to( $to );
    $smtp->data();

    $smtp->datasend("To: $to\n");
    $smtp->datasend("Subject: A message from server\n");
    $smtp->datasend("\n");
    $smtp->datasend("This is just to let you know\n");
    $smtp->datasend("The flight is coming, Please check it out on time.\n");
    $smtp->datasend("\n");

    $smtp->dataend();
    $smtp->quit;
}

转载于:https://my.oschina.net/u/347414/blog/301445