Perl smtp电子邮件发送不起作用(Perl smtp email send is not working)

我正在尝试从我的Gmail帐户发送电子邮件，并收到错误消息：

Error sending email: Connect failed :IO::Socket::INET: connect: timeout at /home/tas/perl5/lib/perl5/Email/Send/SMTP/TLS.pm line 45

我尝试过几个不同的电子邮件地址（gmail和其他人），但结果是一样的。

我用这个代码：

#!/usr/bin/perlml use Email::Send; print "Content-type: text/html\n\n"; my $mailer = Email::Send->new( { mailer => 'SMTP::TLS', mailer_args => [ Host => 'smtp.gmail.com', Port => 587, User => 'XXXX@gmail.com', Password => 'XXXXXXXXX', Hello => 'fayland.org', ] } ); use Email::Simple::Creator; # or other Email:: my $email = Email::Simple->create( header => [ From => 'XXXX@gmail.com', To => 'XXXX@gmail.com', Subject => 'test', ], body => 'test', ); eval { $mailer->send($email) }; die "Error sending email: $@" if $@;

这有什么不对？使用smtp发送电子邮件的任何其他方式？

I'm trying to send emails from my gmail account, and get the error:

Error sending email: Connect failed :IO::Socket::INET: connect: timeout at /home/tas/perl5/lib/perl5/Email/Send/SMTP/TLS.pm line 45

I've tried several different email adresses (gmail and others) but the result is the same.

I use this code:

#!/usr/bin/perlml use Email::Send; print "Content-type: text/html\n\n"; my $mailer = Email::Send->new( { mailer => 'SMTP::TLS', mailer_args => [ Host => 'smtp.gmail.com', Port => 587, User => 'XXXX@gmail.com', Password => 'XXXXXXXXX', Hello => 'fayland.org', ] } ); use Email::Simple::Creator; # or other Email:: my $email = Email::Simple->create( header => [ From => 'XXXX@gmail.com', To => 'XXXX@gmail.com', Subject => 'test', ], body => 'test', ); eval { $mailer->send($email) }; die "Error sending email: $@" if $@;

What is wrong here? Any other ways to send emails using smtp?

最满意答案

发送电子邮件时出错：连接失败：IO :: Socket :: INET：connect：在/home/tas/perl5/lib/perl5/Email/Send/SMTP/TLS.pm第45行超时

看起来您的Perl代码没有任何问题。看起来这是一个网络问题。您网络中的某些内容阻止您在端口587上连接到Gmail。

您可能需要与服务器的系统支持人员讨论此问题。

Error sending email: Connect failed :IO::Socket::INET: connect: timeout at /home/tas/perl5/lib/perl5/Email/Send/SMTP/TLS.pm line 45

Looks like there is nothing wrong with your Perl code. It looks like this is a networking problem. Something in your network is preventing you from connecting to Gmail on port 587.

You probably need to discuss this with the system support people for your server.

更多推荐