Perl：SMTP无法连接到邮件服务器

Question

我编写了一个简单的Perl脚本来使用MIME :: Lite和Net :: SMTP模块发送邮件。但它导致了错误，“SMTP无法连接到邮件服务器：一个非阻塞套接字操作无法立即完成”。

Perl脚本，我都试过了，

use strict; 
use warnings; 
use MIME::Lite; 
use Net::SMTP; 

my $from = 'agnesgrusteven@gmail.com'; 
my $to = 'agnesgrusteven@gmail.com'; 
my $host = 'smtp.gmail.com'; 

my $subject = 'A test message by script '; 
my $body = "Please ignore this message as this is test from Perl scripts "; 

my $msg = MIME::Lite->new (
    From => $from, 
    To => $to, 
    Subject => $subject, 
    Type =>'multipart/mixed' 
) or die "Error creating multipart container: $!\n"; 

$msg->attach (
    Type => 'TEXT', 
    Data => $body 
) or die "Error adding the text message part: $!\n"; 

MIME::Lite->send('smtp', $host, Timeout=>60); 
$msg->send; 

实际的错误我，

G:\>perl SampleEmail.pl 
SMTP Failed to connect to mail server: A non-blocking socket operation could not 
be completed immediately. 
at SampleEmail.pl line 26. 

请帮我具体是什么，我需要检查才能正常发送邮件。

由于提前

Answer 1

对不起，回答我的问题，但是这可以帮助别人。

经过一个月的搜索终于找到了为什么我的套接字无法连接到SMTP与适当的主机和密码。在我的事情IO :: Socket模块崩溃。我有取代IO ::插座与新鲜的和整个事情的工作。我想，模块崩溃的原因可能是我手动从不同站点下载所需模块的方式，并将其放置在Perl库而不是Perl包管理器中。

谢谢

Answer 2

如果你配置良好的Linux服务器上运行这一点，你可能会，如果你拿出

use Net::SMTP 

和

MIME::Lite->send('smtp', $host, Timeout=>60); 

有更好的运气和只要让MIME::Lite使用其默认值 - 通常它会让sendmail处理该消息。 。

Answer 3

MIME ::精简版/网:: SMTP V3 * - 通过smtp.gmail.com发送

Q1：你能teknet SMTP（25）在smtp.gmail.com端口？你收到SMTP问候消息吗？

telnet smtp.gmail.com 25 

A1：NO =>这是很可能是您到SMTP端口传出连接被阻止，以避免传出垃圾邮件。

Q2：你可以telnet msa（587）端口smtp.gmail.com？你收到SMTP问候消息吗？

telnet smtp.gmail.com 587 

A1：YES =>通过MSA（587）或SMTPS（465）发送。 MIME::Lite可以使用Net::SMTP版本3连接到smtps（465）端口。*。
[警告：看到MIME::Lite 3.030 - NET::SMTP with smtps (port 465)]

# use smtps (465) port - it requires Net::SMTP version 3.* 
# use debugging (Debug=>1) for initial tests 
MIME::Lite->send('smtp', $host, SSL=>1, Timeout=>60, 
    AuthUser=>$user,AuthPass=>$pass 
    Debug=>1);