Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7893702
  • 博文数量: 701
  • 博客积分: 2150
  • 博客等级: 上尉
  • 技术积分: 13233
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-29 16:28
个人简介

天行健,君子以自强不息!

文章分类

全部博文(701)

文章存档

2019年(2)

2018年(12)

2017年(76)

2016年(120)

2015年(178)

2014年(129)

2013年(123)

2012年(61)

分类: PERL

2013-09-25 17:52:54

一、使用 Mail::Sender模块
先申请一个163的邮箱;

#!/usr/bin/perl

use warnings;
use strict;
use Mail::Sender;

my $sender = new Mail::Sender
{
  smtp    => 'smtp.163.com',
  from    => 'your_mail@163.com",
  auth    => "LOGIN",
  authid  => "yourmail",
  authpwd => "your_mail_password"
} or die "error";


my $message = "hello , give you some message";


if($sender-> MailMsg ({
             to      => 'want_to@gmail.com',
             subject => "test" ,
             msg     =>  $message, })<0)
{
  die "$Mail::Sender::Error/n";
}
$sender->Close();


二、使用Net::SMTP_auth

#!/usr/bin/perl

use warnings;
use strict;
use Net::SMTP_auth;

&send_mail();
print "send mail over\n";


# mail_user should be your_mail@163.com
sub send_mail{
  my $to_address  = 'want_to@gmail.com';
  my $mail_user   = 'your_mail@163.com';
  my $mail_pwd    = 'your_mail_password';
  my $mail_server = 'smtp.163.com';


  my $from    = "From: $mail_user\n";
  my $subject = "Subject: here comes the subject\n";


  my $message = <
  **********************
    here comes the content
    **********************
CONTENT


  my $smtp = Net::SMTP->new($mail_server,
                            Timeout =>120,
                            Debug   =>1) or die "ERROR! $!";
  $smtp->auth('LOGIN', $mail_user, $mail_pwd) || die "Auth Error! $!";
  $smtp->mail($mail_user);
  $smtp->to($to_address);


  $smtp->data();             # begin the data
  $smtp->datasend($from);    # set user
  $smtp->datasend($subject); # set subject
  $smtp->datasend($message); # set content
  $smtp->dataend();


  $smtp->quit();

阅读(7990) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~