perl 邮件发送示例详解

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

#!/usr/bin/perl
use warnings;
use strict;
use Mail::Sender;
​
my $sender = new Mail::Sender
{
  smtp    => 'smtp.163.com',
  from    => '[e-mail]",helvetica; line-height:18px">  auth    => "LOGIN",helvetica; line-height:18px">  authid  => "yourmail",helvetica; line-height:18px">  authpwd => "your_mail_password"
} or die "error";
my $message = "hello,give you some message";
if($sender-> MailMsg ({
             to      => '[e-mail]',helvetica; line-height:18px">             subject => "test",helvetica; line-height:18px">             msg     =>  $message,})<0)
  die "$Mail::Sender::Error/n";
}
$sender->Close();
二、使用Net::SMTP_auth
use strict; use Net::SMTP_auth;
​
&send_mail();
print "send mail over\n";
# mail_user should be [e-mail]
sub send_mail{
  my $to_address  = '[e-mail]';
  my $mail_user   = '[e-mail]';
  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 = <<CONTENT; 
  **********************
    here comes the content
    **********************
CONTENT
  my $smtp = Net::SMTP->new($mail_server,helvetica; line-height:18px">                            Timeout =>120,helvetica; line-height:18px">                            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();
}