Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2153947
  • 博文数量: 227
  • 博客积分: 10521
  • 博客等级: 上将
  • 技术积分: 3452
  • 用 户 组: 普通用户
  • 注册时间: 2006-10-20 14:59
个人简介

低调做人,高调做事!

文章分类

全部博文(227)

文章存档

2013年(4)

2012年(8)

2011年(16)

2010年(24)

2009年(92)

2008年(83)

分类: LINUX

2008-10-10 15:46:32

1, 在不需要认证的smtp服务器上发送邮件

#!/usr/bin/perl -w
use Net::SMTP;

$smtp = Net::SMTP->new($mail_server);    #邮件服务器地址
$smtp->mail($send_user);                 #发件人
$smtp->to($recv_user);                   #收件人

$smtp->data();
$smtp->datasend("Subject: 测试主题\n");   #主题
$smtp->datasend("\n");
$smtp->datasend("A simple test message 测试中英文混合\n");    #消息内容
$smtp->dataend();

$smtp->quit;


2, 在需要认证的smtp服务器上发送邮件

#!/usr/bin/perl -w

use strict;
use Net::SMTP_auth;

my $mailhost = 'mail.abc.cn';
my $mailfrom = '120@abc.cn';
my @mailto = ('aaa@163.com',
              'bbb@163.com');

my $user = '120@abc.cn';
my $passwd = '123456';

my $subject = 'hello';

#my $text

my $f_list = '/home/sysadmin/scp.log';
open(FILE, $f_list) or die "Can not open list file\n";
undef $/;
my $text = ;


my $smtp = Net::SMTP_auth->new($mailhost, Timeout=>120, Debug => 1) or die "Error.\n";
$smtp->auth('LOGIN', $user, $passwd);

foreach my $mailto(@mailto) {
$smtp->mail($mailfrom);
$smtp->to($mailto);
$smtp->data();
$smtp->datasend("To: $mailto\n");
$smtp->datasend("From:$mailfrom\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$text\n\n");
$smtp->dataend();
}

$smtp->quit;
阅读(6977) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~