利用Net::smtp发送邮件

 利用Net::smtp发送邮件
1Tk KQ6u_ Jp0需要: Net::SMTP Net::SMTP_auth51Testing软件测试网Kcj oPI/Z f

#!/usr/bin/perl
s/|g
O T^0use strict;
mM6Vx%i7Yt|0use warnings;51Testing软件测试网-|o7qplHCu
use Net::SMTP;
B_WU2~0Ysb0
4C'j*a9`x2NY0my $mailhost='smtp.163.com'; #Server .51Testing软件测试网 @6Q;[.\u(Y&Ri
my $mailfrom='my_mail@163.com'; #地址
6{]Ai
l;t S0PB:m0my @mailto=('post_a@163.com','post_b@163.com'); #发送的地址列表51Testing软件测试网W` P*r*~ZN2DsJ$N
my $subject='这个是主题';51Testing软件测试网,S-e{ uOc/r#ZX
my $text='这个是内容的';
TM-A-G
byo051Testing软件测试网k;C+cL:R%]
my $smtp=Net::SMTP->new($mailhost,Timeout=>120,Debug=>1) or die "Error.\n";
e+xVn:i!bH0$smtp->auth('user','passwd'); #验证,需要用户和密码
4uE{]c"W051Testing软件测试网MT!B.@7]0^
foreach my $mailto(@mailto) {
2v[f aGBo w0$smtp->mail($mailfrom);
TmqNi0$smtp->to($mailto);51Testing软件测试网n Dp'ax
51Testing软件测试网;g!u!Y0CB"{?-H#^C
$smtp->data();51Testing软件测试网!H*p!vGz5r
@Mr I
51Testing软件测试网kGT!U,l+k^u/{"E
$smtp->datasend("To: $mailto\n");
5Q4M(ikX"p0$smtp->datasend("From:$mailfrom\n");51Testing软件测试网F,?Lrp??#Ol#ruT
$smtp->datasend("Subject: $subject\n");51Testing软件测试网d:d V,K pNI9f{;w
$smtp->datasend("\n");51Testing软件测试网!xxNG_#v3UA
o
51Testing软件测试网c@#W F.I
#Message
DV,~!Cs&Z-C0$smtp->datasend("$text\n\n");51Testing软件测试网U%h_|s1H@h

ijr6q,OD3f,p0$smtp->dataend();

x(O.W]4{ k8n0}51Testing软件测试网9a7fSa#e5|-Ln
$smtp->quit;51Testing软件测试网n!?1FozsS*cZM)X
51Testing软件测试网F.A:b1m%^4`+A~-p