Perl SMTP電子郵件發送不起作用

Question

我正在嘗試從我的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發送電子郵件的方法嗎？

Answer 1

發送電子郵件時出錯：連接失敗：IO :: Socket :: INET：連接：在/home/tas/perl5/lib/perl5/Email/Send/SMTP/TLS.pm第45行的超時

您的Perl代碼似乎沒有問題。 看來這是網絡問題。 網絡中的某些內容阻止您通過端口587連接到Gmail。

您可能需要與服務器的系統支持人員進行討論。