perl 发送邮件代码

#!/usr/bin/perl use strict; use warnings; use Net::SMTP; use MIME::Base64; use Encode; use MIME::Lite; my $from = '123@163.com'; #my ($to,$subject,$msg) = @ARGV; #lupengfei my ($to,$cc,$msg) = @ARGV; my @to = split /,/,$to; #lupengfei my @cc = split /,$cc; my $smtp = Net::SMTP->new('111.22.11.22',? ? ? ? ? ? ? ? ? ? ? ? ? Hello => 'snda.com',? ? ? ? ? ? ? ? ? ? ? ? ? Timeout => 30,? ? ? ? ? ? ? ? ? ? ? ? ? Debug => 0,? ? ? ? ? ? ? ? ? ? ? ? ?); $smtp->mail($from); $smtp->recipient(@to,{SkipBad => 1}); #lupengfei $smtp->recipient(@cc,{SkipBad => 1}); $subject = encode("gb2312",decode("utf8",decode_base64($subject))); $msg = encode("gb2312",decode_base64($msg))); my $html_msg = MIME::Lite->new ( ? ? ? ? ?From => $from,? ? ? ? ?To => $to,? ? ? ? ?#lupengfei ? ? ? ? ?cc => $cc,? ? ? ? ? ? ? ? ? ?Subject => $subject,? ? ? ? ?Type => 'text/html',? ? ? ? ?Data=> $msg ? ? ? ?) or die "Error creating inline email $!n"; $html_msg->attr('content-type.charset' => 'gb2312'); $smtp->data(); print $html_msg->as_string(); $smtp->datasend($html_msg->as_string()); $smtp->dataend(); $smtp->quit;