- 論壇徽章:
- 0
|
之前一直在別人搭好的機(jī)器上直接用Mail::Sender，可以正常收發(fā)郵件。
換公司后自己在公司搭了個(gè)linux環(huán)境，安裝Mail::Sender后一直收不到郵件，代碼和日志如下，看日志個(gè)人感覺應(yīng)該是發(fā)送到了郵件服務(wù)器。
哪位大神幫忙看看？
是否需要系統(tǒng)級(jí)的相關(guān)設(shè)置或者郵件服務(wù)器的設(shè)置？不甚感激！
#!/usr/bin/perl
use Mail::Sender;
my($smtp,$from,$to,$cc,$subject,@body);
$smtp = 'xxx.xxx.xxx';
$from = 'xxx@xxx';
$to = 'xxx@xxx';
$subject = "test";
&send_mail($smtp,$from,$to,$cc,$subject,@body);
sub send_mail {
my($smtp,$from,$to,$cc,$subject,@body)=@_;
my $sender = new Mail::Sender {
smtp => $smtp,
from => $from,
to => $to,
cc => $cc,
debug => "/tmp/perl_mail.log",
debug_level => '4',
on_errors => 'code',
};
$sender->Open({
subject => $subject,
#ctype => "text/html",
ctype => "text/html",
encoding => "GB2312"
}) or die $Mail::Sender::Error,"\n";
for (@body) { $sender->SendEnc($_) };
print "Send OK!\n";
$sender->Close();
}
>> 220 xxxxxxx Microsoft ESMTP MAIL Service, Version: 6.0.3790.4675 ready at Fri, 13 Jun 2014 09:57:28 +0800
<< EHLO xxxxxx
>> 250-xxxxxx Hello [xxxxxxx]
>> 250-TURN
>> 250-SIZE 20971520
>> 250-ETRN
>> 250-PIPELINING
>> 250-DSN
>> 250-ENHANCEDSTATUSCODES
>> 250-8bitmime
>> 250-BINARYMIME
>> 250-CHUNKING
>> 250-VRFY
>> 250-X-EXPS GSSAPI NTLM LOGIN
>> 250-X-EXPS=LOGIN
>> 250-AUTH GSSAPI NTLM LOGIN
>> 250-AUTH=LOGIN
>> 250-X-LINK2STATE
>> 250-XEXCH50
>> 250 OK
<< MAIL FROM:<xxx@xxx.cn>
>> 250 2.1.0 xxx@xxx.cn....Sender OK
<< RCPT TO:<xxx@xxx.cn>
>> 250 2.1.5 xxx@xxx.cn
<< DATA
>> 354 Start mail input; end with <CRLF>.<CRLF>
<< quit |
|
免費(fèi)注冊(cè)
發(fā)表于 2014-06-13 10:44
